怎样捕捉窗体的鼠标
黑客防线网安网讯：->这个技巧将向您展示如何使用捕捉光标的API函数阻止鼠标指针移出窗体。 注意！：如果窗体的BorderStyle属性被设为sizeable（2或5），则当你改变窗体的大小时鼠标就会“逃脱”程序的...
->这个技巧将向您展示如何使用捕捉光标的API函数阻止鼠标指针移出窗体。
注意�。喝绻疤宓腂orderStyle属性被设为sizeable（2或5），则当你改变窗体的大小时鼠标就会“逃脱”程序的监控！因此你最好把BorderStyle设为0、1、3或4。
步骤：
把以下代码添加如模块：
OptionExplicit
TypeRECT
LeftAsLong
TopAsLong
RightAsLong
BottomAsLong
EndType
DeclareFunctionClipCursorLib"user32"_
(lpRectAsAny)AsLong
PublicSubDisableTrap(CurFormAsForm)
DimergAsLong
'声明过程变量
'设置新坐标
DimNewRectAsRECT
CurForm.Caption="释放鼠标"
WithNewRect
.Left=0&
.Top=0&
.Right=Screen.Width/Screen.TwipsPerPixelX
.Bottom=Screen.Height/Screen.TwipsPerPixelY
EndWith
erg&=ClipCursor(NewRect)
EndSub
PublicSubEnableTrap(CurFormAsForm)
DimxAsLong,yAsLong,ergAsLong
'声明过程变量
'设置新坐标
DimNewRectAsRECT
'得到TwipsperPixel
'窗体的ScaleMode必须设为Twips！！！
x&=Screen.TwipsPerPixelX
y&=Screen.TwipsPerPixelY
CurForm.Caption="捕捉鼠标"
'设置光标的范围
WithNewRect
.Left=CurForm.Left/x&
.Top=CurForm.Top/y&
.Right=.Left CurForm.Width/x&
.Bottom=.Top CurForm.Height/y&
EndWith
erg&=ClipCursor(NewRect)
EndSub
2、在窗体上添加两个命令按钮（CommandButton）。
3、把以下代码添加如Form1。
PrivateSubCommand1_Click()
EnableTrapForm1
EndSub
PrivateSubCommand2_Click()
DisableTrapForm1
EndSub
PrivateSubForm_Unload(CancelAsInteger)
'程序结束时释放鼠标。
DisableTrapForm1
EndSub->
->
网站维护教程更新时间:2012-04-03 01:09:23 【
打印此页】 【
关闭】
