Не доработан

Создание мультимедийного плейера с помощью Visual Basic 6.0 (VB) можно осуществить компонентом Windows Media Player входящего в состав VB.Минимум настроек и кода делают его очень простым

Порядок разработки:

Откройте редактор Visual Basic. Создайте новый проект Standart exe.Откройте меню Проект - Компоненты - поставьте галочку против Windows Media Player - щелкните OK. Объект добавиться в панель элементов управления.Затем двойным кликом на него добавьте Windows Media Player в проект на форму и расположите его в форме по вашему желанию.

Дважды щелкните кнопкой мыши на Media Player в форме и в открывшемся окне ввода кода посмотрите есть ли код Media Player

Private Sub WindowsMediaPlayer1_OpenStateChange(ByVal NewState As Long)

End Sub

Если есть, то введите URL = "имя.mp3" перед End Sub , если музыка или видео находится не в одной папке с плейером ,укажите полный путь к файлу.

Полный код проигрывателя
Private Sub WindowsMediaPlayer1_OpenStateChange(ByVal NewState As Long) URL = "имя.mp3" End Sub

Далее один раз щелкните кнопкой мыши на Media Player в форме и в окне свойств плейера в графе URL вставьте адрес проигрываемого файла.Запустите приложение и если все нормально скомпилируйте файл.Файл будет иметь расширение EXE и его можно использовать во многих приложениях ,но внедрять его в HTML страницу не стоит,это сопряжено с определеннымы трудностями,и нет никакой гарантии что там он будет работать.При проигрывании видео изображение переходит на широкоэкранный режим,выключить его можно нажав кнопку клавиатуры компьютера ESC


Посмотрите плейер в работе