vb 用命令创建控件

来源：百度知道 编辑：UC知道 时间：2024/05/05 15:01:57
我在一个vb的窗体上想创建一列共计50个label控件。以后在使用中会有些不用的。我想的是，是不是可以用代码来创建text,label这类的控件，而不用提前把这些控件从工具栏里面拖到窗口上。或者是我提前把50个label拖到窗口上，但是我一列整齐的排列下来，长度不够啊，要是右边能加一个滚动条也行。谢谢，不知道我说的清楚不？
不是说复制问题，，是说如何才能通过一个循环，我用好多就创建好多，或者是能怎么样，让我多一条上下的滚动条。其它不用的我可以自己隐藏掉？

你可以利用LOAD命令来实现控件的装入（应该叫控件数组)
一般的控件都有Visible属性来控制可见不可见。

用TEXT控件说吧。
在form上建立一个TEXT控件。

text控件属性如下：
index=0
name=text1

再建立一个COMMAND空间。CLICK事件中添加
For i = 1 To 20
Load Text1(i)
Text1(i).Top = i * 100
Text1(i).Visible = True
Next i

在VB中可以在程序运行时，通过Load方法添加或建立控件数组，通过unloads法删除数组中的某个控件。
(1)在窗体上画出某个控件，设置该控件的Index属性值为0，表示该控件为数组；也可以进行控件名的属性设置，这是建立的第1个元素。
(2)在编程时通过Load方法，添加其余若干个元素，也可以通过unload方法，删除某个添加的元素。
(3)每个新添加的控件，通过Ieft和top属性确定其在窗体的位置，并将Visible属性设置为True。

只有用控件数组了,首先创建一个控件,比如说Label1,然后给它的index属性取一个值，一般取0或1（我们就取0吧） 

然后添加2个命令按纽command1,command2 

最后写如下代码（我仅仅是举个例子，具体位置你自己去改） 

Option Explicit: Dim i As Integer, n As Integer 

Private Sub Command1_Click() 

n = Val(InputBox("你想创建好多个控件？")) 

For i = 1 To n 

Load&nb