求教VB中如何动态生成textbox控件

Question

如题所述

Answer 1

首先，在窗体画一个名为Text1的文本框，将其Index属性设置为0，Left属性设置为100，Top属性设置为100.

再在窗体上添加一个命令按钮，其单击事件代码如下：

Private Sub Command1_Click()
  Dim n As Integer
  n = InputBox("请输入要生成文本框的个数", , 5)
  For i = 1 To n - 1
    Load Text1(i)
    Text1(i).Left = 100
    Text1(i).Top = 100 + (Text1(i).Height + 100) * i
    Text1(i).Visible = True
  Next i
End Sub

运行程序，单击此按钮，即可根据你设定的个数生成TextBox控件。