2

我帮助开发了一个程序，它可以让游戏玩家在全屏游戏打开时管理他们的音乐等。之前我在表单上有一个不可见的 WMP 控件副本，并且只是操纵该副本以产生所需的效果，但现在我收到用户的请求，要求删除 WMP 控件，以便他们可以将软件放在他们的专用服务器上. 我的问题是如何通过删除控件来维护 WMP 支持，而是添加对 msdxm.ocx 或 wmp.dll（或两者）的引用并在运行时创建 WMP 对象？

我正在处理从 98 到 W7 的系统。使用 wmp.dll 和 msdxm.ocx 签入引用。

我已经尝试过：

Dim WMP as New WindowsMediaPlayer '(invalid use of Keyword New)

Dim WMP as WindowsMediaPlayer 
Set WMP = CreateObject("WMPlayer.OCX.7") '(failed to create WMP object)

这是 Google 搜索 4 小时后返回最多的两个搜索结果，因此我们不胜感激。根据我从 WMP 的 v11+ 中发现的所有内容不再支持 VB6，任何人都可以确认这一点，如果可以，请告诉我一个解决方法？

沮丧但感激，

-奥斯汀

4

1 回答 1

0

尝试这样的事情

Private Sub Form_Load()
    Dim oWMP As Object
    Set oWMP = Controls.Add("WMPlayer.OCX", "wmpPlayer1")
    oWMP.Move 0, 0, ScaleWidth, ScaleHeight
    oWMP.Visible = True
End Sub
于 2011-02-22T13:58:23.177 回答