如何通过代码在VB或VBA中添加WindowsMediaPlayer控件

打开VB，在左侧的工具箱下面的常规选项卡点击右键，选择“选择项”，稍等片刻，选择“COM组件”，选择WINDOWS MEDIA PLAYER即可

可以用Controls.ADD语句，比如添加一个label控件，在程序里是这样的

Set Lab = Controls.ADD("forms.Label.1", "Lab", Visible)

Add 方法

用于在 TabStrip 或多页中添加或插入一个标签或页，或通过其程序设计标识符 (ProgID) 在页或窗体中添加控件。

语法

对于多页和 TabStrip
Set Object = object.Add( [ Name [, Caption [, index]]])

对于其他控件
Set Control = object.Add( ProgID [, Name [, Visible]])

Add 方法的语法包括以下成分：

成分 描述
object 必需。有效对象名。
Name 可选。指定被添加的对象的名称。如果没有指定名称，系统将根据使用该窗体的应用程序的规则，产生一默认的名称。
Caption 可选。指定在标签或控件上出现的题注。如果没有指定题注，系统将根据使用该窗体的应用程序的规则，产生一默认的题注。
index 可选。表示页或标签在 Pages 或 Tabs 集合中的位置。若没有规定索引，系统会将页或标签添加到 Pages 或 Tabs 集合的末尾，并赋于它相应的索引值。
ProgID 必需。程序设计标识符。是用于标识对象类的、没有空格的文本串。ProgID 的标准语法是 ..。ProgID 会被映射为类标识符 (CLSID)。
Visible 可选。若对象为可见的（这是默认方式）则为 True；若对象为隐藏的则为 False。

设置

单个控件的 ProgID 值：

复选框 Forms.CheckBox.1
组合框 Forms.ComboBox.1
命令按钮 Forms.CommandButton.1
框架 Forms.Frame.1
图像 Forms.Image.1
标签 Forms.Label.1
列表框 Forms.ListBox.1
框架 Forms.MultiPage.1
选项按钮 Forms.OptionButton.1
滚动条 Forms.ScrollBar.1
数值调节钮 Forms.SpinButton.1
TabStrip Forms.TabStrip.1
文本框 Forms.TextBox.1
切换按钮 Forms.ToggleButton.1

说明

对于 MultiPage 控件，Add 方法返回一个 Page 对象。对于 TabStrip 控件，它返回 Tab 对象。集合的第一个 Page 或 Tab 的索引值为 0，第二个 Page 或 Tab的索引值为 1，依此类推。

对于一个对象的 Controls 集合，Add 方法返回一个响应指定 ProgID 的控件。添加控件之后，AddControl 事件发生。

设计时，必须使用 Microsoft Visual Basic for Applications Extensibility Library 的 Designer 属性在用户窗体的 Controls 集合中添加控件。Designer 属性返回 UserForm 对象。

下面的语法将返回特定控件的 Text 属性。

userform1.thebox.text
若在运行时间添加一个控件，必须用惊叹号语法引用该控件的属性。例如，要返回在运行时间添加的控件的 Text 属性，需用下面的语法：

userform1!thebox.text
注意 在运行时间可以更改控件的 Name 属性，但前提是这个控件必须是运行时用 Add 方法添加的。