Ссылка на приложение VB6 WMP на Windows 7 x64 - PullRequest
Новая
       26

Ссылка на приложение VB6 WMP на Windows 7 x64

2 голосов
/ 22 февраля 2011

Я помог разработать программу, которая позволяет геймерам управлять своей музыкой, помимо прочего, в то время как полноэкранная игра открыта. Раньше у меня была невидимая копия элемента управления 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 часов поиска в Google, поэтому любая помощь приветствуется. Из того, что я узнал из v11 +, WMP прекратил поддерживать VB6 все вместе, кто-нибудь может подтвердить это, и если да, то дайте мне знать об обходном пути?

Разочарованный, но благодарный,

-Austin

1 Ответ

0 голосов
/ 22 февраля 2011

Попробуйте что-то вроде этого 

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
...