Discussion :

[Henry9]

Bonjour,

Je voudrai réaliser un damier avec 10 cases en en longueur et 10 en hauteur.
Le problème avec mon code c'est qu'il apparaît seulement une ligne de 10 cases et une seul colonne de 10 cases.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim i As Integer
        Dim j As Integer
 
        For j = 2 To 10
            For i = 1 To 10
                Dim y As New Button
                y.Name = "Macase" & Str(i)
                Controls.Add(y)
                y.Left = 40 * i
                y.Top = 40
                y.Width = 40
                y.Height = 40
            Next
 
            Dim x As New Button
            x.Name = "Macase" & Str(j)
            Controls.Add(x)
            x.Left = 40
            x.Top = 40 * j
            x.Width = 40
            x.Height = 40
        Next
    End Sub

Donc comment je fais pour remerdier à ce problème ?

Merci d'avance



Sinon une question en plus, j'ai toujours pas compris l'utilité du indexof, à quoi c'est avantageux de se référer à l'indice de chaque item dans une collection ? Pourquoi ne pas simplement utiliser le (name) puisque chaque name est différent dans une form. Cette question me viens à l'esprit après avoir lu le cours sur wikipédia.

[belocom]

Voila le code. Si tu veux 10x10 cases, il faut "for j = 1 to 10"

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
  Dim i As Integer
        Dim j As Integer

        For j = 2 To 10
            For i = 1 To 10
                Dim y As New Button
                y.Name = "Macase" & Str(i) & Str(j)
                Controls.Add(y)
                y.Left = 40 * i
                y.Top = 40 * j 
                y.Width = 40
                y.Height = 40
            Next
        Next