vb中怎么添加控件?

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

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

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

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

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

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

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

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

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

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

Public IsExists As Boolean

Private Sub Command1_Click()

Dim lbl As Label

If IsExists = False Then

Set lbl = Me.Controls.Add("VB.Label", "lbl")

IsExists = True

lbl.Caption = "Label1"

lbl.Top = 200

lbl.Width = 7000

lbl.Visible = True

End If

End Sub

Private WithEvents Object As TextBox

Private Sub Command1_Click()

For i = 1 To 3

Set Object = Form1.Controls.Add("VB.textbox", "text" &i)

With Object

.Visible = True

.Text = "动态文本"

.Width = 1000

.Height = 500

.Top = Form1.Height / 2 - 100

.Left = 1000 * i

End With

Next i

End Sub

---