Discussion :

[Fundu31]

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

[baloub]

Bonjour,

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

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

[Fundu31]

Merci ! ça marche super !

[ZenZiTone]

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 :

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

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