Discussion :

[zebrette]

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 :

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

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 :

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

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

[zebrette]

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

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

[labela]

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