EventHandler ne fonctionne pas

**gderenne** · 21/01/2009, 10h05

Bonjour,

Ce message est en relation avec celui-ci :
http://www.developpez.net/forums/d67...tifyicon-form/

Voici donc le problème.

J'ai créé un NotifyIcon dans un Main() pour qu'il ne dépende pas d'une WinForm.

Je voudrais que le ContextMenuStrip associé à cette NotifyIcon soit ouverte sur un clique de souris (géré pour réagir au clique droit uniquement).

Le problème est que l'EventHandler ne semble pas réagir à mon clique sur l'icône.

Voici le code :

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
36
37
38
39
40
41
42
43
Imports System.Windows.Forms
Imports System.ServiceProcess
Imports System.Timers
 
Module myNotifier
    Private components As System.ComponentModel.IContainer
    Friend WithEvents myNotifyIcon As NotifyIcon
 
    <STAThread()> _
    Public Sub Main(ByVal args As String())
        components = New System.ComponentModel.Container
        Application.EnableVisualStyles()
 
        CreateNotifyIcon()
 
        Application.Run()
 
    End Sub
 
    Sub CreateNotifyIcon()
        Dim myNotifyIcon As New NotifyIcon
        myNotifyIcon = New NotifyIcon(components)
 
        Dim iconstop As New System.Drawing.Icon("NotifyIcon1.Ico")
 
        AddHandler myNotifyIcon.Click, AddressOf myNotifyIcon_MouseRightClick
        myNotifyIcon.ContextMenuStrip = myContextMenuStrip
        myNotifyIcon.Icon = iconstop
        myNotifyIcon.Text = "myProject"
        myNotifyIcon.Visible = True
 
    End Sub
 
    Private Sub myNotifyIcon_MouseRightClick(ByVal sender As System.Object, _
                                            ByVal e As MouseEventArgs) _
                                            Handles myNotifyIcon.MouseClick, myNotifyIcon.Click
        If e.Button = MouseButtons.Right Then
            myNotifyIcon.ContextMenuStrip = myContextMenuStrip
            myNotifyIcon.ContextMenuStrip.Show()
        End If
 
    End Sub
End Module

Il y a forcément une boulette quelque part...

**tomlev** · 21/01/2009, 10h54

A vrai dire je me demande comment ton code peut compiler...

Code :

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

AddHandler myNotifyIcon.Click, AddressOf myNotifyIcon_MouseRightClick

Là dessus le compilateur devrait te jeter : la signature de la méthode myNotifyIcon_MouseRightClick ne correspond pas à celle de l'évènement. L'évènement Click est un EventHandler, et MouseClick est un MouseEventHandler : ce n'est donc pas la même signature pour les 2, et tu ne peux pas utiliser la même méthode. Il te faut donc 2 méthodes, une pour le Click et une pour le MouseClick (ou plutôt, il vaudrait mieux ne gérer qu'un seul des deux, vu qu'ils se déclenchent tous les 2...)

D'autre part, tu n'as pas besoin de gérer toi même le ContextMenuStrip... il suffit d'initialiser la propriété ContextMenuStrip au début, et c'est automatique

**gderenne** · 21/01/2009, 11h34

Salut,

Merci pour ta réponse, mais l'un ou l'autre, le ContextMenuStrip n'apparait toujours pas

Même en mettant en remarque la condition sur le bouton droit.

**tomlev** · 21/01/2009, 11h44

il est défini comment ton myContextMenuStrip ?

**gderenne** · 21/01/2009, 12h07

En fait, voici tout le code :

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
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
Imports System.Windows.Forms
Imports System.ServiceProcess
Imports System.Timers
 
Module myNotifier
    Private components As System.ComponentModel.IContainer
    Friend WithEvents myNotifyIcon As NotifyIcon
    Friend WithEvents myContextMenuStrip As ContextMenuStrip
    Friend WithEvents Setup As ToolStripMenuItem
    Friend WithEvents ToolStripSeparator1 As ToolStripSeparator
    Friend WithEvents AProposDe As ToolStripMenuItem
 
    <STAThread()> _
    Public Sub Main(ByVal args As String())
        components = New System.ComponentModel.Container
        Application.EnableVisualStyles()
 
        CreateNotifyIcon()
        CreateContextMenu()
 
        Application.Run()
 
    End Sub
 
    Sub CreateNotifyIcon()
        Dim myNotifyIcon As New NotifyIcon
        myNotifyIcon = New NotifyIcon(components)
 
        Dim iconstop As New System.Drawing.Icon("NotifyIcon1.Ico")
 
        AddHandler myNotifyIcon.Click, AddressOf myNotifyIcon_MouseRightClick
        myNotifyIcon.ContextMenuStrip = myContextMenuStrip
        myNotifyIcon.Icon = iconstop
        myNotifyIcon.Text = "myProject"
        myNotifyIcon.Visible = True
 
    End Sub
 
    Sub CreateContextMenu()
        Dim myContextMenuStrip As New ContextMenuStrip
        myContextMenuStrip = New ContextMenuStrip(components)
 
        Setup = New ToolStripMenuItem
        ToolStripSeparator2 = New ToolStripSeparator
        AProposDe = New ToolStripMenuItem
 
        myContextMenuStrip.Name = "ContextMenuStrip1"
        myContextMenuStrip.RenderMode = ToolStripRenderMode.System
        myContextMenuStrip.ShowCheckMargin = True
        myContextMenuStrip.ShowImageMargin = False
        myContextMenuStrip.Size = New System.Drawing.Size(202, 126)
        myContextMenuStrip.Text = "myProject"
 
        myContextMenuStrip.Items.Add(Setup)
        Setup.Name = "Setup"
        Setup.Size = New System.Drawing.Size(201, 22)
        Setup.Text = "Configurer"
        AddHandler Setup.Click, AddressOf Setup_Click
 
        myContextMenuStrip.Items.Add(ToolStripSeparator1)
        ToolStripSeparator1.Name = "ToolStripSeparator1"
        ToolStripSeparator1.Size = New System.Drawing.Size(198, 6)
 
        myContextMenuStrip.Items.Add(AProposDe)
        AProposDe.Name = "AProposDe"
        AProposDe.Size = New System.Drawing.Size(201, 22)
        AProposDe.Text = "A propos de..."
        AddHandler AProposDe.Click, AddressOf AProposDe_Click
 
    End Sub
 
 
    Private Sub myNotifyIcon_MouseRightClick(ByVal sender As System.Object, _
                                            ByVal e As MouseEventArgs) _
                                            Handles myNotifyIcon.MouseClick, myNotifyIcon.Click
        If e.Button = MouseButtons.Right Then
            ' myNotifyIcon.ContextMenuStrip = myContextMenuStrip
            myNotifyIcon.ContextMenuStrip.Show()
        End If
 
    End Sub
 
    Private Sub Setup_Click(ByVal sender As System.Object, _
                            ByVal e As System.EventArgs) _
                            Handles Setup.Click
        'SetupForm.Show()
 
    End Sub
 
    Private Sub AProposDe_Click(ByVal sender As System.Object, _
                                                 ByVal e As System.EventArgs) _
                                                 Handles AProposDe.Click
        'AboutBox1.Show()
 
    End Sub
 
End Module

**tomlev** · 21/01/2009, 12h16

En fait t'as rien changé par rapport à ce que je t'ai dit

Tu as toujours un handler pour Click qui ne correspond pas à la signature de l'évènement
De toutes façons ce handler ne sert à rien, il n'y a rien à faire pour afficher le menu contextuel. Enlève le handler de l'évènement Click, tu verras bien si ça marche

**Pol63** · 21/01/2009, 14h14

Envoyé par tomlev

A vrai dire je me demande comment ton code peut compiler...

Code :

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

AddHandler myNotifyIcon.Click, AddressOf myNotifyIcon_MouseRightClick

Là dessus le compilateur devrait te jeter : la signature de la méthode myNotifyIcon_MouseRightClick ne correspond pas à celle de l'évènement.

j'ai vu arriver ce comportement depuis vs 2008
à priori on peut faire des handles sans paramètres

peut etre encore une spécificité de vb, enfin ca doit dépendre des paramètres de compilation

**tomlev** · 21/01/2009, 14h21

Envoyé par sperot51

j'ai vu arriver ce comportement depuis vs 2008
à priori on peut faire des handles sans paramètres

peut etre encore une spécificité de vb, enfin ca doit dépendre des paramètres de compilation

argh... plus ça va, plus j'aime pas ce langage

**Pol63** · 21/01/2009, 14h46

faut pas dire ca ^^

c'est microsoft qui fout le bordel en nous prenant pour des noobs
et puis il reste possible de travailler dans de bonnes conditions en paramétrant un peu ...

**gderenne** · 21/01/2009, 14h49

Bah non, en fait, je ne comprend pas...

Donc, j'ai enlevé le Handles de la Sub qui se déclenche quand on clique.

J'ai testé avec ou sans :

Code :

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

AddHandler myNotifyIcon.Click, AddressOf myNotifyIcon_MouseRightClick

Et ça marche toujours pas.

Tu as tenté de compiler mon code dans un projet vierge ?

**gderenne** · 21/01/2009, 15h12

Salut,

Bon, ben, j'ai finalement trouvé, grâce en partie à vous.

En fait, le code ne peut être séparé pour créer le Notify et le ContextMenu.

Ils sont liés et donc le compilateur ne voyait pas que je voulais un ContextMenu tant qu'il n'avait pas vu ma Sub qui contenait le ContextMenu.

Pour trouver, j'ai tout rassemblé et le compilateur m'a dit que le ContextMenu devait être instancié pour être utilisé dans la Notify...

Donc, il ne faut pas séparer les 2 parties du code.

Voici la solution (on remarque que l'instanciation du ContextMenuStrip doit être faite avant "myNotifyIcon.ContextMenuStrip = myContextMenuStrip" :

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
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
Imports System.Windows.Forms
Imports System.ServiceProcess
Imports System.Timers
 
Module myNotifier
    Private components As System.ComponentModel.IContainer
    Friend WithEvents myNotifyIcon As NotifyIcon
    Friend WithEvents myContextMenuStrip As ContextMenuStrip
    Friend WithEvents Setup As ToolStripMenuItem
    Friend WithEvents ToolStripSeparator1 As ToolStripSeparator
    Friend WithEvents AProposDe As ToolStripMenuItem
 
    <STAThread()> _
    Public Sub Main(ByVal args As String())
        components = New System.ComponentModel.Container
        Application.EnableVisualStyles()
 
        Dim myNotifyIcon As New NotifyIcon
        myNotifyIcon = New NotifyIcon(components)
 
        Dim myContextMenuStrip As New ContextMenuStrip
        myContextMenuStrip = New ContextMenuStrip(components)
 
        Dim iconstop As New System.Drawing.Icon("NotifyIcon1.Ico")
 
        AddHandler myNotifyIcon.Click, AddressOf myNotifyIcon_MouseRightClick
        myNotifyIcon.ContextMenuStrip = myContextMenuStrip
        myNotifyIcon.Icon = iconstop
        myNotifyIcon.Text = "myProject"
        myNotifyIcon.Visible = True
 
        Setup = New ToolStripMenuItem
        ToolStripSeparator2 = New ToolStripSeparator
        AProposDe = New ToolStripMenuItem
 
        myContextMenuStrip.Name = "ContextMenuStrip1"
        myContextMenuStrip.RenderMode = ToolStripRenderMode.System
        myContextMenuStrip.ShowCheckMargin = True
        myContextMenuStrip.ShowImageMargin = False
        myContextMenuStrip.Size = New System.Drawing.Size(202, 126)
        myContextMenuStrip.Text = "myProject"
 
        myContextMenuStrip.Items.Add(Setup)
        Setup.Name = "Setup"
        Setup.Size = New System.Drawing.Size(201, 22)
        Setup.Text = "Configurer"
        AddHandler Setup.Click, AddressOf Setup_Click
 
        myContextMenuStrip.Items.Add(ToolStripSeparator1)
        ToolStripSeparator1.Name = "ToolStripSeparator1"
        ToolStripSeparator1.Size = New System.Drawing.Size(198, 6)
 
        myContextMenuStrip.Items.Add(AProposDe)
        AProposDe.Name = "AProposDe"
        AProposDe.Size = New System.Drawing.Size(201, 22)
        AProposDe.Text = "A propos de..."
        AddHandler AProposDe.Click, AddressOf AProposDe_Click
 
        Application.Run()
 
    End Sub
 
    Private Sub myNotifyIcon_MouseRightClick(ByVal sender As System.Object, _
                                            ByVal e As MouseEventArgs) _
                                            ' Handles myNotifyIcon.MouseClick, myNotifyIcon.Click
        ' If e.Button = MouseButtons.Right Then
            ' myNotifyIcon.ContextMenuStrip = myContextMenuStrip
            myNotifyIcon.ContextMenuStrip.Show()
        ' End If
 
    End Sub
 
    Private Sub Setup_Click(ByVal sender As System.Object, _
                            ByVal e As System.EventArgs) _
                            Handles Setup.Click
        'SetupForm.Show()
 
    End Sub
 
    Private Sub AProposDe_Click(ByVal sender As System.Object, _
                                                 ByVal e As System.EventArgs) _
                                                 Handles AProposDe.Click
        'AboutBox1.Show()
 
    End Sub
 
End Module

Par contre, comment .NET sait que je veux uniquement le clique droit de la souris pour afficher le ContextMenu ("If e.Button = MouseButtons.Right Then" est en remarque) ?!

EventHandler ne fonctionne pas

VB.NET

Vue hybride

Discussions similaires

Partager

Partager