Проигрыватель музыкальных дисков

Проигрыватель музыкальных дисков Alena Alena
Проигрыватель музыкальных дисков
Владимир Коробицын
Вставка этикеток. Извлечение текущей даты из компьютера. Управление приложением с клавиатуры. Многооконность приложения.
Если Вы хотите изготовить приложение собственного проигрывателя музыкальных компакт-дисков, то Ваш компьютер должен быть оснащен устройством чтения оптических CD-дисков и музыкальной картой. Если музыкальная карта отсутствует, то прослушивать записи придется посредством головных телефонов.
Создайте папку Lesson31. Поместите в нее файл поддержки мультимедийных объектов Mx. Запустите Visual Basic. Окно формы Form1 окрасьте, например, в темно-серый цвет. Добавьте в проект Вашего приложения файл Mx. Для этого в меню File (Файл) выберите команду Add File ... (Добавить файл …) и через появившееся окно загрузите файл поддержки Mx. В окне объектов появится значок мультимедийных объектов. Щелкните по кнопке с этим значком и поместите объект MMControl1 на форму Вашего приложения. В окне свойств объекта MMControl1 для свойств BackVisible, StepVisible, RecordVisible установите значение False (Ложь), так как эти кнопки в проигрывателе использоваться не будут
. В процедуру Form_Load, которая вызывается сразу после загрузки приложения, впишите программный код:
Sub Form_Load ( )
MMControl1.DeviceType = "CDAudio"
MMControl1.Command = "Open"
MMControl1.Command = "Play"
End Sub
Первая строка программного кода активизирует устройство чтения компакт-дисков, следующая строка открывает первую музыкальную запись, и последняя строка заставляет воспроизводить мелодии с диска по порядку.
В устройство для CD-дисков поместите музыкальный компакт-диск. Запустите
приложение. Проигрыватель начнет