Question

vb 怎样使窗口在鼠标移过时获得焦点？

我想在窗口失去焦点的状态下，当鼠标指针移动到窗口位置时，自动激活窗口，使其获得焦点，怎么办？

Answer 1

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
AppActivate Me.Caption
Me.SetFocus
End Sub

Answer 2

要用windows句柄 。
我给你这个思路，你上网上搜索一下。

Answer 3

确实，不知道lz 啥意思，也可能是这意思吧：
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
me.SetFocus

End Sub

Answer 4

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Form2.SetFocus
End Sub

不知道你是不是这个意思