Jump to content

Buscar datos en listbox mientras escribo en textbox y abrirlos subir o bajar las flechas de mi teclado


aldibu11

Recommended Posts

Estoy realizando un programa para liberación de material el cual debe abrir imagenes de acuerdo al producto que estoy revisando. Existen varias imagenes de una misma parte, quiero que al escribir vaya buscando y mostrando en listbox de acuerdo a lo que voy escribiendo en mi textbox.

Saludos

Éste código agrega datos al listbox de un rango dentro de una hoja de excel

Private Sub TextBox2_Change()
   If TextBox2 <> Empty Then
     CommandButton1.Enabled = True
     TextBox2 = UCase(TextBox2)
     Dim rng As Range, e
     Set lista = Range("Proveedores!C2:C69")
     With Me
     .ListBox1.Clear
     For Each i In lista.Value
       If (i <> "") * (i Like "*" & .TextBox2.Value & "*") Then
         .ListBox1.AddItem i
       End If
      Next i
     End With

   End If
End Sub

Éste codigo solo muestra en textbox lo que yo seleccione en mi listbox

Private Sub ListBox1_Click()
   TextBox2.Text = ListBox1.List(ListBox1.ListIndex)
End Sub

Éste código muestra en mi listbox todos los datos que tengo en una carpeta dentro de mis documentos, mi gran duda es, como puedo adecuard mi código para que mientras vaya escribiendo en mi el textbox, vaya mostrando el resultado de la busqueda en mi listbox utilizando la dirección de mis archivos.

Private Sub UserForm_Initialize()
   Application.Visible = False
   TextBox1.SetFocus
   Dim myfolder As String
   Dim myfile As String
   Dim j As Integer
   myfolder = "C:\Users\alejandro.diaz\Desktop\Programa\Imagenes\"
   myfile = dir(myfolder & "\*.jpg")
   Do While myfile <> ""
   ListBox1.AddItem myfile
   myfile = dir
   Loop
End Sub

 

Tambien, quisiera seleccionar un archivo con un click o teclas arriba, abaja de listbox y lo muestre en una caja de imagen.

 

Espero me pueda ayudar, saludos!!!

Link to post
Share on other sites

Qué tal @aldibu11,

  • advertisement_alt

Para lo de buscar te dejo una dirección que me sirvió a mí la primera vez que lo necesité:

Buscar en ListBox al escribir en TextBox

En cuanto a lo de visualizar, podrías usar un webBrwoserControl en el formulario. En la zona de descargas tienes un fichero que hace eso, y que subí hace algún tiempo, pero para ficheros PDF. Solo deberías adaptar el código para que carge las imágenes al seleccionarlas.

Visor de PDF

Link to post
Share on other sites

Archived

This topic is now archived and is closed to further replies.

Guest
This topic is now closed to further replies.
×
×
  • Create New...

Important Information

Privacy Policy