Discussion :

[zitoun]

Salut,
Voilà, j'ai un petit problème. J'ajoute sur une form +eurs Picturebox à partir d'une base de donnée...

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
Private Sub FrmMap_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    ....
    ....
    Dim Path as string=System.IO.Path.GetDirectoryName(System.Reflection.Assembly.GetExecutingAssembly.Location)
    Dim X,Y as integer
    Dim Color as string
    For i as integer=1 to NbrePts
       SQL_LireCoordonnee(X,Y)
       SQL_LireCouleur(Color)
       Point=New PictureBox()
       Point.location=New System.Drawing.Point(X, Y)
       Point.Size = New System.Drawing.Size(20, 20)
       Dim Img As New Bitmap(Path & Color & ".gif")
       Point.image=Img
       Me.add(Point)
    next
    .....
    .....
End Sub

Ce code me permet d'avoir sur une form (Qui est une carte...) des points correspondant à X, Y et la couleure spécifié.
Mon probleme c'est que je ne sais pas comment capter l'evenement MouseUp sur ces Point (PictureBox)...Or je voudrai en cliquant sur un point (PictureBox) afficher certaine information ...

[neguib]

Il manque

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Private Sub FrmMap_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    '...
       Point.image=Img
 
       'abonner le contrôle à cet evenement avant de l'ajouter à la collection
       AddHandler Point.MouseUp, AddressOf Me.MaMethodeMouseUp
 
       Me.add(Point)
'...
End Sub

Ce qui demandera d'ailleurs peut être une gestion de la méthode du type

Code :

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

1
2
3
4
5
 
Private Sub MaMethodeMouseUp( Byval sender As Object, ByVal e As MouseEventArgs)
       Dim pB As PictureBox = CType(sender, PictureBox)
       '...etc...
End Sub

[zitoun]

Il manque

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Private Sub FrmMap_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    '...
       Point.image=Img
 
       'abonner le contrôle à cet evenement avant de l'ajouter à la collection
       AddHandler Point.MouseUp, AddressOf Me.MaMethodeMouseUp
 
       Me.add(Point)
'...
End Sub

Ce qui demandera d'ailleurs peut être une gestion de la méthode du type

Code :

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

1
2
3
4
5
 
Private Sub MaMethodeMouseUp( Byval sender As Object, ByVal e As MouseEventArgs)
       Dim pB As PictureBox = CType(sender, PictureBox)
       '...etc...
End Sub

Merci...
Et par la même occasion Bonne année...