Crear tira de imágenes en VB6

[valparda]

Hola! Necesito hacer de alguna manera un control que sea una especie de "tira de imágenes" a la que le pueda agregar "n" cantidad de fotos y que les pueda hacer click sobre ellas y me las muestre mas grandes. Puede ser parecida a la vista de "Tira de Imágenes" de windows.
Desde ya muchas gracias.

[encore121]

Bueno, no se si te entiendo bien, kieres saber como hacer un control o kieres mas o menos una idea de como hacerlo

yo entendi ke mas o menos kerias una idea de como hacerlo, hice un pekeño ejemplo ke agrega el control Image en tiempo de ejecucion dependiendo del numero de archivo ke tenga una carpeta espero te sirva

aki esta el enlace para ke puedas descargar mi ejemplo:

mx.geocities.com/encore121/EjemploTira.zip

si nesesitas algo mas espero poder contestarte

[valparda]

Hola! Bajé tu archivo pero al descomprimirlo me dió varios errores. Si lo puedes colgar de nuevo te agradezco. Saludos

[encore121]

Oye trata de descargarlo de nuevo porke lo acabo de descargar y si funciono, de todos modos lo subi aki espero ke ahora si lo puedas probar

d.turboupload.com/d/1650739/EjemploTira.zip.html

[baster]

hola soy nuevo ingreso, baje tu archivo mañana lo pruebo
y les aviso que tal, por lo pronto gracias, yo tambien quiero hacer esto con unas imagenes

[A.H.H]

HOLA yo tambien he intentado descomprimir el archivo y me da muchos errores, me gustaria mucho verlo.

salu2

[luciano]

Encore121, por favor edita tu segunda url para descargar el fichero por que dicha página, te instala un dialer , spywere o algo por el estilo

saludos

---------------------------------------------------

[fero]

Dos formularios form2 y form3.
form2 con control listview y control imagelist
form3 con control image

Codigo de form2:

Public imgX As ListImage
Public itm As String

Private Sub Form_Load()

' Agrega imágenes a la colección ListImages.
Set imgX = ImageList1. _
ListImages.Add(, "foto1.jpg", LoadPicture("foto1.jpg"))
Set imgX = ImageList1. _
ListImages.Add(, "foto2.jpg", LoadPicture("foto2.jpg"))
Set imgX = ImageList1. _
ListImages.Add(, "foto3.jpg", LoadPicture("foto3.jpg"))

ListView1.Icons = ImageList1 ' Establece la propiedad Icons.

' Agrega objetos Item al control ListView.
Dim itmX As ListItem

Set itmX = ListView1.ListItems.Add()
itmX.Icon = 1
itmX.Text = "foto1"

Set itmX = ListView1.ListItems.Add()
itmX.Icon = 2
itmX.Text = "foto2"

Set itmX = ListView1.ListItems.Add()
itmX.Icon = 3
itmX.Text = "foto3"

End Sub

Private Sub ListView1_DblClick()

Form2.Hide
Form3.Show
Form3.Image1.Picture = LoadPicture(itm)

End Sub

Private Sub ListView1_ItemClick(ByVal Item As MSComctlLib.ListItem)

itm = Item & ".jpg"

End Sub

Codigo de form3:

Private Sub Form_Unload(Cancel As Integer)

Form2.Show

End Sub


Esto es para tres imágenes jpg. Para n imágenes habría que hacer un loop que busque *.jpg en una carpeta donde estén todas las imágenes y cargarlas de la misma manera en el listview.
También hay que centrar y escalar la imagen en el form3.

[Mikekloster]

Gracias ya lo baje y si me funciono.