?? module1.bas
字號:
Attribute VB_Name = "Module1"
'----------------------
' 作者:段東良
' 99.5.17
'----------------------
'1、隱藏/顯示鼠標。
Public Declare Function ShowCursor Lib "user32" (ByVal bShow As Long) As Long
'2、定位鼠標。
Type rect
sbleft As Long
sbtop As Long
sbright As Long
sbbottom As Long
End Type
Public Declare Function ClipCursor Lib "user32" (lpRect As Any) As Long
'3、移動鼠標。
Public Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long
'4、鼠標坐標。
Type POINTAPI
x As Long
y As Long
End Type
Public Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
'鼠標鍵數。
Public Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -