VB数字控制文本框数量

来源：百度知道 编辑：UC知道 时间：2024/06/22 06:34:27
我想写一个程序. 是这样的. 一个文本框. 如果文本框中输入3就显示3个文本框出来. 输入几就会出现几个小的文本框. 如何实现.

我想的是利用窗体. 新建一个窗体. 将值传过去. 可是我不会VB的写法. 望高手指点

新建一个窗体，在窗体上面放一个Text1，并设置Text1的Index属性为0，同时在窗体上面放置一个Command1，单击Command1的事件，在Text1中输入数值，点击command按钮将在界面生成对应数量的Text
Private Sub Command1_Click()
Dim i, j, k As Integer
j = 0
k = Text1(0).Text
For i = 1 To k
Load Text1(i)
Set Text1(i).Container = Form1
Text1(i).Visible = True
Next
For i = 1 To k
With Text1(i)
.Top = Text1(j).Top + 800
.Width = 975
.Left = 600
.Height = 375
j = j + 1
End With
Next
End Sub
由于太晚了，没有时间给你美工了，只是给你一个实现功能的方法，在深入的你就需要自己去考虑了

呵呵,问题位置怎么确定呢,我建议用点直观的办法:
预先画好足够的文本框,属性设置为,textbox(i).visible=fals,在输入数字的时候如果把数字数值传给i,相应的循环i次打开从0到i-1的texgbox(i).visible=true ,其实位置也容易一在运行时自动调整的,因为有位置属性,top=??.left=??等,至于运行时候重绘制文本框我想比较慢而且会复杂一点