cs_marsouin
Messages postés62Date d'inscriptionvendredi 11 avril 2003StatutMembreDernière intervention21 janvier 2007
-
14 mai 2005 à 23:18
cs_marsouin
Messages postés62Date d'inscriptionvendredi 11 avril 2003StatutMembreDernière intervention21 janvier 2007
-
20 mai 2005 à 19:15
Bonsoir à tous
Quelques questions sur les pictures Box
Quel code est utilisé pour répéter une picture box
exemple une picture de dessiner sur la form et au moment de l'execution apparaisse le nombre voulu de picture box?
J'imagine qu'il faut For (I) mais comment l'utiliser ?
J'aimerais aussi savoir comment faire pour qu'elle se place a des endroits précis dans la Form
jpleroisse
Messages postés1788Date d'inscriptionmardi 7 novembre 2000StatutMembreDernière intervention11 mars 200627 15 mai 2005 à 23:22
Bonsoir,
Pour essayer ce code, place 1PictureBox sur ta Form, mets sa propriété Index = 0, ensuite place 4 contrôles Images avec une image dans chacun des contrôles.
Place un CommandButton et le code.
Private Sub Command1_Click()
' Déclare la variable.
Dim I
' Positionne le Picture1(0) sur la Form
Picture1(0).Move 50, 1000, 800, 1000
' Crée d'autres Picture
For I = 1 To 3
' Crée un Picture
Load Picture1(I)
' Place et dimensionne le Picture
Picture1(I).Move I * 1000, 1000, 800, 1000
' Affiche le Picture
Picture1(I).Visible = True
Next I
End Sub
Private Sub Picture1_Click(Index As Integer)
If TypeOf ActiveControl Is PictureBox Then
Select Case Index
Case 0
Picture1(0).Picture = Image1.Picture
Case 1
Picture1(1).Picture = Image2.Picture
Case 2
Picture1(2).Picture = Image3.Picture
Case 3
Picture1(3).Picture = Image4.Picture
End Select
End If
End Sub
jpleroisse
Messages postés1788Date d'inscriptionmardi 7 novembre 2000StatutMembreDernière intervention11 mars 200627 15 mai 2005 à 23:30
Bonsoir,
Pour essayer ce code, place 1PictureBox sur ta Form, mets sa propriété Index = 0, ensuite place 4 contrôles Images avec une image dans chacun des contrôles.
Place un CommandButton et le code.
Private Sub Command1_Click()
' Déclare la variable.
Dim I
' Positionne le Picture1(0) sur la Form
Picture1(0).Move 50, 1000, 800, 1000
' Crée d'autres Picture
For I = 1 To 3
' Crée un Picture
Load Picture1(I)
' Place et dimensionne le Picture
Picture1(I).Move I * 1000, 1000, 800, 1000
' Affiche le Picture
Picture1(I).Visible = True
Next I
End Sub
Private Sub Picture1_Click(Index As Integer)
If TypeOf ActiveControl Is PictureBox Then
Select Case Index
Case 0
Picture1(0).Picture = Image1.Picture
Case 1
Picture1(1).Picture = Image2.Picture
Case 2
Picture1(2).Picture = Image3.Picture
Case 3
Picture1(3).Picture = Image4.Picture
End Select
End If
End Sub
jpleroisse
Messages postés1788Date d'inscriptionmardi 7 novembre 2000StatutMembreDernière intervention11 mars 200627 14 mai 2005 à 23:37
Bonsoir,
Je ne comprend pas très bien ce que tu veux faire ?.
Si c'est faire apparaitre des PictureBox sur ta Form par une procédure, place tes PictureBox aux endroits que tu désirs et mets leurs propriété visible sur False. Ensuite dans ta procédure tu remets les propiétés Visible sur True.
Sinon donne un peu plus de détails et si tu as déjà fait un code passe le.