VB鼠标的API函数大全VIP免费

1.变换鼠标左右键 添加 Command1 Private Declare Function SwapMouseButton Lib "user32" (ByVal bSwap As Long) As Long Private Sub Command1_Click() SwapMouseButton True MsgBox "退出前你现在是左撇子" End Sub Private Sub Form_Unload(Cancel As Integer) SwapMouseButton False MsgBox "鼠标左右键已灰复" End Sub 2.得知鼠标位置 '添加 Timer1 Option Explicit '*********************** 得知鼠标位置的 API ******************************* Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long Private Type POINTAPI X As Long Y As Long End Type '************************************************************************* Private Sub Form_Load() Timer1.Interval = 10 End Sub Private Sub Timer1_Timer() Dim Point As POINTAPI GetCursorPos Point Me.Caption = Point.X & " " & Point.Y End Sub 3.动画鼠标 '添加 Picture1 Option Explicit Private Const GCL_HCURSOR& = (-12) Private Declare Function SetClassLong& Lib "user32" Alias "SetClassLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) Private Declare Function LoadCursorFromFile& Lib "user32" Alias "LoadCursorFromFileA" (ByVal lpFileName As String) Private NewCursor1 As Long Private OldCursor1 As Long Private NewCursor2 As Long Private OldCursor2 As Long Dim appdisk$, winpath$ Private Sub Form_Load() appdisk = Trim(App.Path) If Right(appdisk, 1) <> "\" Then appdisk = appdisk & "\" winpath = Environ("windir") 'windows 系统路径 NewCursor1 = LoadCursorFromFile(winpath & "\cursors\appstart.ani") 'windows 的cursors 自带的.ani OldCursor1 = SetClassLong(Me.hWnd, GCL_HCURSOR, NewCursor1) NewCursor2 = LoadCursorFromFile(appdisk & "dinol.ani") OldCursor2 = SetClassLong(Picture1.hWnd, GCL_HCURSOR, NewCursor2) End Sub Private Sub Form_Unload(Cancel As Integer) SetClassLong Me.hWnd, GCL_HCURSOR, OldCursor1...