我代码copy上,以前的代码我就写的,下面的代码,是鼠标在移动的时候来判断是在托盘点了鼠标左键或是右键。麻烦各位看了,指点一下,谢谢了
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim lMsg As Single
lMsg = X / Screen.TwipsPerPixelX '''''就是这个值我不明白,为什么鼠标的水平坐标值 / Screen.TwipsPerPixelX:每一像素中的缇数 就能判断是在托盘点了鼠标左键或是右键,,。麻烦,那位高人给我解答一下,万公感谢!!!!
Select Case lMsg
Case WM_LBUTTONUP
'单击左键,显示窗体
Form1.Show
'ShowWindow Form1.hwnd, SW_RESTORE
'下面两句的目的是把窗口显示在窗口最顶层
'Me.Show
'Me.SetFocus
Case WM_RBUTTONUP
PopupMenu Form1.mnuTray '如果是在系统Tray图标上点右键,则弹出菜单MenuTray
'' Case WM_MOUSEMOVE
'' Case WM_LBUTTONDOWN
'' Case WM_LBUTTONDBLCLK
'' Case WM_RBUTTONDOWN
'' Case WM_RBUTTONDBLCLK
'' Case Else
End Select
' End Select
End Sub最后,就是Screen.TwipsPerPixelX 这个代码到底是表示什么?
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim lMsg As Single
lMsg = X / Screen.TwipsPerPixelX '''''就是这个值我不明白,为什么鼠标的水平坐标值 / Screen.TwipsPerPixelX:每一像素中的缇数 就能判断是在托盘点了鼠标左键或是右键,,。麻烦,那位高人给我解答一下,万公感谢!!!!
Select Case lMsg
Case WM_LBUTTONUP
'单击左键,显示窗体
Form1.Show
'ShowWindow Form1.hwnd, SW_RESTORE
'下面两句的目的是把窗口显示在窗口最顶层
'Me.Show
'Me.SetFocus
Case WM_RBUTTONUP
PopupMenu Form1.mnuTray '如果是在系统Tray图标上点右键,则弹出菜单MenuTray
'' Case WM_MOUSEMOVE
'' Case WM_LBUTTONDOWN
'' Case WM_LBUTTONDBLCLK
'' Case WM_RBUTTONDOWN
'' Case WM_RBUTTONDBLCLK
'' Case Else
End Select
' End Select
End Sub最后,就是Screen.TwipsPerPixelX 这个代码到底是表示什么?
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货