Bonjour/Soir à tous , 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 : 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
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 ^^