Discussion :

[Lnmex]

J'amerai faire apparaitre un menu contextuel sous le pointeur avec un clic droit sur un formulaire.

Je ne vois pas comment l'afficher, j'ai essayé ça mais ça ne marche pas:
'en réalité j'ai plusieurs rectangles (qui ne sont pas des controls) et je souhaite l'afficher quand l'utilisateur clique sur un des petits rectangle.

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
 
    Private Sub Form1_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseClick
 
        If e.Button = Windows.Forms.MouseButtons.Right Then
 
            i = 0
            Do While Not i = numTriang
 
                r1 = New Rectangle(tabstructpresa(i).coordpresa.X, tabstructpresa(i).coordpresa.Y, 20, 20)
 
                If r1.Contains(New Point(e.X, e.Y)) Then
                    ContextMenuStrip.Show(e.X, e.Y)
                End If
                i = i + 1
            Loop
        End If
 
    End Sub

Merci!

[adn56]

SAlut,
Eh pourquoi ne pas utiliser le control tout pret qui va bien, livré avec VS
Le (tatadam) ContextMenuStrip, à poser sur sa form.
Puis dans le form load

Code :

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

1
2
3
4
5
6
7
8
9
        ' image et texte du menu contextuel
        menu1.Items(0).Text = "Pointer"
        menu1.Items(0).Image = Image.FromFile(Application.StartupPath & "\skin\pointage.gif")
        menu1.Items(1).Text = "Editer"
        menu1.Items(1).Image = Image.FromFile(Application.StartupPath & "\skin\edit.png")
        menu1.Items(2).Text = "Dupliquer"
        menu1.Items(2).Image = Image.FromFile(Application.StartupPath & "\skin\copier.png")
        menu1.Items(3).Text = "Supprimer"
        menu1.Items(3).Image = Image.FromFile(Application.StartupPath & "\skin\supp.png")

kenavo