intercepter l'event .click d'un context menu item

Version imprimable

Bonjour,

après plusieurs heure de tentatives infructueuses, je m'en remets aux experts:
J'essai de remplacer le menu contextuel par défaut qui s'affiche dans les winform lors d'un click droit sur une textbox. j'y parviens avec ceci:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 Public Class Form1 Public oItem1 As MenuItem Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim MyCM As New ContextMenu TextBox1.ContextMenu = MyCM oItem1 = MyCM.MenuItems.Add("item1") MyCM.MenuItems.Add("item2") End Sub End Class
au lancement de mon application j'ai donc la textbox1, et quand je click droit dessus, un menu avec "item1" et "item2" comme choix. Mais je n'arrive pas a intercepter l'événement .click sur les items. J'ai essayé plein de code de forums etc, il me manque toujours quelque chose. J'ai essayé ceci mais l'événement .click n'est apparement pas un system.eventArs, j'en ai essayé bien d'autre, sans succès.
Code:

1 2 3 4 5 6 Private Sub Clicked(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles oItem1.Click MsgBox("Clicked1") End Sub
une idée?

Merci,
Zebrette

j'ai trouvé, le code total donne ceci:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
 
Public Class Form1
 
    'declare les menu items avec des "protected events"
    'aucune idée de ce que ca veut vraiment dire
    Protected WithEvents menuItem0 As MenuItem
    Protected WithEvents menuItem1 As MenuItem
 
    ''' Initialisation du form
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'déclare le context menu
        Dim MyCM As New ContextMenu
        'remplace celui par défaut
        TextBox1.ContextMenu = MyCM
 
        'créer les items
        menuItem0 = New MenuItem("Item0")
        menuItem1 = New MenuItem("Item1")
 
        'ajoute les items au contextmenu
        MyCM.MenuItems.Add(menuItem0)
        MyCM.MenuItems.Add(menuItem1)
 
    End Sub
 
    '''Les deux subs correspondants aux protected withevents
    Private Sub Clicked0(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles menuItem0.Click
        MsgBox("Clicked-item0")
    End Sub
 
    Private Sub Clicked1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles menuItem1.Click
        MsgBox("Clicked-item1")
    End Sub
 
End Class

c'est en fait la déclaration des deux "protected WithEvents" qu'il manquait...
Problème résolu après environ 6h de forums je dirais, en espérant que d'autres y passent moins de temps.

inspiré de la source: http://forums.asp.net/t/977316.aspx

Zebrette

20/01/2011, 17h46
labela

Bonjour à tous

Merci zebrette pour le partage de l'information,
ca m'a bien aider moi aussi