VB6.0實現系統托盤
WINDOWS狀態欄也稱系統托盤，在WINDOWS9X中已有系統時鐘、音量控制、輸入法等程序在WINDOWS的狀態欄中設有圖標，一些應用程序在安裝完后也將它們本身的圖標放入了狀態欄中，如超級解霸、WINAMP等。通過在應用程序中有效地控制狀態欄中的圖標，不僅可以使應用程序具有專業水準，也方便了用戶的操作。VB做為一種使用很廣的高級語言，實現將圖標放入狀態欄的功能并不困難，只要有效地利用一個API函數 Shell_NotifyIcon和NOTIFYICONDATA數據結構就能達到這一目的，有關這兩者的定義和使用在程序中有詳細的注釋，在此就不再詳述了。
下面的這個程序運行后，將窗口圖標加入到了WINDOWS狀態欄中，用鼠標右擊該圖標會彈出一個菜單，可實現修改該圖標、窗口復位、最小化、最大化及關閉程序等功能。
在VB6中新建一工程，將FORM1的ScalMode的屬性設為3，加入一個image控件和一個對話框控件（要加入對話框控件，須在部件中選取Microsoft Common Dialog Control 6.0），將image1的visible屬性改為False，為該Form添加一個菜單，菜單設置如下：
| 標題 | 名稱 |
| 文件(&F) | mnuFile （一級菜單） |
| 退出(&E) | mnuExit （二級菜單） |
| Popup | mnuTray （一級菜單,去掉該項的"可見"項） |
| 更換圖標(&I) | mnuTrayChangeIcon (以下全為二級菜單) |
| 恢復(&R) | mnuTrayRestore |
| 最小化(&N) | mnuTrayMinimize |
| 最大化(&X) | mnuTrayMaximize |
| - | mnuTrayLine |
| 關閉(&C) | mnuTrayClose |
以下是程序清單：
| Option Explicit Private Declare Function Shell_NotifyIcon Lib "shell32.dll" Alias "Shell_NotifyIconA" (ByVal dwMessage As Long, lpData As NOTIFYICONDATA) As Long Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long Private Const WM_SYSCOMMAND = &H112 Private Const SC_RESTORE = &HF120& Private LastState As Integer '保留原窗口狀態 '---------- dwMessage可以是以下NIM_ADD、NIM_DELETE、NIM_MODIFY 標識符之一---------- Private Const NIM_ADD = &H0 '在任務欄中增加一個圖標 Private Const NIM_DELETE = &H2 '刪除任務欄中的一個圖標 Private Const NIM_MODIFY = &H1 '修改任務欄中個圖標信息 Private Const NIF_MESSAGE = &H1 'NOTIFYICONDATA結構中uFlags的控制信息 Private Const NIF_ICON = &H2 Private Const NIF_TIP = &H4 Private Const WM_MOUSEMOVE = &H200 '當鼠標指針移至圖標上 Private Const WM_LBUTTONUP = &H202 Private Const WM_RBUTTONUP = &H205 Private Type NOTIFYICONDATA cbSize As Long '該數據結構的大小 hwnd As Long '處理任務欄中圖標的窗口句柄 uID As Long '定義的任務欄中圖標的標識 uFlags As Long '任務欄圖標功能控制，可以是以下值的組合（一般全包括） 'NIF_MESSAGE 表示發送控制消息； 'NIF_ICON表示顯示控制欄中的圖標； 'NIF_TIP表示任務欄中的圖標有動態提示。 uCallbackMessage As Long '任務欄圖標通過它與用戶程序交換消息，處理該消息的窗口由hWnd決定 hIcon As Long '任務欄中的圖標的控制句柄 szTip As String * 64 '圖標的提示信息 End Type Dim myData As NOTIFYICONDATA Private Sub Form_Load() If WindowState = vbMinimized Then LastState = vbNormal Else LastState = WindowState End If With myData .cbSize = Len(myData) .hwnd = Me.hwnd .uID = 0 .uFlags = NIF_ICON Or NIF_MESSAGE Or NIF_TIP .uCallbackMessage = WM_MOUSEMOVE .hIcon = Me.Icon.Handle '默認為窗口圖標 .szTip = "提示" & vbNullChar End With Shell_NotifyIcon NIM_ADD, myData End Sub Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Select Case CLng(X) Case WM_RBUTTONUP '鼠標在圖標上右擊時彈出菜單 Me.PopupMenu mnuTray Case WM_LBUTTONUP '鼠標在圖標上左擊時窗口若最小化則恢復窗口位置 If Me.WindowState = vbMinimized Then Me.WindowState = LastState Me.SetFocus End If End Select End Sub Private Sub Form_Unload(Cancel As Integer) Shell_NotifyIcon NIM_DELETE, myData '窗口卸載時，將狀態欄中的圖標一同卸載 End Sub Private Sub mnuExit_Click() Unload Me End Sub Private Sub mnuTrayChangeIcon_Click() On Error GoTo ErrHandler With cdlOpen .CancelError = True ' 設置標志 .InitDir = App.Path ' 默認的文件夾為當前文件夾 .Flags = cdlOFNHideReadOnly ' 設置過濾器 .Filter = "圖標文件 (*.ico)|*.ico" ' 指定缺省的過濾器為圖標文件 .ShowOpen ' 顯示選定文件的名字 End With Image1.Picture = LoadPicture(cdlOpen.FileName) With myData .hIcon = Image1.Picture .uFlags = NIF_ICON End With Shell_NotifyIcon NIM_MODIFY, myData ErrHandler: ' 用戶按了"取消"按鈕 Exit Sub End Sub Private Sub mnuTrayClose_Click() Unload Me End Sub Private Sub Form_Resize() Select Case WindowState Case vbMinimized mnuTrayMaximize.Enabled = True mnuTrayMinimize.Enabled = False mnuTrayRestore.Enabled = True Case vbMaximized mnuTrayMaximize.Enabled = False mnuTrayMinimize.Enabled = True mnuTrayRestore.Enabled = True Case vbNormal mnuTrayMaximize.Enabled = True mnuTrayMinimize.Enabled = True mnuTrayRestore.Enabled = False End Select If WindowState <> vbMinimized Then LastState = WindowState End Sub Private Sub mnuTrayMaximize_Click() WindowState = vbMaximized End Sub Private Sub mnuTrayMinimize_Click() WindowState = vbMinimized End Sub Private Sub mnuTrayRestore_Click() SendMessage hwnd, WM_SYSCOMMAND, SC_RESTORE, 0& End Sub |