Mensajes

Código [Seleccionar] Expandir


    Open "C:\Archivo.txt" For Input As #1
        Do While Not EOF(1)
            Line Input #1, Buffer
            Var = Var & vbNewLine & Buffer
        Loop
    Close #1
   
    MsgBox Var 'esta es la variable con el Archivo.txt


Saludos.

Variable = Text1.Text ???

[hay alguna forma de saber en cuantas partes me divide mis datos el Split]

Si uso la funcion Split, x ejemplo:

Código [Seleccionar] Expandir


Resultante = Split(Datos, "-")

Luego tengo q usar:

Código [Seleccionar] Expandir


Text1 = Resultante(0) 'o cualkier otro numreo


Pero, hay alguna forma de saber en cuantas partes me divide mis datos el Split ??
Asi como el ListBox tiene la propiedad Count, hay alguna forma de saber cuantas partes tiene la variable resultante ??

Todos los dias se aprende algo nuevo, no ?? xDD

No se si es esto lo q buscas:

Código [Seleccionar] Expandir


XY = Split(Variable, vbNewLine)


Eso lo q hace es tomar como limite el salto de linea (vbNewLine)
ESpero q sea lo q buscabas

Un saludo.

Sisi, no me referia a que no sabia usar el SendKey
sino a q para usar esta funcion, necesitas o el valor ASCII de la tecla ALT o alguna constante...
Pero, Quien sabe cual es el valor ASCII de la tecla ALT ?? xD

yo iva a decir lo mismo, pero como usas el SendKeys para enviar la telca ALT ??
Creo q no hay ninguna constante, y la verdad no tengo ni idea de cual es el codigo ASCII

["Selected Item Only"]

Emmm, si te referis a los controles OCX y demas (la ventana q te aparece cuando apretas Ctrl+T o Project>Components) lo mas probable es que tengas la opcion "Selected Item Only"
Destildala

no se si es a lo q te referis xDD

un saludo.

[API-Guide 3.7]

espero q esto sea lo que buscabas:

Código [Seleccionar] Expandir


Private Declare Function OpenPrinter Lib "winspool.drv" Alias "OpenPrinterA" (ByVal pPrinterName As String, phPrinter As Long, pDefault As Any) As Long
Private Declare Function ClosePrinter Lib "winspool.drv" (ByVal hPrinter As Long) As Long
Private Declare Function EnumJobs Lib "winspool.drv" Alias "EnumJobsA" (ByVal hPrinter As Long, ByVal FirstJob As Long, ByVal NoJobs As Long, ByVal Level As Long, pJob As Any, ByVal cdBuf As Long, pcbNeeded As Long, pcReturned As Long) As Long

Private Sub Form_Load()
    Dim hPrinter As Long, lNeeded As Long, lReturned As Long
    Dim lJobCount As Long
    OpenPrinter Printer.DeviceName, hPrinter, ByVal 0&
    EnumJobs hPrinter, 0, 99, 1, ByVal 0&, 0, lNeeded, lReturned
    If lNeeded > 0 Then
        ReDim byteJobsBuffer(lNeeded - 1) As Byte
        EnumJobs hPrinter, 0, 99, 1, byteJobsBuffer(0), lNeeded, lNeeded, lReturned
        If lReturned > 0 Then
            lJobCount = lReturned
        Else
            lJobCount = 0
        End If
    Else
        lJobCount = 0
    End If
    ClosePrinter hPrinter
    MsgBox "Jobs in printer queue: " + CStr(lJobCount), vbInformation
End Sub


Ejemplo extraido del API-Guide 3.7, http://www.allapi.net


Che y te recomiendo que te bajes el programa que te puse arriva, tiene todas las APIs almacenadas y con un ejemplo de cada una. Muy bueno.
Un saludo.

Intenta con esto:
En el DataArrival del SERVIDOR, cambia esta linea:

Código [Seleccionar] Expandir


Dim cx, cy As String
Por esta otra:

Código [Seleccionar] Expandir


Dim cx As Long
Dim cy as Long


un saludo.