Relación de un listbox con el cuadro de imágenes

Quien me puede ayudar,

Estoy haciendo una búsqueda de código en la cual al darle click en el código, me muestra en el listbox los datos que involucran al código. Hasta aquí todo ok. Luego al darle click a cualquier fila del listbox me debería mostrar la imagen del campo seleccionado le cambie la forma pero me sale el msg que no ha encontrado ruta de Acceso. Correo: [email protected]

Agradecer su ayuda... !

1 respuesta

Respuesta
2

El nombre del archivo en la columna J contiene la ruta, el archivo y la extensión, por lo tanto ya no lo tienes que poner en el código.

el código queda así:

Private Sub ListBox1_Click()
'Por.Dante Amor
    archivo = ListBox1.List(ListBox1.ListIndex, 9)
    Image1.Picture = LoadPicture(archivo)
End Sub

en la variable archivo ponemos el dato que está en la columna 9 del registro al que le hiciste click

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Relacionar el Listbox en un cuadro de Image donde me muestre la foto seleccionada del listbox

Quisiera saber como puedo hacer que al darle un click al campo seleccionado de la fila del listbox me muestre en un cuadro de Image la foto del campo seleccionado. Agradeceré su ayuda. [email protected]
1 respuesta

Al seleccionar los datos del listbox me muestre en la caja de imágenes la foto.

Una vez que listbox esta cargado con la información y selecciono cualquier fila de listbox deseo que me muestre la foto según la selección... Pero cuando ejecuto sale el msg no ha encontrado ruta de acceso... Las variables lo declare como string.
1 respuesta

Items de un listbox con varias columnas a otro

Agradecería si me pueden ayudar en pasar los datos de un listbox1 con 6 columnas a otro listbox2, pero que pase los datos de las 6 columnas y a su vez borrar el item del texbox1 seleccionado/s. He encontrado este código por la red, pero me parece que...
1 respuesta

Activar la fila del Registro Seleccionado, al hacer click, después de un Filtro en TextBox

Rengo una planilla, con columnas útiles, desde la A hasta la R y filas que superan las 1000. Mediante esta macro: Set Rango = Range("M1", Range("M1").End(xlDown)) Rango.AdvancedFilter 2, , Range("IV1"), Unique:=True Range("IV1").Sort Range("IV1"),...
1 respuesta

Revisión de código para guardar imágenes en una carpeta en especifico

Que me proporcionaron en el foro: Con este código, se guarda la imagen de excel en una carpeta en especifico Sub ejemplo2() 'Por.DAM On Error Resume Next For i = 2 To Range("A" & Rows.Count).End(xlUp).Row For Each img In ActiveSheet.DrawingObjects If...
1 respuesta

¿Cómo activar un fila de Excel desde un ListBox?

Tengo una "BaseDeDatos" con 23 columnas ("A:W"), de la misma que jalo datos a un ListBox1 de las primeras 9 columnas ("A:I"). Ingresando criterio de búsqueda en un TextBox1 y mediante el evento Click de un "CommandButton1" filtro los datos que deseo...
1 respuesta

Código IF, para verificar datos en catalogo de imágenes

Encontré este código para catálogo de imágenes y lo adapte para mis necesidades, explico en una carpeta tengo el archivo y otra subcarpeta las imágenes, de modo que cuando coincida el nombre de la celda, que esta en el rango H4:H701, con el nombre de...
1 respuesta

Adicionar Datos a listbox de varias columnas

Y de antemano muchas gracia por el tiempo que dedican a mi pregunta. Mi problemas es el siguiente estoy trabajando con listbox para cargar datos de excel en vba y no soy programador. Mejor dicho si muy inquieto pero tengo este inconveniente. Me pasa...
1 respuesta

Imagen y archivo de texto .txt al mismo tiempo

Primero agradecerte por tu ayuda en los 2 códigos, que gracias a ellos estoy apunto de terminar mi proyector de canciones, y pues dándote más molestias, te pido de favor me ayudes con un código y de lo que se trata es yo al elegir un archivo de...
1 respuesta

Como eliminar items del listbox

Necesito eliminar items del listbox con doble clic He encontrado este código que anda perfecto If ListBox1.ListIndex = -1 Then Exit Sub 'si no se seleccionó ningún item cancela End If ListBox1.RemoveItem (ListBox1.ListIndex) Pero el problema es que...
1 respuesta