[VB.Net] problème variable bouton

Version imprimable

Bonjour/Soir à tous :D, je rencontre un problème depuis peut, le code que je vais vous montrer fait en sorte que quant je clic-gauche sur la Form un nouveaux bouton se créer et ainsi de suite, il fait aussi en sorte que si on clic-droit sur n'importe quels boutons créer, alors il affiche une messagebox "test", mais voilà tout le problème le code prend en compte que le dernier bouton créer, en gros si j'essaye de faire un clic-droit sur n'importe quel bouton créer avant le dernier bouton....rien ne se produit, mais si je clic-droit sur le dernier bouton la messagebox "test" apparaît alors que je veux que la messagebox "test" apparaisse sur n'importe quel bouton créer.

Voici le code en question :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 Public Class Options_controls Public Num As Integer Public WithEvents btn As Button Public LocalMousePosition As Point Private Sub Options_controls_MouseClick(sender As Object, e As MouseEventArgs) Handles Me.MouseClick If e.Button = MouseButtons.Left And Form1.btn = 1 Then btn = New Button Num += 1 btn.Text = "Button" + Num.ToString LocalMousePosition = Me.PointToClient(Cursor.Position) btn.Location = New Drawing.Point(LocalMousePosition.X, LocalMousePosition.Y) Me.Controls.Add(btn) End If End Sub Private Sub btn_MouseDown(sender As Object, e As MouseEventArgs) Handles btn.MouseDown If e.Button = MouseButtons.Right And Form1.btn = 1 Then MsgBox("test") End If End Sub End Class
Voilà j'espère avoir été le plus compréhensible possible :)
Merci d'avance ^^

Bonjour,

Il faut nommer tes boutons et leur attacher un évènement mousedown

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Public Num As Integer
    Public WithEvents btn As Button
    Public LocalMousePosition As Point
    Private Sub Options_controls_MouseClick(ByVal sender As Object, ByVal e As MouseEventArgs) Handles Me.MouseClick
        If e.Button = MouseButtons.Left Then
            btn = New Button
            Num += 1
            btn.Text = "Button" + Num.ToString
            btn.Name = "Button" + Num.ToString
            LocalMousePosition = Me.PointToClient(Cursor.Position)
            btn.Location = New Drawing.Point(LocalMousePosition.X, LocalMousePosition.Y)
            Me.Controls.Add(btn)
            AddHandler Me.Controls(btn.Name).MouseDown, AddressOf btn_MouseDown
        End If
    End Sub
    Private Sub btn_MouseDown(ByVal sender As Object, ByVal e As MouseEventArgs)
        If e.Button = MouseButtons.Right Then
            MsgBox("test: " & sender.name)
        End If
    End Sub

15/07/2016, 13h48
Fundu31

Merci ! :D ça marche super !

Tu n'es pas obligé de nommer ton bouton. Tu peux directement faire dont Addhandler sur le bouton que tu es en train de créer :

Code:

1
2
3
4
5
6
7
8
9
If e.Button = MouseButtons.Left Then
            btn = New Button
            Num += 1
            btn.Text = "Button" + Num.ToString
            LocalMousePosition = Me.PointToClient(Cursor.Position)
            btn.Location = New Drawing.Point(LocalMousePosition.X, LocalMousePosition.Y)
            Me.Controls.Add(btn)
            AddHandler btn.MouseDown, AddressOf btn_MouseDown
        End If