Question

VB如何根据用户输入的在数字自动生成相应label的个数?

假如用户输入3，然后在对话框中自动生成3个label窗口；举个例子：假如用户输入5，然后在对话框中自动生成5个label窗口；

Answer 1

楼上的回答正确，在窗体上放一个文本框text1、一个命令按钮command1、一个标签控件label1
其中label1的index设为0，text1的text设为1
命令按钮代码如下
Private Sub Command1_Click()
For i = 1 To Text1.Text
Load Label1(i)
Label1(i).Top = Label1(i - 1).Top + Label1(i - 1).Height+50
Label1(i).Left = Label1(i - 1).Left
Label1(i).Height = Label1(i - 1).Height
Label1(i).Caption = "Label1-" & i
Label1(i).Visible = True
Next i
End Sub

Answer 2

可以使用动态加载控件的办法

先在窗体上放置一个 label1 ，然后将其 index 属性设置为 0 ，就可以用下面方法冬天加载其余的了，比如加载三个。

For i = 1 To 3
    Load Label1(i)
    Label1(i).Caption = "label " & i
    Label1(i).Visible = True
    Label1(i).Top = Label1(i - 1).Top + Label1(i).Height + 20
Next i