网页功能: 加入收藏 设为首页 网站搜索  
怎样限制鼠标移动
发表日期:2003-07-21作者:[] 出处:  

本文介绍如何限制鼠标在窗口的指定范围内移动。这个技术在需要防止用户鼠标在指定区域内活动时非常

有用。例如在一个射击游戏中,需要限制鼠标在射击区内移动。

操作步骤

1、建立一个新工程项目,缺省建立窗体FORM1

2、添加一个新模体

3、粘贴下面代码到新模体

Option ExplicitDeclare Function ClipCursor Lib "user32" (lpRect As Any) As Long

Declare Function ClipCursorClear Lib "user32" Alias "ClipCursor" (ByVal lpRect As Long) As Long

Declare Function ClientToScreen Lib "user32" (ByVal hwnd As Long, lpPoint As POINTAPI) As Long

Type RECT

Left As Long

Top As Long

Right As Long

Bottom As Long

End Type

Type POINTAPI

X As Long

Y As Long

End Type

Public RetValue As Long

Public ClipMode As Boolean

Public Sub SetCursor(ClipObject As Object, Setting As Boolean)

' used to clip the cursor into the viewport and

' turn off the default windows cursor

Dim CurrentPoint As POINTAPI

Dim ClipRect As RECT

If Setting = False Then

' set clip state back to normal

RetValue = ClipCursorClear(0)

Exit Sub

End If

' set current position

With CurrentPoint

.X = 0

.Y = 0

End With

' find position on the screen (not the window)

RetValue = ClientToScreen(ClipObject.hwnd, CurrentPoint)

' designate clip area

With ClipRect

.Top = CurrentPoint.Y

.Left = CurrentPoint.X

.Right = .Left + ClipObject.ScaleWidth

.Bottom = .Top + ClipObject.ScaleHeight

End With ' clip it

RetValue = ClipCursor(ClipRect)

End Sub

4、添加一个图片框控件(PICTURE1)到窗体(FORM1)

5、设置PICTURE1的尺寸和FORM1的一样大

6、在PICTURE1的CLICK事件中添加以下代码:

Private Sub Picture1_Click()

ClipMode = Not ClipMode

SetCursor Picture1, ClipMode

End Sub

7、保存工程项目

8、运行程序。在图片框单击鼠标,鼠标将被包含在图片框控件的区域内。要释放限制状态只需再次单击鼠标。

注意:如果释放限制状态失败,鼠标将被永久限制,只能用重新启动机器来解决。

另一个限制鼠标活动范围的方法是关闭鼠标,用其他图象代替光标,例如手枪。

我来说两句】 【加入收藏】 【返加顶部】 【打印本页】 【关闭窗口
中搜索 怎样限制鼠标移动
本类热点文章
  在VB中使用WMI获取系统硬件和软件有关信..
  将繁体中文字转化成简体中文
  获取CPU的ID
  在vb程序中如何获取剪贴板中所复制的文..
  更新桌面图片
  VB编程破解Windows屏幕保护密码
  让程序的鼠标支持滚轮
  用VB创建Windows快捷方式(无需DLL)
  用vb调用系统输入法
  用VB制作IE工具条自定义按钮
  修改显示器的刷新频率
  vb实现多线程
最新分类信息我要发布 
最新招聘信息

关于我们 / 合作推广 / 给我留言 / 版权举报 / 意见建议 / 广告投放  
Copyright ©2003-2019 Lihuasoft.net webmaster(at)lihuasoft.net
网站编程QQ群   京ICP备05001064号 页面生成时间:0.0042