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

@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 дня кручу по всякому, не могу понять в чём дело. Спасибо.

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

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами 8Observer8 20.02.2026 Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .	Конвертировать закладки radiotray-ng в m3u-плейлист damix 19.02.2026 Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .	Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI Eddy_Em 18.02.2026 Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .
И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.	«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»	SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 12.02.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .

@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,664 Записей в блоге: 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