VB systeem vak icoon

[jwz104]

Ik wil graag bij mijn programma een icoon in het systeem vak.
ik gebruik deze code:

        Private Sub Button5_Click(sender As System.Object, e As System.EventArgs) Handles Button5.Click
        Me.ShowInTaskbar = False
        Dim tray As New NotifyIcon()
        tray.Visible = True

    End Sub

En ik gebruik deze code voor de click event maar hij klopt niet:

    Private Sub NotifyIcon1_click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NotifyIcon1.Click
        Me.WindowState = FormWindowState.Normal
    End Sub

Alleen bij de laatste NotifyIcon1 geeft hij een error aan:
Handles clause requires a WithEvents variable defined in the containing type or one of its base types.

Wat moet ik doen?

 

[MartinJM]

Het hangt ervan af hoe je je form verbergt.

Als je je form met 'form.hide' verbergt, moet je (volgens mij) 'form.show' gebruiken om het form weer te laten zien.
Als je je form verbergt met 'form.visible = false' dan moet je 'form.visible = true' gebruiken. Ik weet niet of ze ook gekruist werken...

MartinJM

 

[jwz104]

Het gaat niet om de form maar om de tray

 

[MartinJM]

Wat wil je dan dat er gebeurd bij het klikken op de notifyicon?

 

[jwz104]

oja,
dat Form2 ervoor komt.
maar ik heb nu dit script:

Dim tray As New NotifyIcon
tray.Visible = True
tray.Icon = Icon

En nu komt het icoon ervoor.
Nu heb ik een script nodig als iemand op button5 klikt dan moet er een melding voorkomen
en als ik op het icoon klik dan moet form2 ervoor komen

 

[MartinJM]

Zoiets?

[CPP]Public Class Form1

Private WithEvents NotifyIcon1 As New NotifyIcon

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
NotifyIcon1.Icon = Icon
NotifyIcon1.Visible = False
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
NotifyIcon1.Visible = True
NotifyIcon1.ShowBalloonTip(5000, "Title", "Message", ToolTipIcon.Info)
End Sub

Private Sub NotifyIcon1_BalloonTipClicked(ByVal sender As Object, ByVal e As System.EventArgs) Handles NotifyIcon1.BalloonTipClicked
Form2.ShowDialog()
End Sub

Private Sub NotifyIcon1_MouseDoubleClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles NotifyIcon1.MouseDoubleClick
Form2.ShowDialog()
End Sub
End Class[/CPP]