我代码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  这个代码到底是表示什么?