怎樣限制鼠標(biāo)移動(dòng)

2019-11-18 17:52:58

字體：大中小

供稿：網(wǎng)友

本文介紹如何限制鼠標(biāo)在窗口的指定范圍內(nèi)移動(dòng)。這個(gè)技術(shù)在需要防止用戶鼠標(biāo)在指定區(qū)域內(nèi)活動(dòng)時(shí)非常
有用。例如在一個(gè)射擊游戲中，需要限制鼠標(biāo)在射擊區(qū)內(nèi)移動(dòng)。
操作步驟
1、建立一個(gè)新工程項(xiàng)目，缺省建立窗體FORM1
2、添加一個(gè)新模體
3、粘貼下面代碼到新模體

OptionExplicitDeclareFunctionClaspOINTAPI)AsLong
TypeRECT
LeftAsLong
TopAsLong
RightAsLong
BottomAsLong
EndType
TypePOINTAPI
XAsLong
YAsLong
EndType
PublicRetValueAsLong
PublicClipModeAsBoolean

PublicSubSetCursor(ClipObjectAsObject,SettingAsBoolean)
'usedtoclipthecursorintotheviewportand
'turnoffthedefaultwindowscursor

DimCurrentPointAsPOINTAPI
DimClipRectAsRECT

IfSetting=FalseThen
'setclipstatebacktonormal
RetValue=ClipCursorClear(0)
ExitSub
EndIf

'setcurrentposition
WithCurrentPoint
.X=0
.Y=0
EndWith
'findpositiononthescreen(notthewindow)
RetValue=ClientToScreen(ClipObject.hwnd,CurrentPoint)
'designatecliparea
WithClipRect
.Top=CurrentPoint.Y
.Left=CurrentPoint.X
.Right=.Left ClipObject.ScaleWidth
.Bottom=.Top ClipObject.ScaleHeight
EndWith'clipit
RetValue=ClipCursor(ClipRect)
EndSub

4、添加一個(gè)圖片框控件（PICTURE1）到窗體（FORM1）
5、設(shè)置PICTURE1的尺寸和FORM1的一樣大
6、在PICTURE1的CLICK事件中添加以下代碼：

PrivateSubPicture1_Click()
ClipMode=NotClipMode
SetCursorPicture1,ClipMode
EndSub

7、保存工程項(xiàng)目
8、運(yùn)行程序。在圖片框單擊鼠標(biāo)，鼠標(biāo)將被包含在圖片框控件的區(qū)域內(nèi)。要釋放限制狀態(tài)只需再次單擊鼠標(biāo)。
注意：如果釋放限制狀態(tài)失敗，鼠標(biāo)將被永久限制，只能用重新啟動(dòng)機(jī)器來(lái)解決。
另一個(gè)限制鼠標(biāo)活動(dòng)范圍的方法是關(guān)閉鼠標(biāo)，用其他圖象代替光標(biāo)，例如手槍。->

上一篇：怎樣捕捉窗體的鼠標(biāo)

下一篇：怎樣在VB5中使用OLEDRAGDROP事件從WindowsExplorer中拖放文件