2020年8月4日 星期二

VB.NET 將程式縮小到程式列 [Minimize to notification bar] 

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
Private Sub Form1_Resize(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Resize
        If Me.WindowState() = FormWindowState.Minimized Then
            Me.Hide()
            With NotifyIcon1
                .BalloonTipIcon = ToolTipIcon.Info
                .BalloonTipText = "已縮小到系統列裡" '縮小時所顯示的文字
                .BalloonTipTitle = "文字腳本" '縮小時所顯示的標題
                .Text = "文字腳本" '滑鼠在上方時，所顯示的文字
                .Visible = True
                .ShowBalloonTip(2500) '顯示 BallonTip 內容
            End With
'如果現在的表單狀態 = 最小值(Minimized) 則縮小表單
        ElseIf Me.WindowState() = FormWindowState.Normal Then
            NotifyIcon1.Visible = False
'如果現在的表單狀態 = 一般(Normal) 則不縮小表單
End If
End Sub






1
2
3
4
5
6
Private Sub NotifyIcon1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles NotifyIcon1.Click
        Me.Show()
        Me.Activate()
        Me.WindowState = FormWindowState.Normal
        NotifyIcon1.Visible = False
End Sub



1
2
3
4
Private Sub btnMinimize_Click(sender As Object, e As EventArgs) Handles btnMinimize.Click
        Me.Hide()
        NotifyIcon1.Visible = True
End Sub
於
標籤： , , , ,

沒有留言:

張貼留言

訂閱： 張貼留言 (Atom)