Discussion :

[waelamor]

slt
comment générer une matrice dynamique de picturebox suite a un click sur un button

[Jean-Marie Grave]

Bonjour wael amor.

Pouvez-vous préciser ce que vous entendez par "matrice de PictureBox ? S'agit-il de plusieurs PictureBox disposés sous forme matricielle dans un formulaire ?

Cordialement.

[waelamor]

plusieur picturebox disposer sous forme d'une matrice

[franticfranz]

Bonjour,

Et par "générer une matrice dynamique", vous entendez "créer dynamiquement un ensemble de picturebox" ?

Si c'est ça, voilà un exemple "brut de fonderie" à placer dans l'évènement Button_Click :

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 pb As PictureBox
 
        For x As Integer = 10 To 130 Step 40
            For y As Integer = 10 To 130 Step 40
                pb = New PictureBox
                pb.Top = y
                pb.Left = x
                pb.Width = 30
                pb.Height = 30
                pb.BackColor = Color.DarkRed
                Me.Controls.Add(pb)
            Next y
        Next x

Cordialement,
:FF:

[waelamor]

merci ca marche tres b1 et si je veut modifier l'mage d'un picture box just en clikant dessus ?

[Sankasssss]

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
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 
        Dim pb As PictureBox
 
        For x As Integer = 10 To 130 Step 40
            For y As Integer = 10 To 130 Step 40
                pb = New PictureBox
                pb.Top = y
                pb.Left = x
                pb.Width = 30
                pb.Height = 30
                pb.BackColor = Color.DarkRed
                Me.Controls.Add(pb)
                AddHandler pb.Click, AddressOf clickPicture
            Next y
        Next x
    End Sub
 
    Private Sub clickPicture(ByVal sender As Object, ByVal e As EventArgs)
        sender.BackColor = Color.Green ' A modifier
    End Sub

[waelamor]

merciii et maintenant j'aimerais savoir comment connaitre l'indice d'un picturebox ??
exemple si je veut faire un test sur un picturebox en utilisant son indice ?

[franticfranz]

Bonjour,

Vous pouvez "taguer" chaque picturebox.

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
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 
        Dim pb As PictureBox
        Dim numero As Integer
 
        numero = 1
        For x As Integer = 10 To 130 Step 40
            For y As Integer = 10 To 130 Step 40
                pb = New PictureBox
                pb.Top = y
                pb.Left = x
                pb.Width = 30
                pb.Height = 30
                pb.BackColor = Color.DarkRed
                pb.Tag = numero
                Me.Controls.Add(pb)
                AddHandler pb.Click, AddressOf clickPicture
 
                numero += 1
            Next y
        Next x
    End Sub
 
    Private Sub clickPicture(ByVal sender As Object, ByVal e As EventArgs)
        Dim clic_pict As PictureBox = DirectCast(sender, PictureBox)
        Dim lequel As Integer = CInt(clic_pict.Tag)
        MsgBox("C'est le n°" & lequel & " qui a été cliqué")
    End Sub

[waelamor]

merciiiiiiiiiiiiiiiiii bq

[franticfranz]

?