欢迎光临
我们一直在努力

怎样限制鼠标移动_visualbasic教程

建站超值云服务器,限时71元/月

本文介绍如何限制鼠标在窗口的指定范围内移动。这个技术在需要防止用户鼠标在指定区域内活动时非常
有用。例如在一个射击游戏中,需要限制鼠标在射击区内移动。
操作步骤
1、建立一个新工程项目,缺省建立窗体FORM1
2、添加一个新模体
3、粘贴下面代码到新模体

OptionExplicitDeclareFunctionClipCursorLib”user32″(lpRectAsAny)AsLong
DeclareFunctionClipCursorClearLib”user32″Alias”ClipCursor”(ByVallpRectAsLong)AsLong
DeclareFunctionClientToScreenLib”user32″(ByValhwndAsLong,lpPointAsPOINTAPI)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
EndWithclipit
RetValue=ClipCursor(ClipRect)
EndSub

4、添加一个图片框控件(PICTURE1)到窗体(FORM1)
5、设置PICTURE1的尺寸和FORM1的一样大
6、在PICTURE1的CLICK事件中添加以下代码:

PrivateSubPicture1_Click()
ClipMode=NotClipMode
SetCursorPicture1,ClipMode
EndSub

7、保存工程项目
8、运行程序。在图片框单击鼠标,鼠标将被包含在图片框控件的区域内。要释放限制状态只需再次单击鼠标。
注意:如果释放限制状态失败,鼠标将被永久限制,只能用重新启动机器来解决。
另一个限制鼠标活动范围的方法是关闭鼠标,用其他图象代替光标,例如手枪。->

赞(0)
版权申明:本站文章部分自网络,如有侵权,请联系:west999com@outlook.com 特别注意:本站所有转载文章言论不代表本站观点! 本站所提供的图片等素材,版权归原作者所有,如需使用,请与原作者联系。未经允许不得转载:IDC资讯中心 » 怎样限制鼠标移动_visualbasic教程
分享到: 更多 (0)