vb中怎么添加控件?

1、首先打开VB6.0，选择“标准EXE”。

2、然后按下键盘上的“Ctrl+T”来选择部件。

3、在其中找到“Microsoft Multimedia Control 6.0”选项。

4、点击左侧的小框框来选中。

5、点击对话框下部的确定按钮来完成添加。

6、此时，工具箱内就会出现小部件。

7、点击小部件，然后在窗体中画出小部件。

8、画完后，展现效果图。

9、关于MMcontrol的设置可以在右侧进行。

10、就这样，MMcontrol添加成功，可以为它书写代码了。

使用数组方式，前提是已经初始化一个控件\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

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

---