Управление MediaPlayer

[Blondinka86]

Подскажите, как создать объект MediaPlayer, чтобы им потом можно было управлять. Например, проигрывать трэки, останавливать, закрывать приложение и т.п.
Спасибо

[IgorGO]

поэкспериментируйте с SendKey.

а вообще, управлять MediaPlayer удобнее из самого MediaPlayer.
или Вы специализируетесь на придумывании задач, чтобы как-то напрячь местную публику?

извините, за внезапный соскок с темы, с автофильтрами разобрались?

[doober]

Кидаете на лист или форму контрол WindowsMediaPlayer
И делайте с ним все что угодно.
Но для начала немного почитать надо и быть на ты с VBA.

[Blondinka86]

WMP нужен мне не из любопытства. И мне важно создать объект WMP, а не просто как-то управлять им через вставку.
IgorGO, как вы представляете себе SendKeys в MediaPlayer? Использовать клавиатурные сокращения минимум неудобно, а потом нужно ставить таймаут на открытие окна.
ShellExecute работает хорошо для открытия, но вот управлять окном потом - проблема.
Подскажите просто, по какому пути идти:
Dim MediaPlayer1 As New WindowsMediaPlayer или использовать GetObject?

[IgorGO]

IgorGO, как вы представляете себе SendKeys в MediaPlayer

я и МедиаПлейер-то с трудом представляю... не то что SendKeys в нем...

[EducatedFool]

Самый простой вариант, как уже сказал doober, - расположить компонент на форме, и управлять им.
Но... вы не ищете легких путей)

Подскажите просто, по какому пути идти:
Dim MediaPlayer1 As New WindowsMediaPlayer или использовать GetObject

Я бы попробовал вариант с Dim MediaPlayer1 As New WindowsMediaPlayer

Увы, простейший вариант не работает:

Sub test()
    Dim WMP As New WindowsMediaPlayer
    WMP.URL = "E:\Music\123.mp3"
    WMP.Controls.Play
    WMP.Close
    Set WMP = Nothing
End Sub

Вот здесь есть инструкция по работе с Windows Media Player
(правда, на французском, но перевести или понять проблем не составит)
http://silkyroad.developpez.com/VBA/WindowsMediaPlayer/

Здесь есть другие способы создания объекта:
http://www.eggheadcafe.com/software/...ia-player.aspx

Но такой вариант тоже не сработал:

Sub test2()
    Set WMP = CreateObject("WMPlayer.OCX")
    WMP.URL = "E:\Music\123.mp3"
    WMP.Controls.Play
    WMP.Close:    Set WMP = Nothing
End Sub

Поищите здесь - может, что попадётся полезное...

[doober]

Но для начала немного почитать надо

Проверил,все управляется

Dim MPlayer
Private Sub CommandButton1_Click()
Set MPlayer = CreateObject("MediaPlayer.MediaPlayer.1")
MPlayer.Open "L:\Albums\Album3\06. ANOTHER BRICK IN THE WALL.mp3"
End Sub
Private Sub CommandButton2_Click()
MPlayer.Volume = MPlayer.Volume - 10
End Sub
Private Sub CommandButton3_Click()
MPlayer.Volume = MPlayer.Volume + 10
End Sub
Private Sub CommandButton4_Click()
MPlayer.stop
End Sub
Private Sub CommandButton5_Click()
MPlayer.pause
End Sub
Private Sub CommandButton6_Click()
MPlayer.Play
End Sub

[IgorGO]

Сережа, спасибо!
а то я смотрю на медиаплеейр и думаю, что жать, куда жать, ничего не понятно, теперь все как перед глазами. нажал CommandButton4 - это стоп.
нажал CommandButton6 - это плей.
не говоря уже о CommandButton2 и CommandButton3. добавить, убрать звук.
удобно и просто. и думать не надо.

[doober]

Плюс в том,что нашел сборник,послушал музыку нашей юности .Все руки не доходили

[Blondinka86]

На CreateObject("MediaPlayer.MediaPlayer.1") у меня пишет ошибку - run-time error '5' Invalid procedure call or argument
Библиотеки подключила и Set есть. Непонятно