Mensajes

[http://www.ilustrados.com/publicaciones/EpZVVyluEkDsEvheJY.php]

Para hacer un boton personalizado lo mejor es crear un UserControl. Aca tenes una guia muy interesante: http://www.ilustrados.com/publicaciones/EpZVVyluEkDsEvheJY.php.

Suponiendo que tu archivo esta cargado en la variable Texto

Código [Seleccionar] Expandir


For i = 1 to len(Texto)
    If Mid(Texto, i, 4) = "Pass" then
        MsgBox "Pass se encuentra en la linea " & i
    End If
Next i

   

No se si es eso lo que buscas...

Código [Seleccionar] Expandir


Do While i = i
    Beep
Loop


[Windows Common Controls 6.0]

Primero que todo tenemos que ir a Project>Components (Ctrl+T) y seleccionar Windows Common Controls 6.0.

Despues agregas un ImgeList (uno de los controles que se agregaron). Este control va a almacenar las imagenes que elijas para despues poder mostrarlas en el ListView.
Seguidamente agregamos un ListView.

En el load del form que quieras pones:

Código [Seleccionar] Expandir


    ImageList.ListImages.Add , "Imagen", LoadPicture("C:\MiImagen.jpg")

Eso va a agregar la imagen "C:\MiImagen.jpg" al ImageList.

Despues, en el evento que quieras agregar el item con la foto pones:

Código [Seleccionar] Expandir


    ListView.ListItems.Add , , "HOLA", "Imagen"


Espero que se alla entendido, sino busca en Google que hay toneladas de informacion...



Saludos.-

A ver si esto te sirve:

Código [Seleccionar] Expandir


    Dim Var As String
    Open "c:\telefonos.txt" For Input As #1
        For i = 1 To 3 'esta es la cantidad de lineas que vamos a sacar
            Line Input #1, Var 'sacamos linea por linea
            Select Case i 'nos vamos fijando en que linea estamos
                Case 1 'si es la 1ra linea
                    Text1 = Var 'la ponemos en el text1
                Case 2 'si es la segunda...
                    Text2 = Var 'en el text2...
                Case 3
                    Text3 = Var
            End Select
        Next i
    Close #1 'cerramos el archivo


Espero que te sirva, saludos.-

Es curioso el ejemplo, pero usa un PictureBox no un ListBox :S

[ListView]

No se puede. Para hacer eso tenes que usar el control ListView y un ImageList que almacene las imagenes.

[i]

Espero que esto te sirva:

Código [Seleccionar] Expandir


    Palabra = InputBox("Palabra a buscar", "Buscar")
    For i = 1 To Len(Text1)
        If LCase(Mid(Text1, i, Len(Palabra))) = LCase(Palabra) Then
            Text1.SetFocus
            Text1.SelStart = i - 1
            Text1.SelLength = Len(Palabra)
            Exit For
        End If
    Next i


NOTA: Cuando encuentra la palabra buscada, va a terminar la busqueda, por lo que si queda otra palabra igual mas adelante no se va a marcar. Para arreglarlo sacale el Exit For y te recomiendo ir poniendo el valor de i en una variable para despues ir buscandola. Espero que se entienda
Saludos.-

Pero acordate que para referirte a los arcihvos tenes que poner la carpeta en donde estab ubicados. A mi me pasaba lo mismo hasta que puse esto (x ejemplo: FTP Fotos\MiFoto.jpg).
Otra cosa no se me ocurre, a mi me funciona perfecto :S

[Picture]

No hace falta otro OCX.
Los CommandButtons tienen 2 propiedades que sirven para hacer lo que buscas. La primera es Picture que es la imagen que queres que se muetre, y la 2da es Stykle que va en 1 - Graphical (esta propiedad solo puede ser cambiada antes de compilar.

Saludos.-