Discussion :

[majej]

Bonjour,
Je génère des textbox dans un panel avec un certain nombre de propriété et je cherche à rajouter un événement "OnMouseDoubleClick" à toutes les textbox. J'ai regardé les instructuions "addHandler" mais j'avoue que je suis un peu perdu.

Voici mon code:

Code :

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

1
2
3
4
5
6
7
8
9
10
 
        For count = 0 To 200
            Dim r1 As New TextBox
            r1.BorderStyle = BorderStyle.Fixed3D
            r1.Dock = DockStyle.Fill
            r1.ForeColor = Color.Blue
 
            Panel.Controls.Add(r1, 0, count)
 
        Next

[tomlev]

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
For count = 0 To 200
            Dim r1 As New TextBox
            r1.BorderStyle = BorderStyle.Fixed3D
            r1.Dock = DockStyle.Fill
            r1.ForeColor = Color.Blue
            AddHandler r1.MouseDoubleClick, AddressOf textBox_MouseDoubleClick
 
            Panel.Controls.Add(r1, 0, count)
 
        Next
 
...
 
Private Sub textBox_MouseDoubleClick(sender As Object, e As MouseEventArgs)
   ...
End Sub

[majej]

Merci beaucoup pour cette réponse rapide et précise.
C'était pourtant simple ...