程序師世界是廣大編程愛好者互助、分享、學習的平台,程序師世界有你更精彩!
首頁
編程語言
C語言|JAVA編程
Python編程
網頁編程
ASP編程|PHP編程
JSP編程
數據庫知識
MYSQL數據庫|SqlServer數據庫
Oracle數據庫|DB2數據庫
 程式師世界 >> 編程語言 >> Visual Basic語言 >> VB綜合教程 >> 設定Mouse 在某個固定范圍

設定Mouse 在某個固定范圍

編輯:VB綜合教程
Type RECT
    Left As Long
    Top As Long
    Right As Long
    Bottom As Long
End Type
Declare Function ClipCursor Lib "user32" (lpRect As Any) As Long
Declare Function ShowCursor Lib "user32" (ByVal bShow As Long) As Long
Declare Function SetCursorPos Lib "user32" (ByVal x As Long, _
    ByVal y As Long) As Long
Declare Function GetWindowRect Lib "user32" Alias "GetWindowRect" _
    (ByVal hwnd As Long, lpRect As RECT) As Long
'設定Mouse可移動的圍是在某個control項之內
Public Function toLockCursor(ByVal ctlHwnd As Long) As Boolean
Dim rect5 As RECT
Dim res As Long
GetWindowRect ctlHwnd, rect5 '取得window的四個角
rect5.Top = rect5.Top
rect5.Left = rect5.Left
rect5.Bottom = rect5.Bottom
rect5.Right = rect5.Right
SetCursorPos (rect5.Top + rect5.Bottom) \ 2, (rect5.Left + rect5.Right) \ 2
res = ClipCursor(rect5)
If res = 1 Then
  toLockCursor = True
Else
  toLockCursor = False
End If
End Function
'設定Mouse移動的圍為個螢幕
Public Sub toUnLockCursor()
Dim rscreen As RECT
rscreen.Top = 0
rscreen.Left = 0
rscreen.Right = Screen.Width \ Screen.TwipsPerPixelX
rscreen.Bottom = Screen.Height \ Screen.TwipsPerPixelY
ClipCursor rscreen
End Sub
例如:設定Mouse只能在Form的范圍
Private Sub Command1.Click()
Call toLockCursor(Me.hWnd)
End Sub
Private Sub Command2.Click()
Call toUnLockCursor()
End Sub
  1. 上一頁:
  2. 下一頁:
Copyright © 程式師世界 All Rights Reserved