Не работает пример про медиаплеер из книги Лукина

@Userdelete · Регистрация: 04.10.2011

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

Добрый вечер уважаемые форумчане. Начал изучать vb.net по книге Лукина "Понятно о visual basic.net"
Дошёл до момента где рассказывается как управлять элементом "медиаплеер". Добавляю медиаплеер на форму, расставляю кнопки. Пишу код на кнопку, чтобы при нажатии на неё воспроизводился определённый файл.

VB.NET
1
2
Плеер.FileName = "E:\WINNT\Media\Windows Logon Sound.wav"
Плеер.Play()

Но VB говорит, что код неправильный. Пробовал не тупо копировать код, а вводит вручную, выбирая команды из списка после нажатия точки. Оказалось, что у медиаплееру в списке нет такого свойства как FileName.
Вот код приложения из книги

VB.NET
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
Private Sub Звук_загрузки_Windows_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _
Handles Звук_загрузки_Windows.Click
        Плеер.FileName = "D:\WINNT\Media\Windows Logon Sound.wav"
End Sub
 
Private Sub Каньон_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Каньон.Click
        Плеер.FileName = "D:\WINNT\Media\canyon.mid"
End Sub
 
Private Sub В_пещере_горного_короля_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _
                                                                       Handles В_пещере_горного_короля.Click
        Плеер.FileName = "D:\WINNT\Media\In the Hall of the Mountain King.RMI"
End Sub
 
Private Sub Штопор_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Штопор.Click
        Плеер.FileName = "D:\Program Files\Microsoft Visual Studio .NET\Common7\Graphics\videos\DRILLRLE.AVI"
End Sub
 
Private Sub Счетчик_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Счетчик.Click
        Плеер.FileName = "D:\Program Files\Microsoft Visual Studio .NET\Common7\Graphics\videos\COUNT24.AVI"
End Sub
 
Private Sub Notre_Dame_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Notre_Dame.Click
        Плеер.FileName = "D:\Documents and Settings\d\My Documents\Visual Studio Projects\Разное\Notre2.avi"
End Sub
 
Private Sub Старт_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Старт.Click
        Плеер.Play()
End Sub
 
Private Sub Стоп_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Стоп.Click
        Плеер.Stop()
End Sub
 
Private Sub Играть_непрерывно_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)  _
Handles Играть_непрерывно.Click
        Плеер.PlayCount = 0
End Sub
 
Private Sub Играть_1_раз_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Играть_1_раз.Click
        Плеер.PlayCount = 1
End Sub
 
Private Sub Быстрее_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Быстрее.Click
        Плеер.Rate = 2
End Sub
 
Private Sub В_обычном_темпе_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)  _
Handles В_обычном_темпе.Click
        Плеер.Rate = 1
End Sub

Можно было бы пока пропустить этот момент книги(мне кажется работа с медиаплеером не так важна), но всё же хочется разобраться сейчас, чтобы в будущем не возвращаться к этому.

Добавлено через 1 час 16 минут
Нашёл что-то по этому поводу, видимо в более новой версии это делается по другому......

VB.NET
1
2
3
4
Private Sub Button1_Click(ByVal sender As System.Object, _ByVal e As System.EventArgs) Handles Button1.Click
AxWindowsMediaPlayer1.URL = "c:\mediafile.wmv"
AxWindowsMediaPlayer1.Ctlcontrols.stop()
End Sub

Добавлено через 2 минуты
Вроде бы в начало кода надо дописать:

VB.NET
1
imports WMPLib

Если не сложно, объясните новичку как работать с медиаплеером...

@Treals · 16.10.2011, 22:52

VB.NET
1
2
3
4
5
6
7
8
9
10
11
12
13
Public Class Form1
    Dim mus As New Media.SoundPlayer
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        mus.Stream = My.Resources.DJ_Sisen___Havestar__Combichrist_Mix_
        mus.Play()
    End Sub
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 
    End Sub
 
End Class

Этот пример показывает воспроизведение музыки (.wav формата) из ресурса... Кинул бы пример как с компа воспроизвести но не помню точно

@Userdelete · 17.10.2011, 09:41 **[ТС]**

Treals, спасибо что откликнулся. Но всё же интересует приведение в работоспособность именно этого примера.

@KingManiya · 17.10.2011, 09:46

Treals, спасибо что откликнулся. Но всё же интересует приведение в работоспособность именно этого примера.

Так ты же сам в 1 посте привел пример как по новому работать?!?

@Userdelete · 17.10.2011, 11:42 **[ТС]**

KingManiya, да, приведённый мною ниже код работает. Но, есть вопросы. Зачем импортировать библиотеку WMPLib, без её импорта всё прекрасно работает?
Я извиняюсь если спрашиваю чушь))) Просто мне, как новичку, пока не всё понятно. Просто хочется с самого начала научиться писать правильно. И интересуют вот такие вот нюансы.

Eugene22 · 17.10.2011, 11:50

Userdelete, ее можно не импортировать, просто добавляешь компонент wmp с панели инструментов и делаешь с wmp что хочешь

@Userdelete · 17.10.2011, 11:59 **[ТС]**

Eugene22, спасибо за ответ. И ещё один маленький, возможно глупый, вопрос. В каких случаях её надо импортировать? Я полагаю, что если есть такая возможность, значит в ней есть необходимость.

Eugene22 · 17.10.2011, 12:02

Сообщение от Userdelete

В каких случаях её надо импортировать? Я полагаю, что если есть такая возможность, значит в ней есть необходимость.

точно не помню, но по-моему, если динамически создавать объект wmp, а не перетаскивая с панели инструментов, и если там даже туда не добавлен этот компонент, то там надо что-то из этой библы импортировать

@KingManiya · 17.10.2011, 12:16

Userdelete, подскажи что подключал и весь код объявления AxWindowsMediaPlayer1
У меня 2010 студия такого не знает и элемента такого в стандартных контролах нет.
Вообще

VB.NET
1
imports WMPLib

Служит для сокращения кода и его удобности.
Например я пишу

VB.NET
1
Imports System.Net.Sockets

И уже в коде я могу писать

VB.NET
1
Private server_Listener As TcpListener

А если бы я этого не сделал я бы постоянно писал длинные фразы типо:

VB.NET
1
Private server_Listener As System.Net.Sockets.TcpListener

Можно и по другому:

VB.NET
1
Imports System.Net

И уже в коде будет:

VB.NET
1
Private server_Listener As Sockets.TcpListener

То есть просто для удобства расширения пространства имен, что бы его 100 раз не писать.

Eugene22 · 17.10.2011, 12:20

Сообщение от KingManiya

Userdelete, подскажи что подключал и весь код объявления AxWindowsMediaPlayer1

На панели инструментов нажимаешь Добавить компонент (Add Components), затем в появившемся окне выбираешь на вкладке COM элемент windows media player и потом ты сможешь его перетащить с панели инструментов

@KingManiya · 17.10.2011, 12:29

На панели инструментов нажимаешь Добавить компонент (Add Components), затем в появившемся окне выбираешь на вкладке COM элемент windows media player и потом ты сможешь его перетащить с панели инструментов

У меня видимо особая панель инструментов, на которой я негде не нашел Добавить компонент.
Добавить компонент есть в в "Проект" в меню сверху, но там явно другое...
В Добавить ссылку есть вкладка COM и этот плеер, но он у меня в компоненты не добавляется(

Eugene22 · 17.10.2011, 12:44

KingManiya, сори неправильно я сказал - там пункт Выбрать компоненты/Choose items

@KingManiya · 17.10.2011, 12:55

Так добавил плеер, добавил 2 кнопки и без всяких импортов...

VB.NET
1
2
3
4
5
6
7
8
9
10
11
12
Public Class Form1
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        AxWindowsMediaPlayer1.URL = "E:\Музыка\Слезы асвальта.mp3"
        AxWindowsMediaPlayer1.Ctlcontrols.play()
 
    End Sub
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        AxWindowsMediaPlayer1.Ctlcontrols.stop()
    End Sub
End Class

Так что

VB.NET
1
 imports WMPLib

не нужно

@Лио · 09.12.2014, 23:45

Тема конечно старовата, но всё же может наверное кого-то и заинтересовать. Книга Лукина С.Н. 2005 года по VB.NET. Выполнил в VS 2010. Решение задачи выглядит так:

VB.NET
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
Public Class Form1
 
    Private Sub Аудио1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Аудио1.Click
        Проигрыватель.URL = "D:\Файлы пользователей\Пользователь\Документы\Visual Studio 2010\Projects\Видеопроигрыватель\Видеопроигрыватель\Ресурсы\Аудио1.mp3"
        Проигрыватель.Ctlcontrols.play()
    End Sub
 
    Private Sub Аудио2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Аудио2.Click
        Проигрыватель.URL = "D:\Файлы пользователей\Пользователь\Документы\Visual Studio 2010\Projects\Видеопроигрыватель\Видеопроигрыватель\Ресурсы\Аудио2.mp3"
        Проигрыватель.Ctlcontrols.play()
    End Sub
 
    Private Sub Аудио3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Аудио3.Click
        Проигрыватель.URL = "D:\Файлы пользователей\Пользователь\Документы\Visual Studio 2010\Projects\Видеопроигрыватель\Видеопроигрыватель\Ресурсы\Аудио3.mp3"
        Проигрыватель.Ctlcontrols.play()
    End Sub
 
    Private Sub Видео1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Видео1.Click
        Проигрыватель.URL = "D:\Файлы пользователей\Пользователь\Документы\Visual Studio 2010\Projects\Видеопроигрыватель\Видеопроигрыватель\Ресурсы\Видео1.mp4"
        Проигрыватель.Ctlcontrols.play()
    End Sub
 
    Private Sub Видео2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Видео2.Click
        Проигрыватель.URL = "D:\Файлы пользователей\Пользователь\Документы\Visual Studio 2010\Projects\Видеопроигрыватель\Видеопроигрыватель\Ресурсы\Видео2.mp4"
        Проигрыватель.Ctlcontrols.play()
    End Sub
 
    Private Sub Видео3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Видео3.Click
        Проигрыватель.URL = "D:\Файлы пользователей\Пользователь\Документы\Visual Studio 2010\Projects\Видеопроигрыватель\Видеопроигрыватель\Ресурсы\Видео3.mp4"
        Проигрыватель.Ctlcontrols.play()
    End Sub
 
    Private Sub Старт_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Старт.Click
        Проигрыватель.Ctlcontrols.play()
    End Sub
 
    Private Sub Стоп_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Стоп.Click
        Проигрыватель.Ctlcontrols.stop()
    End Sub
 
    Private Sub ИгратьНепрерывно_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ИгратьНепрерывно.Click
        Проигрыватель.settings.playCount = 0
    End Sub
 
    Private Sub Играть1Раз_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Играть1Раз.Click
        Проигрыватель.settings.playCount = 1
    End Sub
 
    Private Sub Быстрее_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Быстрее.Click
        Проигрыватель.settings.rate = Проигрыватель.settings.rate + 1
    End Sub
 
    Private Sub ОбычныйТемп_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ОбычныйТемп.Click
        Проигрыватель.settings.rate = 1
    End Sub
End Class

@tezaurismosis · 12.12.2014, 18:31

Раз уж подняли тему, кину ссыль на то, как добавить элемент Windows Media Player"
Как воспроизвести видео в форме?

artemktk · 07.11.2015, 14:59

Лио, Молодец! Мне тоже помог. А то, я уже 3 дня кручу по всякому, не могу понять в чём дело. Спасибо.

@Лио · 29.11.2015, 19:03

Сообщение от artemkotok

Лио, Молодец! Мне тоже помог. А то, я уже 3 дня кручу по всякому, не могу понять в чём дело. Спасибо.

Вот потому и выложил, сам так же точно возился.

Новые блоги и статьи Все статьи Все блоги /
Модель микоризы: классовый агентный подход anaschu 02.01.2026 Раньше это было два гриба и бактерия. Теперь три гриба, растение. И на уровне агентов добавится между грибами или бактериями взаимодействий. До того я пробовал подход через многомерные массивы,. . .	Учёным и волонтёрам проекта «Einstein@home» удалось обнаружить четыре гамма-лучевых пульсара в джете Млечного Пути Programma_Boinc 01.01.2026 Учёным и волонтёрам проекта «Einstein@home» удалось обнаружить четыре гамма-лучевых пульсара в джете Млечного Пути Сочетание глобально распределённой вычислительной мощности и инновационных. . .	Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Programma_Boinc 28.12.2025 Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Налог на собак: https:/ / ********/ gallery/ V06K53e Финансовый отчет в Excel: https:/ / ********/ gallery/ bKBkQFf Пост отсюда. . .	Кто-нибудь знает, где можно бесплатно получить настольный компьютер или ноутбук? США. Programma_Boinc 26.12.2025 Нашел на реддите интересную статью под названием Anyone know where to get a free Desktop or Laptop? Ниже её машинный перевод. После долгих разбирательств я наконец-то вернула себе. . .	Thinkpad X220 Tablet — это лучший бюджетный ноутбук для учёбы, точка. Programma_Boinc 23.12.2025 Рецензия / Мнение/ Перевод Нашел на реддите интересную статью под названием The Thinkpad X220 Tablet is the best budget school laptop period . Ниже её машинный перевод. Thinkpad X220 Tablet —. . .
PhpStorm 2025.3: WSL Terminal всегда стартует в ~ and_y87 14.12.2025 PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .	Как объединить две одинаковые БД Access с разными данными VikBal 11.12.2025 Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.	Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro	Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .	От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .

@Userdelete 3 / 1 / 0 Регистрация: 04.10.2011 Сообщений: 40
	17.10.2011, 09:41 [ТС]
	Treals, спасибо что откликнулся. Но всё же интересует приведение в работоспособность именно этого примера. 0

@Userdelete 3 / 1 / 0 Регистрация: 04.10.2011 Сообщений: 40
	17.10.2011, 11:42 [ТС]
	KingManiya, да, приведённый мною ниже код работает. Но, есть вопросы. Зачем импортировать библиотеку WMPLib, без её импорта всё прекрасно работает? Я извиняюсь если спрашиваю чушь))) Просто мне, как новичку, пока не всё понятно. Просто хочется с самого начала научиться писать правильно. И интересуют вот такие вот нюансы. 0

Eugene22 _ 2364 / 1243 / 78 Регистрация: 28.10.2009 Сообщений: 4,331
	17.10.2011, 11:50
	Userdelete, ее можно не импортировать, просто добавляешь компонент wmp с панели инструментов и делаешь с wmp что хочешь 0

@Userdelete 3 / 1 / 0 Регистрация: 04.10.2011 Сообщений: 40
	17.10.2011, 11:59 [ТС]
	Eugene22, спасибо за ответ. И ещё один маленький, возможно глупый, вопрос. В каких случаях её надо импортировать? Я полагаю, что если есть такая возможность, значит в ней есть необходимость. 0

Eugene22 _ 2364 / 1243 / 78 Регистрация: 28.10.2009 Сообщений: 4,331
	17.10.2011, 12:44
	KingManiya, сори неправильно я сказал - там пункт Выбрать компоненты/Choose items 1

@tezaurismosis Администратор 9673 / 4825 / 763 Регистрация: 17.04.2012 Сообщений: 9,663 Записей в блоге: 14
	12.12.2014, 18:31
	Раз уж подняли тему, кину ссыль на то, как добавить элемент Windows Media Player" Как воспроизвести видео в форме? 2

artemktk -15 / 23 / 0 Регистрация: 31.08.2013 Сообщений: 2,078
	07.11.2015, 14:59
	Лио, Молодец! Мне тоже помог. А то, я уже 3 дня кручу по всякому, не могу понять в чём дело. Спасибо. 0