Question

VB 判断焦点在不在 text1.text 之上？

Private Sub 光标右键菜单_Click()
if ???? then
N多代码....
end if

end sub

Answer 1

Private Sub Menu1_Click()
If Me.ActiveControl.Name = "Text1" Then
MsgBox "焦点在这"
End If
End Sub

追问

很好，很强大，还是万能的。厉害。

Answer 2

Private t As Boolean
Private Sub Text1_LostFocus()
t=true
End Sub
Private Sub Text1_GotFocus()
t=false
End Sub

if t=true then
msgbox "焦点 不在text1.text上 "
else
msgbox "焦点 在text1.text上 "

end if

追问

这个方法能用，但有些麻烦，这么多焦点来来去去的事件我会迷糊的。

Answer 3

加一个Timer控件
Private Sub Timer1_Timer()
Dim a As String
a = Text1.Text
Text1.Text = ""
SendKeys "abc", True
If Text1.Text = "abc" Then Text1.Text = a: MsgBox "Text1有焦点"

End Sub

追问

我最恨那口钟了，而在都有五六口了！我的Pc是586，运行VB都有点卡，别说钟加多了！很遗憾对不起了啊.....