Question

VB光标问题

Private Sub Command1_Click()
If Form1.ActiveControl Is Text1 Then
Text1.Text = Text1.Text & "1"
Else
Text2.Text =Text2.Text & "1"
End If
End Sub

我的意思是，要写一个判断，如果光标在文本框一中，那么，执行事件单击command1，文本框中输入1，但现在这个代码运行错误，应该是if..then之间的那段捕捉光标的有错误，请问这个if语句该怎么写？
结果有用追加10分！

Answer 1

这个程序这样是不行的，因为点了command1之后Form1.ActiveControl就从text1变为command1了。可以使用label控件等代替command控件
=====================================================
如果非要用command控件可以像下面这样就可以了
Dim ist1 As Boolean

Private Sub Command1_Click()
If ist1 = True Then
Text1.Text = Text1.Text & "1"
Else
Text2.Text = Text2.Text & "1"
End If
End Sub

Private Sub Form_Load()
ist1 = True
End Sub

Private Sub Text1_GotFocus()
ist1 = True
End Sub

Private Sub Text2_GotFocus()
ist1 = False
End Sub

Answer 2

因为你一按command 焦点自动就落在了command上了..

这个方法有用,哥们,给追个分吧.:
在text1的失去焦点的事件里添加类似代码就可以了..

Private Sub Command1_Click()
If Form1.ActiveControl Is Text1 Then
Text1.Text = Text1.Text & "1"
Else
Text2.Text = Text2.Text & "1"
End If
End Sub

Private Sub Text1_LostFocus()
If Form1.ActiveControl Is Command1 Then
Text1.SetFocus
Command1_Click
End If
End Sub

Answer 3

按你的意思修改如下：
Private Sub Command1_Click()
If Form1.ActiveControl.Name="Text1" Then
Text1.Text = Text1.Text & "1"
Else
Text2.Text =Text2.Text & "1"
End If
End Sub