If Me.WindowState = vbMaximized Then
With nidProgramData
.cbSize = Len(nidProgramData)
.hwnd = Form1.hwnd
.uId = vbNull
.uFlags = NIF_ICON Or NIF_TIP Or NIF_MESSAGE
.uCallbackMessage = WM_MOUSEMOVE
.hIcon = Me.hIcon
.szTip = "Please don't close me" & vbNullChar
End With
Shell_NotifyIcon NIM_ADD, nidProgramData
End If
试试看
If Me.WindowState = vbMaximized Then
With nidProgramData
.cbSize = Len(nidProgramData)
.hwnd = Form1.hwnd
.uId = vbNull
.uFlags = NIF_ICON Or NIF_TIP Or NIF_MESSAGE
.uCallbackMessage = WM_MOUSEMOVE
.hIcon = Me.hIcon
.szTip = "Please don't close me" & vbNullChar
End With
Shell_NotifyIcon NIM_ADD, nidProgramData
End If
模块部没有写出来!自己写吧!