?? module1.bas
字號:
Attribute VB_Name = "Mission"
Option Explicit
Public Const WM_LBUTTONDOWN = &H201 '鼠標左鍵按下消息的代碼
Public Const WM_RBUTTONUP = &H205 '鼠標右鍵松開消息的代碼
Private Const NIM_ADD = &H0 '表示要往任務欄中加入圖標
Private Const NIM_DELETE = &H2 '刪除圖標
Private Const NIF_ICON = &H2 '允許圖標顯示
Private Const NIF_MESSAGE = &H1 '允許圖標消息轉發
Private Const NIF_TIP = &H4 '允許圖標顯示圖標提示字符串
Private Type NOTIFYICONDATA '通知任務欄圖標狀態
cbSize As Long '本結構的長度
hWnd As Long '往任務欄安裝圖標的應用程序的窗體句柄,系統根據此發送消息給相應的應用程序
uid As Long '圖標的唯一標識,由安裝圖標的應用程序確定
uFlags As Long '圖標將接受或表示什么樣的行為
uCallbackMessage As Long '發給應用程序的回調消息,應當避免同系統預定義的消息相同,應大于WM_USER
hIcon As Long '圖標句柄,即欲在任務欄中顯示的圖標
szTip As String * 64 '如果圖標被允許顯示TIP的話,那么當鼠標停留在任務欄圖標上一段時間,將顯示該串
End Type
Private Declare Function Shell_NotifyIcon Lib "shell32.dll" Alias "Shell_NotifyIconA" (ByVal dwMessage As Long, lpData As NOTIFYICONDATA) As Long '圖標操作
Public Function Icon_Add(iHwnd As Long, stips As String, hIcon As Long, IconId As Long) As Long
Dim IconVa As NOTIFYICONDATA
With IconVa
.hWnd = iHwnd
.szTip = stips + Chr$(0)
.hIcon = hIcon
.uid = IconId
.uCallbackMessage = WM_LBUTTONDOWN
.cbSize = Len(IconVa)
.uFlags = NIF_MESSAGE Or NIF_ICON Or NIF_TIP
End With
Icon_Add = Shell_NotifyIcon(NIM_ADD, IconVa)
End Function
Public Function Icon_Del(iHwnd As Long, lIndex As Long) As Long
Dim IconVa As NOTIFYICONDATA
Dim l As Long
With IconVa
.hWnd = iHwnd
.uid = lIndex
.cbSize = Len(IconVa)
End With
Icon_Del = Shell_NotifyIcon(NIM_DELETE, IconVa)
End Function
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -