UC知道VB托盘双击左键问题
来源：百度知道 编辑：UC知道 时间：2024/06/04 04:48:23
请问在程序最小化到托盘后怎样做到双击左键弹出程序呢？谢谢！
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim Result As Long
Dim msg As Long
msg = X
If Me.WindowState = vbNormal Then msg = 0
Select Case msg
Case WM_LBUTTONDBLCLK
MsgBox "鼠标左键双击", vbInformation, "JCWONG"
'添加你的代码
Case WM_RBUTTONUP
PopupMenu Sys
End Select
End Sub