usar un timer para mostrar imagenes..?

[metroix]

bueno lo que quiero aser es tener 3 imagenes que se muestren a la azar cada 1 segundo.... osea arranco el form entonces se muestre una de las 3 images que yo  puse pero que sea a la zar y que dure cada una 1 seg y se vallan cambiando de manera a la azar cada 1 seg..

[-SharK_90-]

Muy Sensillo...
Colocar un Command1, un Timer1, un Image1 y un ImageList1...
En las propiedades del ImageList1 colocar 3 Imagenes...

Copiar y Pegar el siguiente código:

Private Sub Command1_Click()
Timer1.Enabled = True
End Sub

Private Sub Form_Load()
Timer1.Interva l = 1000
Timer1.Enabled = False
Command1.Capti on = "Comenzar"
End Sub

Private Sub Timer1_Timer()
Dim X As Integer
Randomize
X = Int(Rnd * 3 + 1)
Set Image1.Picture = ImageList1.Lis tImages(X).Picture
End Sub

SALU2

[metroix]

Gracias

[metroix]

oye man y como aria si osea tengo las imagenes tonces si el image1 muestre la imagen 1 me desactiva el boton 1 o si me muestra la imagen 2 entonces me desactive el boton2 asi sucesivamente,,

[Ther0x]

Código:

if image1.picure = imagen1 then
        command1.enabled = false
elseif image1.picture = imagen2 then
        command2.enabled = false
elseif image1.picture = imagen3 then
         command3.enbled = false
end if

no es correcto del todo pero seguro que si le haces alguna pequeña modificación funciona


salu2

[-SharK_90-]

El código te quedaría así::

Private Sub Command1_Click()
Timer1.Enabled = True
End Sub

Private Sub Form_Load()
Timer1.Interva l = 1000
Timer1.Enabled = False
Command1.Capti on = "Comenzar"
End Sub

Private Sub Timer1_Timer()
Dim X As Integer
Randomize
X = Int(Rnd * 3 + 1)
Set Image1.Picture = ImageList1.Lis tImages(X).Picture
Select Case X
    Case 1
        BOTON1.Enabled = False
        BOTON2.Enabled = True
        BOTON3.Enabled = True
    Case 2
        BOTON1.Enabled = True
        BOTON2.Enabled = False
        BOTON3.Enabled = True
    Case 3
        BOTON1.Enabled = True
        BOTON2.Enabled = True
        BOTON3.Enabled = False
End Select
End Sub

Aca igualmente te dejo una imagen, para que te quede mas claro.::