请问如何根据用户的要求来显示文本框的数量

Question

比如说用户要输入10个数据 就显示10个文本框
要输入100个数据 就显示100个文本框请高手不吝赐教，谢谢！！！！！！！！！！

Answer 1

建立一个text1(0)为控件数组Private Sub Command1_Click()
    Dim i As Long
    
    
    For i = 1 To 10
        Load Text1(i)
        Text1(i).Left = 100
        Text1(i).Top = 100 * i
        Text1(i).Visible = True
    Next
End SubPrivate Sub Command2_Click()
    Dim i As Long
    
    
    For i = 1 To Text1.UBound
        Unload Text1(i)
    NextEnd Sub

Answer 2

就用数组吧，实现起来比较简单，还有一种方法是用controls.add动态添加控件的方法实现

Answer 3

Private Sub Command1_Click() Dim i  As Integer
 Dim x As Integer
 x = InputBox("输入个数")
 For i = 1 To Text1.UBound
   Unload Text1(i)
 Next
 For i = 1 To x - 1
    Load Text1(i)
    Text1(i).Left = Text1(i - 1).Left
    Text1(i).Top = Text1(i - 1).Top + Text1(0).Height + 100
    Text1(i).Visible = True
 NextEnd Sub

Answer 4

动态创建控件，我的网站上有，你可以下载看看。VB资料->查询“动态生成控件”；
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
免费的学习、交流、源码、工具下载网站，欢迎大家访问！
http://www.j2soft.cn/

Answer 5

要输入100个数据 就显示100个文本框
------------------
界面上估计比较乱了，此时可以考虑用GRID 来输入。