Global nid As NOTIFYICONDATA ...... With nid .cbSize = Len(nid) .hwnd = form1.hwnd .uId = vbNull .uFlags = NIF_ICON Or NIF_TIP Or NIF_MESSAGE .uCallBackMessage = WM_NOTIFYICON .hicon = frmView.Icon .szTip = frmView.Caption & vbNullChar End With
Shell_NotifyIcon NIM_ADD, nid form1.hide ......(運行完后) Shell_NotifyIcon NIM_DELETE, nid ......
运行完了,把它释放掉,就没了。
......
With nid
.cbSize = Len(nid)
.hwnd = form1.hwnd
.uId = vbNull
.uFlags = NIF_ICON Or NIF_TIP Or NIF_MESSAGE
.uCallBackMessage = WM_NOTIFYICON
.hicon = frmView.Icon
.szTip = frmView.Caption & vbNullChar
End With
Shell_NotifyIcon NIM_ADD, nid
form1.hide
......(運行完后)
Shell_NotifyIcon NIM_DELETE, nid
......