编程模拟 MouseEnter,MouseExit 事件
来源:互联网 发布:excel 数据有效性范围 编辑:程序博客网 时间:2024/06/06 14:11
自己编程模拟 MouseEnter,MouseExit 事件
很多第三方的控件都提供的 MouseEnter 和 MouseExit 事件来补充 MouseMove 事件的不足(MouseMove 事件不能有效的捕获鼠标是否已在控件外),但是这些控件或要注册,或集合了其他实际没有什么作用控件,另外在程序中加入太多的控件也会影响程序的性能,利用 Windows 的 API 函数,我们可以在 MouseMove 中模拟 MouseEnter 和 MouseExit,虽然我提供的源代码中没有真正的这两个事件,但的确提供了这两个事件所具备的功能。好了!让我们实现吧。
首先加载一个模块,在模块中声明以下两个 API 函数:
Public Declare Function SetCapture Lib "user32" _
(ByVal hwnd As Long) As Long
Public Declare Function ReleaseCapture Lib "user32" () As Long
SetCapture 的功能是:设置鼠标捕获指定的窗口(Windows 每个控件都是一个窗口。比如桌面上显示的图标就是一个窗口,其实是两个,另一个显示描述这个图标的文本),系统将收到这个窗口所有的鼠标移动或击按的所有信息。
ReleaseCapture 的功能是:取消捕获鼠标信息。
Windows 系统就是一个消息系统,系统一直在等待用户的消息,并加一相应,但处理完一个消息后,系统有处以下一轮的等待。消息传递是 Windows 的核心。
让我们在 Form1 中放置一个按钮或其他控件,但此控件必须具有窗口句柄(hWnd),比如 VB 提供的 Image 控件是一个次图形控件,没有窗口句柄,而 Picture,Command Button 等控件就有窗口句柄,我们就拿 Command Button 来作示范,在 Form1 上放置一个 Command Button,在 Command1_MouseMove()事件内加入以下代码:
Private Sub Command1_MouseMove(Button As Integer, _
Shift As Integer, X As Single, Y As Single)
With Command1
'当鼠标在越出控件外
If Not ((X < 0) Or (Y < 0) Or _
(X > .Width) Or (Y > .Height)) Then
'鼠标指针在按钮外时,让其他控件也收到标事件
ReleaseCapture
'为了不让 MouseMove 事件反复触发
If .Caption <> "outside" Then
.Caption = "outside"
End If
'鼠标指针在按钮上,捕获他但鼠标移出是我们将收到鼠标事件
SetCapture .hwnd
Else
.Caption = "inside"
End If
End With
End Sub
- 编程模拟 MouseEnter,MouseExit 事件
- 《Java 编程技巧1001条》第413条 使用mouseEnter 和 mouseExit
- jQuery 事件 - mouseenter() 方法
- mouseover事件与mouseenter事件
- IsMouseOver 和MouseEnter\MouseLeave 事件
- mouseover事件与mouseenter事件的区别
- mouseover事件与mouseenter事件的区别
- mouseover事件与mouseenter事件的区别
- mouseover事件与mouseenter事件的区别
- mouseover 事件和mouseenter 事件的不同
- 为控件创建MouseEnter/MouseLeave事件
- jQuery中的mouseenter和mouseleave事件
- jQuery中的mouseenter和mouseleave事件
- jQuery中的mouseenter和mouseleave事件
- 事件mouseover/out和mouseenter/leave
- jQuery 事件:MouseOver/MouseOut vs MouseEnter/MouseLeave
- JavaScript事件mouseover和mouseenter的区别
- jQuery中的mouseenter和mouseleave事件
- 爱情=什么?代码回答你。
- 判断字符串是否是合法的EMail
- 美化 MSHFlexGrid,隔行设置颜色的通用函数
- Resize所有控件
- VB计算农历的算法
- 编程模拟 MouseEnter,MouseExit 事件
- [原创]ajax + cgi ?!
- 使用MsFlexGrid控件的几个函数
- 圆周率的计算(C语言版,绝对精华)
- 超越象牙塔:德里克·博克的大学理念
- window.open()的所有参数列表
- c++primer读书笔记1-13篇(转载)
- 迭代器模式分析上
- IPTV和数字电视的竞争