Windows 7 x64 上的 VB6 应用程序参考 WMP答案

【问题标题】：VB6 app reference WMP on a Windows 7 x64Windows 7 x64 上的 VB6 应用程序参考 WMP
【发布时间】：2011-07-01 16:31:16
【问题描述】：

我帮助开发了一个程序，该程序可以让游戏玩家在全屏游戏打开时管理他们的音乐等。之前我在表单上有一个不可见的 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)

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

沮丧但感激，

-奥斯汀

【问题讨论】：

在我键入此内容时以 VB6 形式运行 Media Player 11 的实例。我认为您真正遇到的是 64 位问题，而不是 WMP 与 VB6 的问题。

标签： vb6 windows-7-x64 wmp

【解决方案1】：

试试这样的

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

【讨论】：