Не работает пример про медиаплеер из книги Лукина - 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

Оцени полезность:

9   голосов , оценка 3.333 из 5
Похожие ответы