16,721
社区成员
发帖
与我相关
我的任务
分享关于鼠标的移动过程中获取鼠标在哪个控件上的问题，看到之前的帖子或许的比较无效率，这里贴出更加简单的办法。
没想到发帖要几份：）
Public Class Form1
Implements IMessageFilter
Private Sub Form4_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Application.AddMessageFilter(Me)
End Sub
Public Const WM_MOUSEMOVE As Integer = &H200
Function PreFilterMessage(ByRef m As Message) As Boolean Implements IMessageFilter.PreFilterMessage
If m.Msg = WM_MOUSEMOVE Then
MaskedTextBox1.Text = Control.FromHandle(m.HWnd).Name
Return False
End If
Return False
End Function
End Class
Public Class Form1
Implements IMessageFilter
Private Sub Form4_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Application.AddMessageFilter(Me)
End Sub
Public Const WM_MOUSEMOVE As Integer = &H200
Function PreFilterMessage(ByRef m As Message) As Boolean Implements IMessageFilter.PreFilterMessage
If m.Msg = WM_MOUSEMOVE Then
MaskedTextBox1.Text = Control.FromHandle(m.HWnd).Name
Return False
End If
Return False
End Function
End Class
...全文
请发表友善的回复…
发表回复
李察德-泰森 2020-05-25
- 打赏
- 举报
如果能获取鼠标在任意窗口的某个控件上才是真的猛
milaoshu1020 活跃的高手 2020-05-23
- 打赏
- 举报
这种情况还是发到博客比较好;
沪悠 2020-05-19
- 打赏
- 举报
自己结贴能不能把几份还我？我只是助人为乐啊
