sitesaid.ru

Подробное описание как создавать формы,как вводить данные в окно свойств элементов ,как и куда вводить код описано на этой странице.Этот проигрыватель можно сохранить у себя на компьютере,а также доработать его для своих нужд.

Создайте новый проект Standard EXE.
Откройте окно свойств проекта, выбрав команду Projecti Properties (Свойства Project 1) меню Project (Проект) и присвойте проекту имя MyMultiMedia.

Присвойте форме проекта имя Formplayer. В свойство caption формы введите заголовок Мультимедиа плейер.

Откройте в меню Project (Проект) раздел Components.Присоедините к проекту библиотеку компонентов Microsoft Multimedia Control 6.0, поставив галочку в соответствующем окошке и нажав ОК.

Нам потребуется диалоговое окно поиска проигрываемых файлов, поэтому установите также в окне Components флажок для библиотеки компонентов Microsoft Common Dialog Control 6.0.

Добавьте в форму Formplayer элемент управления MMControl, дважды щелкнув мышью кнопку MMControl на панели элементов управления, и присвойте ему имя MMControlCDPlayer.

Добавьте в форму элемент управления commonDialog, дважды щелкнув мышью кнопку CommonDialog на панели элементов управления, и присвойте ему имя cdplayer.

Добавьте в форму Formplayer кнопку управления типа CommandButton, дважды щелкнув мышью кнопку CommandButton на панели элементов управления. Назовите эту кнопку cbFindFile и введите в свойство caption значение Найти файл. По событию click созданной в форме кнопки cbFindFile будет открываться диалоговое окно для поиска воспроизводимых файлов.

Вид редактора VB в процессе разработки

Откройте редактор кода и введите программный код для назначения элементу управления MMControlCDPlayer свойства, необходимые для работы с файлами формата WAV. Private Sub Form_Load() MMControlCDPlayer.Notify = False MMControlCDPlayer.Wait = True MMControlCDPlayer.Shareable = False MMControlCDPlayer.DeviceType = "WaveAudio" End Sub Private Sub cbFindFile_Click () cdPlayer.ShowOpen MMControlCDPlayer.FileName = cdPlayer.FileName MMControlCDPlayer.Command = "Open" End Sub Private Sub Form (Cancel As Integer) MMControlCDPlayer.Command = "Close" End Sub

Запустите приложение нажав кнопку Пуск в меню. Нажмите кнопку Найти файл, откроется окно позволяющее осуществить поиск , а затем выберите музыкальный файл формата Wave для воспроизведения. При помощи кнопок управления проигрывателя можно прослушать выбранный файл.

Сохраните проект как в первом приложении и создайте исполняемый файл exe

Посмотрите проигрыватель в работе.