Mensajes

hola esta piola el programa  le faltaria una opcion para terminar el proceso de ejecucion nada mas  , despues si le queres agregar mas cosas dale para adelante. Saludos.

Hola:

"Compile Error: Only valid in object module"

Esto quiere decir q la declaracion q hiciste no va en ese tipo de modulo.
Antes q nada asegurate de tildar la referencia a la API del messenger en Proyecto --> Referencias --> "Messenger API Type Library", despues declaras en la sección de General del form asi

Código [Seleccionar] Expandir


Public WithEvents MSN As Messenger


Código [Seleccionar] Expandir


Private Sub Form_Load()
    Set MSN = New Messenger --> se crea una instancia del tipo messenger
End Sub

Private Sub Command1_Click()
    If MSN.MyStatus = MISTATUS_INVISIBLE Then
        MsgBox "estas como no conectado"
    End If
End Sub

Saludos.

Hola, podes crear un modulo y meter todas las apis ahi, de esa manera tienen un alcance global.
Para agregar un modulo hace click en el menu Proyecto --> Agregar Modulo.

Hola, asegurate q la carpeta "micarpeta" exista, o sino cambia el Append por Output, aunque cualquiera de las dos formas deberia funcionar. Saludos.

Hola RED_HORSE, me alegra q te sirvio mi code, yo probe el code de Chefito y anda 10 puntos  , explicame en q parte no te funciona, si es posible postea tu codigo, para probar segun como lo estas haciendo y poder detectar la falla  . Saludos.

Hola, coincido con lo q dice chefito, otra forma si queres eliminar el array de memoria utliza

Código [Seleccionar] Expandir


Erase Paises


Saludos

Hola, suponiendo q los datos q obtenes los tenes en el text5, y solamente queres pasar los usuarios al text6, proba con esto:

Código [Seleccionar] Expandir


Private Const EM_GETLINE = &HC4
Private Const EM_GETLINECOUNT = &HBA
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

Private Sub Command1_Click()
Dim xPos&, n&, nlen&, x&, strCadena$
    n = SendMessage(Text5.hwnd, EM_GETLINECOUNT, 0, 0) '--> Obtiene la cantidad de lineas q posee textbox
    For i = 0 To n - 1 '--> Recorre todas las lineas
        strCadena = "": strCadena = Space$(256)
        x = SendMessage(Text5.hwnd, EM_GETLINE, i, ByVal strCadena) '--> Captura el texto de la primera linea
        xPos = InStr(1, strCadena, ">") '--> Encuentra la primera coincidencia del signo >
        xPos = InStr(xPos + 1, strCadena, ">") '--> Encuentra la segunda coincidencia del signo >
        strCadena = Mid$(strCadena, xPos + 1) '--> Extrae el resto de la cadena
        strCadena = Left$(strCadena, InStr(strCadena, "<") - 1) '--> Extrae el nombre del usuario de la cadena
        If strCadena <> "" Then
            Text6 = Text6 & Trim(strCadena) & " / " '--> Envia la cadena final a text6
        End If
    Next
End Sub


El text5 debe tener la propiedad Multiline a TRUE 
Si no es lo q buscas pone mas info para q se entienda. Saludos

hola como estas, proba asi:

Private Sub Text1_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 Then
        MsgBox "Hola"
        KeyAscii = 0
    End If
End Sub

Para el error que te salta cuando presionas cancelar tanto para el cuadro de dialogo de abrir como el de guardar o cualquier otro, primero tenes que poner la propiedad cancelerror del commondialog a true y aca te paso un code para el control del error:

On Error GoTo error ' Colocas primero esto cuando salte el err se dirige a la rutina error:
    CommonDialog1.Filter = "Formato texto (*.txt)|*.txt"
    CommonDialog1.ShowSave
error: ' rutina de control de error
    If Err.Number = 32755 Then
        Exit Sub
    End If