国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

首頁 > 學院 > 開發設計 > 正文

怎樣捕捉窗體的鼠標

2019-11-18 17:52:55
字體：大 中 小
來源：轉載
供稿：網友
->這個技巧將向您展示如何使用捕捉光標的API函數阻止鼠標指針移出窗體。

注意！：如果窗體的BorderStyle屬性被設為sizeable（2或5），則當你改變窗體的大小時鼠標就會“逃脫”程序的監控！因此你最好把BorderStyle設為0、1、3或4。

步驟：
把以下代碼添加如模塊：
OptionExplicit

TypeRECT

LeftAsLong

TopAsLong

RightAsLong

BottomAsLong

EndType

DeclareFunctionCl
(l
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->
->

發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
主站蜘蛛池模板： 惠水县| 江油市| 蒙山县| 邹平县| 孟村| 贺兰县| 合川市| 汝城县| 中卫市| 宜兰县| 桓仁| 开阳县| 天柱县| 澄江县| 红原县| 大竹县| 利辛县| 灯塔市| 南投县| 鄂尔多斯市| 弥渡县| 岗巴县| 辽宁省| 四会市| 左云县| 胶州市| 城口县| 衡水市| 长治市| 冕宁县| 禹城市| 舒城县| 磴口县| 深水埗区| 定州市| 时尚| 灯塔市| 大厂| 华亭县| 绿春县| 夏津县|