Showing posts with label 【VISUAL VB NET】Tray Icon. Show all posts
Showing posts with label 【VISUAL VB NET】Tray Icon. Show all posts

Wednesday, May 12, 2021

【VISUAL VB NET】Tray Icon

Public Class Form1 Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load NotifyIcon1.Visible = False End Sub Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click NotifyIcon1.Visible = True NotifyIcon1.BalloonTipIcon = ToolTipIcon.Info NotifyIcon1.BalloonTipText = "Application working..." NotifyIcon1.BalloonTipTitle = "TrayIcon example application" NotifyIcon1.ShowBalloonTip(2000) End Sub Private Sub ShowToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ShowToolStripMenuItem.Click Show() End Sub Private Sub HideToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles HideToolStripMenuItem.Click Hide() End Sub Private Sub CloseToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles CloseToolStripMenuItem.Click Close() End Sub End Class