Как работать с Windows media player?

@Visualist · Регистрация: 01.02.2014

Author24 — интернет-сервис помощи студентам

Есть книга "Понятно о VB.Net", автор Лукин С.Н.
Там есть пример, как создать будильник. Звуковой сигнал там звучит с помощью Windows media player.
Я попытался сделать будильник на своем компе. Добавил на форму WMP, пытаюсь скопировать код с примера, но он у меня не работает.
Код:

VB.NET

1
2
3

MediaPlayer.AutoStart = False         'Чтобы не запускался слишком рано
MediaPlayer.PlayCount = 0               'Чтобы  закончив играть, начинал снова
MediaPlayer.FileName = "Mozart's Symphony No. 40.RMI"

У меня почему-то недоступно свойство AutoStart, PlayCount, FileName. Почему они недоступны?
Пишет "autostart" не является членом "AxWMPLib.AxWindowsMediaPlayer".

@Visualist · 09.08.2014, 13:16 **[ТС]**

Water Tower, уже нашел.

VB.NET

1	MediaPlayer.url = "...путь к файлу..." 'так музыка играет

В событии нажатия кнопки

VB.NET

1	MediaPlayer.url = "" 'музыка перестает играть

Но все равно, хотелось бы знать причину, почему не доступно

VB.NET

1 2	MediaPlayer.play() MediaPlayer.stop() 'и т.д.

@Visualist · 10.08.2014, 00:37 **[ТС]**

Поместите на форму Windows Media Player и дайте ему имя Звонок. Сделайте его невидимым. Для настройки звонка достаточно трех операторов в процедуре Form1_Load:

VB.NET

1
2
3

 Звонок.AutoStart = False         'Чтобы не запускался слишком рано
Звонок.PlayCount = 0               'Чтобы  закончив играть, начинал снова
Звонок.FileName = "Mozart's Symphony No. 40.RMI"

Помещаю на форму Windows Media Player и ни одного метода из перечисленных недоступно. Может версии VS разные. Я пишу в 2013, а примеры для 2005, кажется.

@~~KomuKak~~ · 10.08.2014, 14:49

Да автор какой-то вздор пишет, по ходу.
Вот http://msdn.microsoft.com/ru-r... s.85).aspx
И на MSDN описан AxWindowsMediaPlayer, у которого таких методов нет.

Добавлено через 14 минут
Здесь тоже http://msdn.microsoft.com/ru-r... s.85).aspx

Добавлено через 3 минуты
Ну есть где-то упоминания о каком-то Interop.WMPLib.dll (именно Interop, а не AxInterop), но раз даже в MSDN описана Ax-версия, то ее и надо использовать.

@Visualist · 10.08.2014, 15:35 **[ТС]**

Всем спасибо. Вопрос решен!

@Debasher · 29.08.2016, 14:31

VB.NET

Imports AxWMPLib
 
Public Class Form1
    Dim a As Boolean
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Плеер.URL = "C:\Windows\Media\Windows Logon Sound.wav"
    End Sub
 
    Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click
        Плеер.Ctlcontrols.play()
    End Sub
 
    Private Sub Button8_Click(sender As Object, e As EventArgs) Handles Button8.Click
        Плеер.Ctlcontrols.stop()
    End Sub
 
    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Плеер.URL = "C:\Users\Public\Music\Sample Music\Sleep Away.mp3"
    End Sub
 
    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        Плеер.URL = "C:\Users\Public\Music\Sample Music\Kalimba.mp3"
    End Sub
 
    Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
        Плеер.URL = "C:\Users\Public\Videos\Sample Videos\Wildlife.wmv"
    End Sub
 
    Private Sub Button9_Click(sender As Object, e As EventArgs) Handles Button9.Click
        a = True
    End Sub
 
    Private Sub Button11_Click(sender As Object, e As EventArgs) Handles Button11.Click
        Плеер.settings.rate = Плеер.settings.rate + 1
    End Sub
 
    Private Sub Button12_Click(sender As Object, e As EventArgs) Handles Button12.Click
        Плеер.settings.rate = 1
    End Sub
 
    Private Sub Button10_Click(sender As Object, e As EventArgs) Handles Button10.Click
        a = False
        Плеер.settings.playCount = 1
    End Sub
 
    Private Sub Плеер_PlayStateChange(sender As Object, e As _WMPOCXEvents_PlayStateChangeEvent) Handles Плеер.PlayStateChange
        If a = True Then
            Плеер.settings.playCount = Плеер.settings.playCount + 1
        End If
    End Sub
End Class

@~~KomuKak~~ Заблокирован
	10.08.2014, 14:49	4
	Сообщение было отмечено Visualist как решение Решение Да автор какой-то вздор пишет, по ходу. Вот http://msdn.microsoft.com/ru-r... s.85).aspx И на MSDN описан AxWindowsMediaPlayer, у которого таких методов нет. Добавлено через 14 минут Здесь тоже http://msdn.microsoft.com/ru-r... s.85).aspx Добавлено через 3 минуты Ну есть где-то упоминания о каком-то Interop.WMPLib.dll (именно Interop, а не AxInterop), но раз даже в MSDN описана Ax-версия, то ее и надо использовать. 0

@Visualist 52 / 52 / 25 Регистрация: 01.02.2014 Сообщений: 201
	10.08.2014, 15:35 [ТС]	5
	Всем спасибо. Вопрос решен! 0

	29.08.2016, 14:31

Как работать с Windows media player?

Решение