Проигрыватель музыкальных дисков Владимир Коробицын Вставка этикеток. Извлечение текущей даты из компьютера. Управление приложением с клавиатуры. Многооконность приложения.
    Если Вы хотите изготовить приложение собственного проигрывателя музыкальных компакт-дисков, то Ваш компьютер должен быть оснащен устройством чтения оптических CD-дисков и музыкальной картой. Если музыкальная карта отсутствует, то прослушивать записи придется посредством головных телефонов.
    Создайте папку Lesson31. Поместите в нее файл поддержки мультимедийных объектов Mci.vbx. Запустите Visual Basic. Окно формы Form1 окрасьте, например, в темно-серый цвет. Добавьте в проект Вашего приложения файл Mci.vbx. Для этого в меню File (Файл) выберите команду Add File ... (Добавить файл ...) и через появившееся окно загрузите файл поддержки Mci.vbx. В окне объектов появится значок мультимедийных объектов. Щелкните по кнопке с этим значком и поместите объект MMControl1 на форму Вашего приложения. В окне свойств объекта MMControl1 для свойств BackVisible, StepVisible, RecordVisible установите значение False (Ложь), так как эти кнопки в проигрывателе использоваться не будут. В процедуру Form_Load, которая вызывается сразу после загрузки приложения, впишите программный код:
    Sub Form_Load ( )
    MMControl1.DeviceType = "CDAudio"
    MMControl1.Command = "Open"
    MMControl1.Command = "Play"
    End Sub
    Первая строка программного кода активизирует устройство чтения компакт-дисков, следующая строка открывает первую музыкальную запись, и последняя строка заставляет воспроизводить мелодии с диска по порядку.
    В устройство для CD-дисков поместите музыкальный компакт-диск. Запустите приложение. Проигрыватель начнет воспроизводить первую запись на компакт-диске. Если этого не произойдет, вызовите в Windows стандартную панель управления звуком Volume Control и меню "Параметры" выберите команду "Свойства", где включите CD Audio. Теперь должен появиться звук, в противном случае проверьте правильность написания программного кода.
    Во время работы приложения изучите назначение каждой клавиши вновь созданного проигрывателя. Для этого поочередно щелкайте мышкой по клавишам проигрывателя.
    В окно приложения можете поместить, выбранный на Ваше усмотрение рисунок.
    В окне Properties (Свойства) для формы Form1 выберите свойство Caption (Надпись) и измените его значение на "Проигрыватель музыкальных компакт-дисков". Для полного останова проигрывателя и выхода из приложения создайте командную кнопку Command1. В процедуру прерывания Command1_Click запишите программный код:
    Sub Command1_Click ( )
    MMControl1.Command = "Stop"
    MMControl1.Command = "Close"
    End
    End Sub
    Первая строка останавливает воспроизведение любой записи компакт-диска, следующая строка закрывает файл мелодии для объекта MMControl1, и последняя строка полностью завершает работу приложения. Надпись на командной кнопке измените на надпись "Выход". Если Вы хотите, чтобы мелодии продолжали звучать после завершения работы приложения, смонтируйте еще одну командную кнопку Command2 и для нее в процедуру прерывания Command2_Click впишите только последнюю строку из процедуры Command1_Click, опустив две первые строки. Если через некоторое время все-таки возникнет необходимость в останове воспроизведения музыкального диска, то это можно сделать вручную, нажав на кнопку "Выезд диска" устройства для воспроизведения оптических дисков.
    Для объекта MMControl1 самостоятельно изучите свойство Orientation (Расположение), которое может принимать два значения: 0-Horizontal (Горизонтальное) и 1-Vertical (Вертикальное).
    А теперь рассмотрим операцию размещения этикеток в приложении. ............