变量问题

Question

我有20个文本框  其命名分别为：no1,no2,no3,……,no20
随意修改其中文本框的数值  然后msgbox弹出该数值。
比如 我修改第五个文本框(no5)的数值  修改完毕 msgbox提示出 修改完的数值
请问这样的语句该怎么写？谢谢

Answer 1

在每个文本框的Change事件中添加如下代码：
比如第5个文本框：
msgbox("第5个文本框数值：" & no5.text)上面有点麻烦，建议用控件数组。

Answer 2

不好意思，上面那个行不通。应该用下面的：采用文本框的KeyPress事件
Private Sub no5_KeyPress(KeyAscii As Integer)
     if KeyAscii=13 then msgbox( "第5个文本框数值：" & no5.text)'输入完后按回车键      
End Sub   

Answer 3

文本框控件数组：
    比如你添加了一个文本框控件Text1，再复制一个该控件，粘贴的时候选择控件数组就行了，如此反复即可复制很多。最后形成的文本框是：Text1(0)、Text1(1)、Text1(2)、Text1(3)、Text1(4)、Text1(5)、Text1(6).....等。因为都编了号，操作起来方便一些。

Answer 4

采用文本框控件数组就简单了：Private Sub Text1_KeyPress(Index As Integer, KeyAscii As Integer)   
        'Index是控件的编号   
        If KeyAscii=13 Then   
           msgbox("第" & trim(str(Index +1)) & "个文本框数值：" & Text1(Index ).text)'输入完后按回车键          
        End If   
End Sub   

Answer 5

表示输入结束应该用Validate事件，这是通则。