VB如何给窗体加控件

Question

VB程序运行使用时，总是可能时不时的觉得控件在编程的时候少加了，不够之类的。像QQ好友一样，编程时根本不知道到底有多少个好友，因此不能确定要多少个用来分组的控件，也不能定量的设置记录好友的标签。用来聊天的窗体在编程过程中也不得而知。这种情况跟效果怎么用VB实现啊。怎么能让它在运行状态下增加某个控件啊。

Answer 1

两种方法：
1. 用load方法添加控件数组，前提是你必须在设计时向窗体中添加一个控件，并将其index属性设置为0，然后在运行时使用：load 控件(控件.count) 添加,添加完后要将其Visible 属性设置为true才能看见

2. 用controls.add 方法添加，例如：
dim a as label
set a=窗体.controls.add("vb.label","控件名")
然后你就可以像普通控件一样操作a

Answer 2

在窗体上画一个text1, 设属性 index=0
Private Sub Form_Load()
Text1(0).Move 0, 0, 1000, 350
Dim i As Integer
For i = 1 To 5
Load Text1(i)
Text1(i).Move i * 500, i * 500
Text1(i).Visible = True
Next
End Sub追问

这个可以，可不可以在后面写上注释啊，不然我看不懂，就不活用了

追答

Private Sub Form_Load()
Text1(0).Move 0, 0, 1000, 350 '这个text1是在设计时创建的，它的属性 index 设置为0，就是第0个数组控件
Dim i As Integer
For i = 1 To 5 '示例：再创建5个text，它的index将依次是1、2、3、4、5
Load Text1(i) '创建控件数组
Text1(i).Move i * 500, i * 500 '将各控件左边和上边距离向右下移动，不然你看不见
Text1(i).Visible = True '显示各控件（默认是不显示的）
Next
End Sub

本回答被网友采纳

Answer 3

单击 控件

在form1中按下左键拉放 就可以了！！！

双击控件 就可以编程了

不会可以多看看VB基础书

Answer 4

一楼的就可以