VB 2008 Express - Programm in den Tray (Per Button)

VB 2008 Express - Programm in den Tray (Per Button)

Moin Leute,
Ich habe mal eine kleine Frage.
Und zwar will ich ein Programm in den Tray minimieren lassen, wenn ich einen Button betätige.
Info dazu:
- Ico muss im Tray angezeigt werden.
- Ein Klick auf dem Ico. Und das Programm soll wieder sichtbar sein.
Kurz gesagt wie bei jeden anderen Programm

Info zum Button:
Es ist kein normaler Button sondern ein Button im "MenuStrip" kennt ihr ja sicherlich. ;)

Programm Info:
VB Version: VB 2008 Expres
Mein Programm benötigt: Net Framework 2.0

mfg DJK

Bitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben

Content-ID: 154197

Url: https://administrator.de/forum/vb-2008-express-programm-in-den-tray-per-button-154197.html

Ausgedruckt am: 23.12.2024 um 01:12 Uhr

8 Kommentare

Neuester Kommentar

Hallo,

dafür wäre es sehr hilfreich zu wissen von welchem VB du redest. VB6 oder .Net ;)

gruß
Tom

Moin Moin

Das ist ja alles ganz interessant, aber wie lautet jetzt deine genaue Frage?
Vielleicht teilst Du bei der Gelegenheit auch besser gleich mit unter welcher VB Version du das realisieren möchtest?

Gruß L.

Oh ja sorry VB 2008 Express
So ich hoffe das reicht ;)

@legoan000: Guck mal über dein Beitrag ;)

Es müsste ein Control Namens NotifyIcon in der Toolbox geben. Damit lässt sich das lösen.

Edit: Hier noch ein Link mit dem Code dazu.

Ich bräuchte nur noch ein Code.

Edit1: OK Danke werde ich ausprobieren.

So ich habe es jetzt so:

Private Sub ZumTrayMinimierenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ZumTrayMinimierenToolStripMenuItem.Click
Hier ist die Reihe die ich meinte
End Sub

Private Sub NotifyIcon1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles NotifyIcon1.Click
Me.ShowInTaskbar = True
Me.NotifyIcon1.Visible = False
Me.WindowState = FormWindowState.Normal
End Sub

Private Sub Form1_Resize(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Resize
If Me.WindowState = FormWindowState.Minimized Then
Me.ShowInTaskbar = False
Me.WindowState = FormWindowState.Minimized
Me.NotifyIcon1.Visible = True
End If
End Sub
End Class

Jetzt muss nur noch da wo die reihe mit den ** sind ein code rein das die Aktivietät ausgeführt wird.