VB中，如何实现：把鼠标控制在一个窗体之内。直到关闭窗体。谢谢

2003-11-24 09:50:44 155 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

用VBS控制鼠标（获取鼠标坐标、鼠标移动、鼠标单击、鼠标双击、鼠标右击）... 用VBS控制鼠标（获取鼠标坐标、鼠标移动、鼠标单击、鼠标双击、鼠标右击）标签：Excel.Application,VB,VBS,VBScript,Windows API,鼠标标题: 用VBS控制鼠标（获取鼠标坐标、鼠标移动、鼠标单击、鼠标双击、鼠标右击）作者: Demon 链接:http://demon.tw/programming/... 阅读详情

我这个问题问过，也有朋友回答。但，可能还有一点不好用。

比如我想控制在mdi的一个窗体中（可能这个窗体不是子窗体。）

...全文

VB程序界面设计经验点滴 VB程序界面设计经验点滴　　使用VisualBasic（以下简称VB, 版本为6.0SP4）可以快速设计出标准风格的Windows软件，但是要创建真正易用的图形界面，还有许多工作要做。一、窗体设计窗体设计的好坏往往影响到软件的整体形象，因此必须首先处理好窗体的设计问题。 1、窗体的边框　　窗体边框的默认风格为“Sizeable”(可变的)，但并不是所有窗体都可以使用可变边框。因为用户常常有意阅读详情

lbsoftware

VB基础类 7,788 成员 197,583 内容

+ 关注 + 加入社区

切换为时间正序

apple_boy 2004-01-26

打赏
举报

lihonggen0 2003-11-24

打赏
举报

Private Type RECT
left As Long
top As Long
right As Long
bottom As Long
End Type
Private Type POINT
x As Long
y As Long
End Type
Private Declare Sub ClipCursor Lib "user32" (lpRect As Any)
Private Declare Sub GetClientRect Lib "user32" (ByVal hWnd As Long, lpRect As RECT)
Private Declare Sub ClientToScreen Lib "user32" (ByVal hWnd As Long, lpPoint As POINT)
Private Declare Sub OffsetRect Lib "user32" (lpRect As RECT, ByVal x As Long, ByVal y As Long)

Private Sub Form_Unload(Cancel As Integer)
ClipCursor ByVal 0&
End Sub

Private Sub MDIForm_Load()
Dim client As RECT
Dim upperleft As POINT
GetClientRect Me.hWnd, client
upperleft.x = client.left
upperleft.y = client.top
ClientToScreen Me.hWnd, upperleft
OffsetRect client, upperleft.x, upperleft.y
ClipCursor client

End Sub

lihonggen0 2003-11-24

打赏
举报

Private Type RECT
left As Long
top As Long
right As Long
bottom As Long
End Type
Private Type POINT
x As Long
y As Long
End Type
Private Declare Sub ClipCursor Lib "user32" (lpRect As Any)
Private Declare Sub GetClientRect Lib "user32" (ByVal hWnd As Long, lpRect As RECT)
Private Declare Sub ClientToScreen Lib "user32" (ByVal hWnd As Long, lpPoint As POINT)
Private Declare Sub OffsetRect Lib "user32" (lpRect As RECT, ByVal x As Long, ByVal y As Long)
Private Sub Form_Load()
Command1.Caption = "锁定mouse"
Command2.Caption = "解开锁定"
End Sub
Private Sub Command1_Click()
Dim client As RECT
Dim upperleft As POINT
GetClientRect Me.hWnd, client
upperleft.x = client.left
upperleft.y = client.top
ClientToScreen Me.hWnd, upperleft
OffsetRect client, upperleft.x, upperleft.y
ClipCursor client
End Sub
Private Sub Command2_Click()
ClipCursor ByVal 0&
End Sub
Private Sub Form_Unload(Cancel As Integer)
ClipCursor ByVal 0&
End Sub

VB中，如何实现：把鼠标控制在一个窗体之内。直到关闭窗体。谢谢

相关推荐