7,764
社区成员
发帖
与我相关
我的任务
分享
'=============================
'事件:鼠标移动到托盘区图标时
'=============================
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, x As Single, Y As Single)
If Me.WindowState = 1 Then
Dim lMsg As Single
lMsg = x / Screen.TwipsPerPixelX
Select Case lMsg
Case WM_LBUTTONDBLCLK '双击打开窗体
ShowWindow Me.hwnd, SW_RESTORE
Me.SetFocus
Case WM_RBUTTONUP '在托盘图标上点右键显示菜单
SetForegroundWindow Me.hwnd
PopupMenu TuoPan '托盘图标右键菜单
End Select
End If
End Sub