[PictureBox][VB.net ]Capter l'evenement MouseUp

Version imprimable

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

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 ...

Re: [PictureBox][VB.net ]Capter l'evenement MouseUp

Il manque

Code:

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:

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

Re: [PictureBox][VB.net ]Capter l'evenement MouseUp

Citation:

Envoyé par neguib

Il manque

Code:

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:

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...