Hola
Pues estaba intentando hacer un programilla con el imagelist. Quería que pasaran las fotos de una a otra con un timer y dentro del timer un case.
¿Cómo tendría que poner para que metiera la foto? ¿Algo así? Image1=imagelist1.index(1). Gracias
¿Cómo tendría que poner para que metiera la foto? ¿Algo así? Image1=imagelist1.index(1). Gracias
Respuesta de dangeldom
1
En este código te pongo como hacer que aparezca en una ventana distintas imágenes de un imagelist cada 3 segundos. Mi imagelist tiene por ejemplo 3 imágenes. Si después de mostrar las 3 imágenes quieres que el programa deje de mostrar imágenes, en vez de poner "contador=0", pon "timer1.enabled=false"
Suerte!
Option Explicit
Dim contador As Integer
Private sub Form_Load()
timer1.interval=3000 '3 segundos
contador=1
end sub
Private Sub Timer1_Timer()
Image1.Picture =ImageList1.ListImages(contador).Picture
if contador=3 then
contador=0
else
contador = contador + 1
endif
End Sub
Suerte!
Option Explicit
Dim contador As Integer
Private sub Form_Load()
timer1.interval=3000 '3 segundos
contador=1
end sub
Private Sub Timer1_Timer()
Image1.Picture =ImageList1.ListImages(contador).Picture
if contador=3 then
contador=0
else
contador = contador + 1
endif
End Sub
Hola dangeldom! Muchísimas gracias, pensaba que esto ya no me iba a llegar porque lo mande hace tiempo, pero bueno por lo menos veo que aunque un poquito tarde, por lo menos llega. Me ha servido de mucho, aunque todavía de visual se poco, algún día espero poder ser una experta como vosotros y poder contestar las dudas de los demás. Gracias!
