Question

在vb中怎样用controls.add添加windows media player控件

如题。
我知道用“load”方法可以，但我用的是VB的脚本语言，只能用controls.add加载控件。

Answer 1

Option Explicit
Dim WithEvents objExt As VBControlExtender

Private Sub Form_Load()
Licenses.Add "WMPlayer.OCX.7", "WMPlayer7"
Set objExt = Form1.Controls.Add("WMPlayer.OCX.7", "wmp1")
With objExt
.Visible = True
.Left = 50
.Height = 2000
End With
End Sub

上面引用类名为WMPlayer.OCX.7，可能不同版本类名也不同。
另外动态加载的控件没办法写事件代码，不如引用wmp的ocx版本.