国产探花免费观看_亚洲丰满少妇自慰呻吟_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->
->

發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
主站蜘蛛池模板： 平湖市| 新乐市| 马公市| 长顺县| 镇原县| 夏邑县| 云林县| 宜城市| 兴义市| 枣强县| 垦利县| 达州市| 永平县| 离岛区| 上林县| 涟水县| 阿克陶县| 景洪市| 莎车县| 都兰县| 古浪县| 晴隆县| 孟连| 中阳县| 南宁市| 蒲江县| 佛教| 罗源县| 东山县| 荃湾区| 鄂州市| 宣化县| 长顺县| 安阳市| 弥渡县| 灌南县| 镇赉县| 抚远县| 海阳市| 屯留县| 辽源市|