| 本月文章推荐 |
捕捉MouseExit事件发表日期：2006-2-27
|
|
MouseDown、MouseUp、MouseMove。VB似乎提供了很好的Mouse事件。但好象还缺少什么！对！还差MouseExit（鼠标移出）事件。在VB中，我们要捕捉MouseExit事件，必须用API函数：
PrivateDeclareFunctionSetCaptureLib"user32"(ByValhWndAsLong)AsLong PrivateDeclareFunctionReleaseCaptureLib"user32"()AsLong 然后，我们可以在控件（以Picture1为例）的MouseMove事件上加上以下代码： WithPicture1'Changethistothenameofthecontrol IfButton=0Then If(X<0)Or(Y<0)Or(X>.Width)Or(Y>.Height)Then 'Mousepointerisoutsidebutton,soletothercontrolsreceive 'mouseeventstoo: ReleaseCapture '放入鼠标离开的代码 Else 'Mousepointerisoverbutton,sowe'llcaptureit,thus 'we'llreceivemousemessagesevenifthemousepointeris 'notoverthebutton SetCapture.hwnd '放入鼠标进入的代码 EndIf-> |
| 上一篇：按下某组键(HotKey)便执行某程式
人气:3371 下一篇：得知目前Mouse所指的MenuItem是哪一个 人气:2784 |
| 浏览全部Visual Basic的内容
Dreamweaver插件下载 网页广告代码 祝你圣诞节快乐 2009年新年快乐 |
