Comment générer un cadrillage
william the new
Messages postés
27
Date d'inscription
mercredi 25 février 2004
Statut
Membre
Dernière intervention
24 juillet 2007
-
27 févr. 2004 à 18:07
cs_PROGRAMMIX Messages postés 1133 Date d'inscription mercredi 2 octobre 2002 Statut Membre Dernière intervention 24 juillet 2011 - 28 févr. 2004 à 09:34
cs_PROGRAMMIX Messages postés 1133 Date d'inscription mercredi 2 octobre 2002 Statut Membre Dernière intervention 24 juillet 2011 - 28 févr. 2004 à 09:34
1 réponse
cs_PROGRAMMIX
Messages postés
1133
Date d'inscription
mercredi 2 octobre 2002
Statut
Membre
Dernière intervention
24 juillet 2011
2
28 févr. 2004 à 09:34
28 févr. 2004 à 09:34
Tout dépend de comment tu comptes réaliser ton puissance 4.
Tu pourrais utiliser des lignes ou alors des shapes ou bien encore des picturebox (ces dernières offriraient l'avantage de pouvoir dessiner le pion qui est dedans).
Si tu utilises les picturebox, il te faut en dessiner une et lui mettre la propriété Index à 0 afin de signaler qu'il s'agit d'un groupe de contrôles.
Ensuite au chargement, tu crées une boucle du genre
Dim i as integer
Dim Largeur as integer
dim Hauteur as integer
Largeur = MaPictureBox(0).Width
Hauteur = MaPictureBox(0).Height
For i = 1 to 14
'Charge une nouvelle picturebox
Load MaPictureBox(i)
'La positionne
If i mod 4 = 0
MaPictureBox(i).Left = MaPictureBox(0).Left
MaPictureBox(i).Top = MaPictureBox(i-1).Top + Hauteur
Else
MaPictureBox(i).Left = MaPictureBox(i-1).Left + Largeur
MaPictureBox(i).Top = MaPictureBox(i-1).Top
End If
MaPictureBox(i).Visible = True
Programmix
Tu pourrais utiliser des lignes ou alors des shapes ou bien encore des picturebox (ces dernières offriraient l'avantage de pouvoir dessiner le pion qui est dedans).
Si tu utilises les picturebox, il te faut en dessiner une et lui mettre la propriété Index à 0 afin de signaler qu'il s'agit d'un groupe de contrôles.
Ensuite au chargement, tu crées une boucle du genre
Dim i as integer
Dim Largeur as integer
dim Hauteur as integer
Largeur = MaPictureBox(0).Width
Hauteur = MaPictureBox(0).Height
For i = 1 to 14
'Charge une nouvelle picturebox
Load MaPictureBox(i)
'La positionne
If i mod 4 = 0
MaPictureBox(i).Left = MaPictureBox(0).Left
MaPictureBox(i).Top = MaPictureBox(i-1).Top + Hauteur
Else
MaPictureBox(i).Left = MaPictureBox(i-1).Left + Largeur
MaPictureBox(i).Top = MaPictureBox(i-1).Top
End If
MaPictureBox(i).Visible = True
Programmix
