Discussion :

[king2070]

bonjour je veux créer des boutons de facon automatique exemple btn(6,6)
et je veux lorsque je clique sur un bouton un message box show l'emplacement du bouton (i,j)

comment faire pour que jaffiche c(6,5)

Code :

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

1
2
3
4
5
6
 Private Sub DynamicButton_Click(ByVal sender As Object, ByVal e As System.EventArgs)
 
         C(6, 6) = CType(sender, Button)
         MsgBox(C(6, 6).Text)
 
     End Sub

[rv26t]

Bonjour,

Exemple de manipulation

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
25
26
27
28
29
    Private Sub frmManipTextBox_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        CreButton()
        Chercher(6, 5)
        Chercher(6, 6)
    End Sub
 
    Sub CreButton()
        Dim Btn(6, 6) As Button
        For i As Integer = 0 To 6
            For j As Integer = 0 To 6
                Btn(i, j) = New Button()
                Btn(i, j).Name = "Button" & i & j
                Btn(i, j).Text = "Button" & i & j
                Btn(i, j).Top = (i) * 25
                Btn(i, j).Left = 20 + (j * 75)
                Btn(i, j).Tag = i & "|" & j
                AddHandler Btn(i, j).Click, AddressOf DynamicButton_Click
                Me.Controls.Add(Btn(i, j))
            Next
        Next i
    End Sub
 
    Private Sub DynamicButton_Click(ByVal sender As Object, ByVal e As System.EventArgs)
        MsgBox("Texte bouton : '" & CType(sender, Button).Text & "' - provenant du bouton " & Split(CType(sender, Button).Tag, "|")(0) & "," & Split(CType(sender, Button).Tag, "|")(1) & " de la matrice")
    End Sub
 
    Sub Chercher(ByVal i As Integer, ByVal j As Integer)
        MsgBox(DirectCast(Me.Controls("Button" & i & j), Button).Text)
    End Sub

A+, Hervé.

[king2070]

comment puis-je te remercier tu ma sauvé la vie frero c(et tre gentil