VB6.0如何用代码添加控件？

使用数组方式，前提是已经初始化一个控件\x0d\x0a示例：\x0d\x0a存在一个text1(0)控件\x0d\x0aPrivate Sub Command1_Click()\x0d\x0aLoad Text1(1)\x0d\x0aText1(1).Top = Text1(0).Top + 500\x0d\x0aText1(1).Visible = True\x0d\x0aLoad Text1(2)\x0d\x0aText1(2).Top = Text1(1).Top + 500\x0d\x0aText1(2).Visible = True\x0d\x0aEnd Sub

1）运行VB6.0，新建一个标准EXE工程，将鼠标移到下图左侧工具箱的A按钮处。

2）双击该按钮，窗体上就会出现一个Label控件。

3）可对它进行属性设置，并移动到窗体需要的位置。接着可继续按前方法添加Label控件。

4）Label 控件， Label 控件是图形控件，可以显示用户不能直接改变的文本。

Form1.Controls.Add "VB.CommandButton", "cmdObj1", Frame1

在Frame1上画一个按钮

Add 方法（Controls 集合）示例

Private Sub Form_Load()

Form1.Controls.Add "VB.CommandButton", "cmdObj1", Frame1

With Form1!cmdObj1

.Visible = True

.Width = 2000

.Caption = "Dynamic Button"

End With

End Sub

注意 上面的代码例子使用 ! 作为一个语法要素。您也可以使用标准集合语法如 Form1.Controls("cmdObj1") 来引用该控件。

第二个例子使用 WithEvents 关键字声明一个 CommandButton 类型的对象变量，允许您编程该控件的事件。对象变量被设置为由 Add 方法返回的引用。要试验该例，把它的代码粘贴到声明部分并且运行该工程。

Option Explicit

Private WithEvents btnObj As CommandButton

Private Sub btnObj_Click()

MsgBox "This is a dynamically added button."

End Sub

Private Sub Form_Load()

Set btnObj = Controls.Add("VB.CommandButton", "btnObj")

With btnObj

.Visible = True

.Width = 2000

.Caption = "Hello"

.Top = 1000

.Left = 1000

End With

End Sub

第三个例子添加一个非引用控件到 Controls 集合。然而要编程这样一个控件的事件，必须声明一个 VBControlExtender 类型的对象变量，并把由这个方法返回的引用设置到该对象。然后使用 ObjectEvent 事件编程该控件的事件。

Option Explicit

Dim ctlExtender As VBControlExtender

Private Sub Form_Load()

Set ctlExtender = Controls.Add("Project1.UserControl1", "MyControl")

With ctlExtender

.Visible = True

.Top = 1000

.Left = 1000

End With

End Sub

Private Sub extObj_ObjectEvent(Info As EventInfo)

'使用 Select Case 编程该控件事件。

Select Case Info.Name

Case "UserName"

'检查用户名值。

MsgBox Info. EventParameters("UserName").Value

'现在显示其他情况

Case Else '未知事件

'这里处理未知事件。

End Select

End Sub

---