请教有关vb中的一个问题

来源：百度知道 编辑：UC知道 时间：2024/05/24 03:33:22
我的是vb06版本的，现在我打个比方：在一个窗体上有N个textbox和一个按钮，这个按钮我命名为数字1，现在我把光标停留在其中一个textbox上（也就是用鼠标点击了其中一个textbox），再点键钮，我想让这个textbox显示数字1，其他textbox不变，然后再把光标停留在另外的一个textbox上，点击按钮，被点击的textbox也显示为1，其他的textbox还是不变，这应该怎么做？请师兄些指点一下，也可以把大致的代码发到我的QQ信箱 290637593@qq.com

'N个textbox控件为一个控件组，就是说建立了一个text1后复制出来的

Dim a As Integer

Private Sub Command1_Click()
Text1(a).Text = "1"
End Sub

Private Sub Text1_GotFocus(Index As Integer)
a = Index
End Sub