ComboBox / Imágenes - VB-MUNDO

Aresito · #1 (**permalink**) 09-02-2007, 12:05:44

Copio y pego del otro topic.

En este mismo programa (que es un visor de imágenes) tengo el directorio para elegir la imagen, y al pinchar sobre ella que se vea en un control Image. Pues bien, he insertado un ComboBox para que me dé a elegir entre mapa de bits, jpg o todos los archivos , pero me da un error que no entiendo. Es más, un compañero lo tiene igual que yo en otro programa y sí le va bien. Aquí os lo pongo.

Primero declaro la matriz

dim rellenar(3) as string

Luego...

Private Sub Combo1_Click()
File1.Pattern = mascara(Combo1.ListIndex + 1)
End Sub

Y en el Form Load...

Private Sub Form_Load()

rellenar(1) = "*.*"
rellenar(2) = "*.bmp"
rellenar(3) = "*.gif;*.jpg"
Combo1.ListIndex = 0
esconder
End Sub

El error que me da : El valor de la propiedad no es válido. Le doy a depurar y resulta que Combo.Listindex tiene valor -1 :smt017

RuK · #2 (**permalink**) 09-02-2007, 12:09:23

Hola,

Puedes hacerlo usando el control CommonDialog para seleccionar las imagenes y luego llenarlas en un array.

Saludos :-)

angelescj · #3 (**permalink**) 09-02-2007, 13:15:59

Es que no le das tiempo, prueba con:

Private Sub Combo1_Click()
If Combo1.ListIndex=-1 Then Exit Sub
File1.Pattern = mascara(Combo1.ListIndex + 1)
End Sub

Esto de acuerdo con Ruk, puedes utilizar el Commondialog y/o los controles para seleccionar archivos (dirlistbox...)

:smt004

Aresito · #4 (**permalink**) 09-02-2007, 13:23:37

Gracias, pero yo estoy haciendolo rellenando el combo manualmente, y luego diciendo:

Si el listindex del combo es X entonces
file1.pattern (que es la propiedad en cuestión) es igual a *.jpg
fin si

Pero me sigue dando errores... A ver si descubro qué pasa!

Gracias!

Aresito · #5 (**permalink**) 09-02-2007, 13:28:09

Cita:

Empezado por angelescj

Es que no le das tiempo, prueba con:

Private Sub Combo1_Click()
If Combo1.ListIndex=-1 Then Exit Sub
File1.Pattern = mascara(Combo1.ListIndex + 1)
End Sub

Esto de acuerdo con Ruk, puedes utilizar el Commondialog y/o los controles para seleccionar archivos (dirlistbox...)

:smt004

Con esto me da el mismo error que al principio

Pero gracias de todas maneras.

VeRTiGo · #6 (**permalink**) 09-02-2007, 13:28:19

Hola Aresito, revisando tus mensajes por aquí se nota que estás aprendiendo a programar en una institución académica y te cuesta programar pero es muy bonito que sigas luchando hasta conseguir el problema.

Cambiando de tema, estoy de acuerdo con angelescj y RuK la posibilidad de añadir el control CommonDialog u otros controles relacionados con el listado de archivos. Creo que "googleando" encuentras ejemplos.

Muchos besos

Aresito · #7 (**permalink**) 09-02-2007, 13:46:36

Hola! Gracias por tus ánimos :smt005

Ya lo solucioné, un tanto rudimentaria mi solución pero vaya, aquí os la dejo:

Private Sub Form_Load()
Combo1.AddItem "Imágenes (*.jpg)"
Combo1.AddItem "Mapa de Bits (*.bmp)"
Combo1.AddItem "Todos los archivos (*.*)"

esconder
End Sub

Private Sub Combo1_click()
If Combo1.ListIndex = 0 Then
File1.Pattern = "*.jpg"
End If
If Combo1.ListIndex = 1 Then
File1.Pattern = "*.bmp"
End If
If Combo1.ListIndex = 2 Then
File1.Pattern = "*.*"
End If
End Sub

Así de fácil y de cutre!! jajaja

Gracias a tod@s.

VeRTiGo · #8 (**permalink**) 09-02-2007, 13:52:23

¡¡¡ Cuanto me alegro por ti, Aresito !!!

Muchos besos, campeón

imported_chiaravel · #9 (**permalink**) 09-02-2007, 14:41:47

Cita:

Empezado por VeRTiGo

¡¡¡ Cuanto me alegro por ti, Aresito !!!

Muchos besos, campeón

Realmente me enfurezco cuando intentan TOMARME EL PELO.

Me violento cuando intentan BURLARSE de nuestra buena voluntad.

Asi que "Amigo KORKU" que sea la ultima vez que luego de BANNEADO intentas reaparecer haciendote pasar por otra persona.

Tu te vas de este foro y punto.. no se discute más... que ya demasiado revuelo se ha causado por tu culpa.

Adios.

Aresito · #10 (**permalink**) 09-02-2007, 19:05:17

Pues vaya... siento el malentendido...