Question

VB如何实现，多个文本框被一个按钮控制，也就是单击一次，获得光标的文本框数值+1？

VB如何实现，多个文本框被一个按钮控制，也就是单击一次，获得光标的文本框数值+1
我点一下text1，按commond，text1数值+1，再点再加1，点text2，按commond，text2数值+1，再点再加1
就像这样的怎么实现

Answer 1

1、文本框清空抄
text1.text=""
text2.text=""
2、单击窗体 文本袭框2得到焦点百
Private Sub Form1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Click
TextBox2.focus()
End Sub
3、文本框1变动度，文本框2跟动
Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
text2.text=text1.text
End Sub

Answer 2

先在通用那里声明：Dim t_1,t_2,t_3 As Integer
Private Sub Command1_Click()
If t_1 > 0 Then
Text1.Text = Val(Text1.Text) + 1
ElseIf t_2 > 0 Then
Text2.Text = Val(Text2.Text) + 1
ElseIf t_3 > 0 Then
Text3.Text = Val(Text3.Text) + 1
End If
End Sub

Private Sub Form_Load()
t_1 = 0
t_2 = 0
t_3 = 0
End Sub

Private Sub Text1_GotFocus()
t_1 = 1
t_2 = 0
t_3 = 0
End Sub

Private Sub Text2_GotFocus()
t_2 = 1
t_1 = 0
t_3 = 0
End Sub

Private Sub Text3_GotFocus()
t_3 = 1
t_1 = 0
t_2 = 0
End Sub

Answer 3

1. 发源码怕你调试不了

2. 留下邮箱这两天发你邮箱中

如图