Question

我帮助开发了一个程序，可以让游戏玩家管理他们的音乐等等，而全屏游戏是开放的。之前我在表单上有一个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小时后返回的两个最多的搜索结果，所以任何帮助都表示赞赏。从我从W11的v11 +中发现的，我们一起停止支持VB6，任何人都可以确认这一点，如果是这样，让我知道一个解决方法吗？

感到沮丧但很感激，

-Austin

Answer 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

VB6应用程序在Windows 7 x64上引用WMP

1 个答案: