mouse.bas

来自「很好的教程原代码！」· BAS 代码 · 共 10 行

Attribute VB_Name = "modMouse"
Option Explicit
'
Declare Function GetSystemMetrics Lib "user32" _
    (ByVal nIndex As Long _
    ) As Long
Declare Function GetDoubleClickTime Lib "user32" () As Long
Public Const SM_CMOUSEBUTTONS = 43
Public Const SM_MOUSEPRESENT = 19