是加在系统托盘里吗?用API函数:
Private Declare Function Shell_NotifyIcon Lib "shell32.dll" Alias " Shell_NotifyIconA" (ByVal dwMessage As Long, lpData As NOTIFYICONDATA) As LongPrivate Type NOTIFYICONDATA
cbSize As Long '此Type的大小
hwnd As Long 'Form的hWnd
uID As Long '托盘图标的ID
uFlags As Long '要进行的操作
uCallbackMessage As Long '回掉事件
hIcon As Long '图标的hWnd
szTip As String * 64 '提示信息
End Type
Private Const NIF_MESSAGE = &H1
Private Const NIF_TIP = &H4
Private Const NIM_ADD = &H0 '增加图标
Private Const NIM_DELETE = &H2
Private Const NIM_MODIFY = &H1
Private Declare Function Shell_NotifyIcon Lib "shell32.dll" Alias " Shell_NotifyIconA" (ByVal dwMessage As Long, lpData As NOTIFYICONDATA) As LongPrivate Type NOTIFYICONDATA
cbSize As Long '此Type的大小
hwnd As Long 'Form的hWnd
uID As Long '托盘图标的ID
uFlags As Long '要进行的操作
uCallbackMessage As Long '回掉事件
hIcon As Long '图标的hWnd
szTip As String * 64 '提示信息
End Type
Private Const NIF_MESSAGE = &H1
Private Const NIF_TIP = &H4
Private Const NIM_ADD = &H0 '增加图标
Private Const NIM_DELETE = &H2
Private Const NIM_MODIFY = &H1
Private Declare Function Shell_NotifyIcon Lib "shell32.dll" Alias " Shell_NotifyIconA" (ByVal dwMessage As Long, lpData As NOTIFYICONDATA) As LongPrivate Type NOTIFYICONDATA
cbSize As Long '此Type的大小
hwnd As Long 'Form的hWnd
uID As Long '托盘图标的ID
uFlags As Long '要进行的操作
uCallbackMessage As Long '回掉事件
hIcon As Long '图标的hWnd
szTip As String * 64 '提示信息
End Type
Private Const NIF_MESSAGE = &H1
Private Const NIF_TIP = &H4
Private Const NIM_ADD = &H0 '增加图标
Private Const NIM_DELETE = &H2
Private Const NIM_MODIFY = &H1
Private Const WM_RBUTTONUP = &H205
在Form中添加一Image(当然,也可以是PictureBox),其中放上你的图标。
调用:
Dim Datas as NOTIFYICONDATA
With Datas
.cbSize=Len(Datas)
.hwnd=Me.hwnd
.uID=10
.uFlags=NIF_MESSAGE & NIF_TIP
.uCallbackMessage=WM_RBUTTONUP
.hIcon=Image1.hWnd
.szTip="提示语句"
End With
retValue=Shell_NotifyIcon( NIM_ADD ,Datas)
Private Declare Function Shell_NotifyIcon Lib "shell32.dll" Alias "Shell_NotifyIconA" (ByVal dwMessage As Long, lpData As NOTIFYICONDATA) As LongConst NIF_ICON = &H2
Const NIF_MESSAGE = &H1
Const NIF_TIP = &H4
Const NIM_ADD = &H0
Const NIM_DELETE = &H2
Const WM_RBUTTONUP = &H205
Private Type NOTIFYICONDATA
cbSize As Long
hwnd As Long
uID As Long
uFlags As Long
uCallbackMessage As Long
hIcon As Long
szTip As String * 64
End Type
Dim Datas As NOTIFYICONDATAPrivate Sub Form_Load() With Datas
.cbSize = Len(Datas)
.hwnd = Me.hwnd
.uID = 10&
.uFlags = NIF_ICON Or NIF_MESSAGE Or NIF_TIP
.uCallbackMessage = WM_RBUTTONUP
.hIcon = Image1.Picture
.szTip = "提示"
End With If Shell_NotifyIcon(NIM_ADD, Datas) = 0 Then
MsgBox "不能加入图标!"
End If
End Sub