Не работает пример про медиаплеер из книги Лукина - Visual Basic .NET
Формулировка задачи:
Добрый вечер. Начал изучать vb.net по книге Лукина "Понятно о visual basic.net"
Дошёл до момента где рассказывается как управлять элементом "медиаплеер". Добавляю медиаплеер на форму, расставляю кнопки. Пишу код на кнопку, чтобы при нажатии на неё воспроизводился определённый файл.
Но VB говорит, что код неправильный. Пробовал не тупо копировать код, а вводит вручную, выбирая команды из списка после нажатия точки. Оказалось, что у медиаплееру в списке нет такого свойства как FileName.
Вот код приложения из книги
Можно было бы пока пропустить этот момент книги(мне кажется работа с медиаплеером не так важна), но всё же хочется разобраться сейчас, чтобы в будущем не возвращаться к этому.
Нашёл что-то по этому поводу, видимо в более новой версии это делается по другому......
Вроде бы в начало кода надо дописать:
Если не сложно, объясните новичку как работать с медиаплеером...
Решение задачи: «Не работает пример про медиаплеер из книги Лукина»
textual
Листинг программы
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