请教焦点

KenjiSato

在 鼠标移动事件 中如何判断鼠标所指控件是否获得焦点？

谢谢！

KenjiSato

再请教：如何判断组合框已展开？

谢谢！

KenjiSato

THANKS!

cattjiu

Private Sub Combo0_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Me.ActiveControl.Name <> Me.Combo0.Name Then Me.Combo0.SetFocus

Me.Combo0.Dropdown
End Sub

KenjiSato

靠近了。
但上面的语句似乎少了 Me.Combo0.Setfocus
如果没有这句且当前焦点不在 Combo0 上会出错，所以我想先判断下 Combo0 是否已获得焦点，如果没有则 Me.Combo0.Setfocus 一下。

谢谢！

cattjiu

Private Sub Combo0_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
'MsgBox "aa"
Me.Combo0.Dropdown
End Sub
鼠标移动经过Conbo0时其自动下拉显示.

KenjiSato

不是这个意思，我想做：
一个组合框。当鼠标移到它上面时，该组合框的 鼠标移动 事件来判断该组合框是否获得焦点，如果没有，则让其获得焦点。

cattjiu

做个测试啊,每个事件都给个msgbox告诉你发生了啥事件.