Matrice de picturebox

Version imprimable

08/02/2013, 12h00
waelamor

Matrice de picturebox

slt
comment générer une matrice dynamique de picturebox suite a un click sur un button
10/02/2013, 12h20
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.
10/02/2013, 16h22
waelamor

plusieur picturebox disposer sous forme d'une matrice

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:

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:

22/02/2013, 15h01
waelamor

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

Code:

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

24/02/2013, 15h48
waelamor

merciii :P 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 ?

Bonjour,

Vous pouvez "taguer" chaque picturebox.

Code:

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

24/02/2013, 20h34
waelamor

merciiiiiiiiiiiiiiiiii bq:ccool:
24/02/2013, 21h28
franticfranz

http://www.developpez.net/forums/ima...ons/resolu.gif ?