[Resuelto] Ayuda ListBox

[RMS_CHE]

Hola a todos...
mi duda empieza cuando quiero programar una pokedex   una similar a esta:

Para ver este enlace Registrate o Inicia Sesion
ya bueno estaba buscando en la biblioteca de codigos y encontre Buscar en un listBox
me parecio bueno como para comenzar
ahora el problema es que cuando le hago un click a la lista no me muestra nada
entonces busque y encontre para que me muestre el nombre al que le hice el click en un label
ahora quiero que me muestre una imagen y otros datos
como estan en el pokedexer

aqui esta el codigo:

Function BuscaListBox(lst As ListBox, CadenaTexto As String) As Boolean
    On Error Resume Next
    Dim I As Integer
    
    For I = 0 To lst.ListCount
        If lst.List(I) Like "*" & UCase(CadenaTexto) & "*" Then
            BuscaListBox = True: lst.ListIndex = I: GoTo ups
        End If
    Next I
    BuscaListBox = False
ups:
End Function

Private Sub Form_Load()
    With List1
        .AddItem "MÉXICO"
        .AddItem "RANEFILANDIA"
        .AddItem "ARGENTINA"
        .AddItem "VENEZUELA"
        .AddItem "ESPAÑA"
        .AddItem "GUATEMALA"
        .AddItem "CHILE"
    End With
End Sub


Private Sub List1_Click()
    Label1 = List1.List(List1.ListInde x)        
End Sub

Private Sub Text1_Change()
    BuscaListBox List1, Text1.Text
End Sub

lo pongo tal y cual esta en la bibliotecade codigos
Como hago para que cada palabra de la lista me muestre una imagen diferente?

[Mace Windu]

Bien RMS_CHE, creo que te refieres a esto:

Código:

Option Explicit

Private Sub Form_Load()
    With List1
        .AddItem "México", 0
        .AddItem "España", 1
        'Etcétera
    End With
End Sub

Private Sub List1_Click()
    Select Case List1.ListIndex
        Case 0
            MsgBox "México"
        Case 1
            MsgBox "España"
        'Etcétera
    End Select
End Sub

Crea dos items en la lista y dependiendo cual pulses muestra un mensaje . Espero que te sirva. Cualquier cosa pregunta.

Salu2

[RMS_CHE]

Muchas gracias por responder Mace Windu creo que me exprese mal
lo que queria es agregar por decir un PictureBox y que en el se muestre una imagen diferente por cada palabra

Gracias tambien me gusto la opcion que me diste

[RMS_CHE]

Hola gracias por las respuestas y perdon por no poner editar
gracias me sirvio mucho me quedo algo asi:

Option Explicit

Private Sub Form_Load()
    With List1
        .AddItem "México", 0
        .AddItem "España", 1
        'Etcétera
    End With
End Sub

Private Sub List1_Click()
    Select Case List1.ListInde x
        Case 0
            Picture1.Visib le = True
            MsgBox "México"
            Picture1.ZOrde r 0
           
        Case 1
            Picture2.Visib le = True
            MsgBox "España"
            Picture2.ZOrde r 0
        'Etcétera
    End Select
End Sub

Muchas gracias  >> s E t H << Mace Windu

y si quisiera preguntar sobre otro tema aca mismo lo hago?
gracias por entender

[>> s E t H <<]

podes usar objeto.zorder para traer un objeto al frente...

no estoy seguro si es zorder o z0rder, proba.. aunque lo mas logico es q sea la primera

una buena idea es no usar dos pictures distintas, usar una e ir cambiando la imagen pero dejalo para cuando estes mas avanzado

PD: tenes el boton "EDITAR" para evitar hacer doble post, usalo