cs_watcher69000
Messages postés8Date d'inscriptionmardi 7 juin 2005StatutMembreDernière intervention24 juin 2005
-
23 juin 2005 à 14:23
cs_watcher69000
Messages postés8Date d'inscriptionmardi 7 juin 2005StatutMembreDernière intervention24 juin 2005
-
24 juin 2005 à 08:58
Voici mon code:
Public Sub fonction_tapis()
Dim Pict As New PictureBox
Pict = PictureBox1
While Pict IsNot PictureBox29
Pict.BackColor = Color.Red
Me.Refresh()
Sleep(2000)
Pict.BackColor = Color.White
Me.Refresh()
Exit While
End While
End Sub
Tout marche nikel, mais le problème que j'ai c'est pour incrementer la pictureBox. Je suis bloquer a ce niveau la.En VB.
si quelqu'un peut m'aider c'est urgent!! merci d'avance!!
erti1711
Messages postés75Date d'inscriptionsamedi 2 avril 2005StatutMembreDernière intervention16 juin 20061 23 juin 2005 à 17:11
Public Sub fonction_tapis()
Dim Pict As New PictureBox
Dim i As integer
i=1
Pict = PictureBox & i
While Pict<>PictureBox30 or i <>30
Pict.BackColor = Color.Red
Me.Refresh()
Sleep(2000)
Pict.BackColor = Color.White
Me.Refresh()
i=i+1
End While
End Sub