如何判断鼠标所在位置的控件名称?

[csqiu]

如题.谢谢谢谢!!!!!!

[wangtopcool]

在窗体上放两个textbox控件
Private Sub Form_Load()
Me.ScaleMode = 3
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Text1.Text = X
Text2.Text = Y
End Sub

[wangtopcool]

晕,搞错了
没看清楚题目,不好意思

[唐古拉山]

只能取得控件的类名

另外，Label控件取不到类名称的

[byeshuang]

在你的每个控件的mousemove事件得到该控件的名称，就是很麻烦。呵呵

Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Command1.ToolTipText = Me.Command1.Caption
End Sub

[csqiu]

谢谢.我的本意是给每个控件加ToolTipText功能,但原先的控件没这个属性而且连 MouseMove的功能也没有,所以只好自己做.因而必须知道鼠标所在位置的控件名称.不知各位有和高招?谢谢.

[wangtopcool]

用个笨办法
Dim pRect As Rect

Private Sub Form_Load()
pRect.Left = Picture1.Left
pRect.top = Picture1.top
pRect.right = pRect.Left + Picture1.Width
pRect.buttom = pRect.top + Picture1.Height
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If X > pRect.Left And X < pRect.right And Y > pRect.top And pRect.buttom Then
Picture1.ToolTipText = "在Picture1内"
End If
End Sub

[byeshuang]

那就把那个控件的所在位置的范围记下来，鼠标一进入这个范围就取得控件名称。

[csqiu]

可是有多个控件啊.这样一来量太大.

[MagicianLiu]

可以实现：
大概思路：用GetCursorPos获得鼠标坐标X,Y（象素）
然后变量窗体内的控件集合(controls)
计算每个控件的坐标和长宽，转成在屏幕上的坐标（象素）。但是缇和象素不知道如何转换的。转换的不对，有的控件可以，有的不可以。

参考代码
Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Private Type POINTAPI '定义点(Point)结构
X As Long '点在X坐标(横坐标)上的坐标值
Y As Long '点在Y坐标(纵坐标)上的坐标值
End Type
Dim p As POINTAPI
GetCursorPos p
Me.Caption = p.X & "," & p.Y
For Each obj In Controls
If (p.X > (Me.Left + obj.Left) \ 15 And p.X < (Me.Left + obj.Left + obj.Width) \ 15) And (p.Y > (Me.Top + obj.Top) \ 15 And p.Y < (Me.Top + obj.Top + obj.Height) \ 15) Then '不好意思，象素和缇不知道咋转换。。
MsgBox obj.Name
Exit For
End If
Next

[byeshuang]

关注……

顶……