滑鼠編程技巧二則

滑鼠編程技巧二則

一.通過滑鼠在螢幕上的移動來控制項程式介面

本例通過滑鼠在螢幕上的移動來控制程式表單的顯示與隱藏：當滑鼠移動到表單所在區域時表單顯示，反之隱藏起來。
僅需一條API函數：GetCursorPos。注意：如果需要將API函數置於模組中請對代碼作相應修改。
要嘗試本例，需給標準EXE工程缺省添加一個Timer控制項。
Private Type POINTAPI
x As Long
y As Long
End Type
Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Private Sub Form_Load()
Me.Visible = False
Timer1.Enabled = True
Timer1.Interval = 100
End Sub
Private Sub Timer1_Timer()
Dim lResult As Long
Dim lpPoint As POINTAPI
Dim iCounter As Integer
lResult = GetCursorPos(lpPoint)
If lpPoint.x < Me.Left \ Screen.TwipsPerPixelX Or lpPoint.x > (Me.Left + _
Me.Width) \ Screen.TwipsPerPixelX Or lpPoint.y < Me.Top \ _
Screen.TwipsPerPixelY Or lpPoint.y - 10 > (Me.Top + Me.Height) \ _
Screen.TwipsPerPixelY Then
Me.Visible = False '滑鼠在表單區域之外時
Else
Me.Visible = True '滑鼠在表單區域之內時
End If
End Sub



二.獲得Mouse_Exit事件
所謂Mouse_Exit事件，是指滑鼠指標離開某一控制項所應發生的事件。
本例是通過Form_MouseMove事件來判斷滑鼠指標是在表單之內還是表單之外的，你可根據需要作相應改動。
請給表單缺省創建一個按鈕(用於觀察效果)。
Private Declare Function SetCapture Lib "user32" (ByVal hWnd As Long) As Long
Private Declare Function ReleaseCapture Lib "user32" () As Long
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim MouseExit As Boolean
MouseExit = (0 <= X) And (X <= Me.Width) And (0 <= Y) And (Y <= Me.Height)
If MouseExit Then
Me.Caption = "滑鼠指標在表單範圍內"
Command1.Enabled = True
SetCapture Me.hWnd
Else
Me.Caption = "滑鼠指標在表單範圍外"
Command1.Enabled = False
ReleaseCapture
End If
End Sub

謝謝大大的無私分享YCT45B

感謝大大的分享哦~
YCT65B
                                                                                                   
希望大大可以...繼續的分享哦~

謝謝大大無私的分享
寫的真是深入淺出
連新手都可以看的董

但是如何讓一個滑鼠一直在遊戲中連點呢?
真想知道...

感謝大大的分享哦~
YCT34BYCT34B                                                                                                   
希望大大可以...繼續的分享哦~