崩溃中...VB托盘图标实现后.在picturebox1_MouseMove中如何实现双击托盘图标事件

来源：百度知道 编辑：UC知道 时间：2024/06/02 01:13:56
Private Sub picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) '

下面如何写代码才能实现双击打开窗口的目的???

'鼠标事件
Public Enum TrayRetunEventEnum
MouseMove = &H200
LeftUp = &H202
LeftDown = &H201
LeftDbClick = &H203
RightUp = &H205
RightDown = &H204
RightDbClick = &H206
MiddleUp = &H208
MiddleDown = &H207
MiddleDbClick = &H209
End Enum

Private Sub picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim cEvent As Single
cEvent = x / Screen.TwipsPerPixelX
Select Case cEvent
Case LeftDown ' Debug.Print "左键按下"

Case RightDown ' Debug.Print "右健按下"

Case LeftDbClick ' Debug.Print "左键双击"
show me '显示窗体
End Select
End sub

如果还有啥不明白的地方
请发短消息或加我百度Hi: newkedison