PictureBox, groupes de controle et tableau à deux dimensions

Question

Bonjour,

J'essaie de realiser une application permettant de jouer au jeu reversi, mais je me heurte a un problème.
Pour définir mon interface, j'ai utilisé des PictureBox dans un frame, que j'ai reliées par un groupe de controle (grille()) : cela me donne donc une sorte de tableau à une dimension mais dans lequel je ne peux rentrer aucune valeur (car je n'ai pas réussi a lier une valeur à une PictureBox).
Le plateau de jeu du reversi étant composé de 8 lignes et 8 colonnes, il faudrait que je relie mes PictureBox a un tableau à deux dimensions.... Mais je n'y parviens pas.


Voici mon interface définie dans mon form : 
Private Sub Form_Load()

Grille(0).Width = 600
Grille(0).Height = 600
Grille(0).Visible = False


Dim col As Integer
Dim lig As Integer
Dim i As Integer


For i = 1 To 64
lig = ligne(i)
col = colonne(i)
Load Grille(i)
Grille(i).Left = Grille(0).Width * (col - 1) + 200
Grille(i).Top = Grille(0).Height * (lig - 1) + 300
Grille(i).Visible = True
Grille(i).Enabled = True
Next i


frm_grille.Width = 8 * Grille(64).Width + 400
frm_grille.Height = 8 * Grille(64).Height + 500
End Sub


Et les fonctions créées dans mon module :

Public Function ligne(ByVal indice As Integer) As Integer
'retourne la ligne correspondant š€ indice
ligne = ((indice - 1) Mod 8) + 1
End Function


Public Function colonne(ByVal indice As Integer) As Integer
'retourne la colonne correspondant š€ indice
colonne = ((indice - 1) \ 8) + 1
End Function

jmfmarques · Answer

Bonsoir,

Bien que la chose ne soit pas exactement la même,
tu trouveras dans le code de ce lien :
http://www.vbfrance.com/codes/DRESSAGE-AUTOMATIQUE-PARAMETRE-GRILLE-TEXTBOXES_40559.aspx
une partie qui traite ce problème arithmétique...
Analyse et prends ce dont tu as besoin ...

PictureBox, groupes de controle et tableau à deux dimensions

1 réponse

Votre réponse

Discussions similaires