Озвучивание Ваших программ Владимир Коробицын
    Реакция приложения на левую и правую кнопки мыши
    Создайте папку Lesson21. Для удобства в работе поместите в нее файлы 05.bmp, 06.bmp, 01.mid, 01.wav, 02.wav, 03.wav, 04.wav, Mci.vbx. Запустите Visual Basic. Окно формы Form1 "выкрасите" в серый цвет и поместите в него два рисунка в виде объектов Picture (Рисунок) из файлов 05.bmp, 06.bmp. Для обоих рисунков в окне Properties (Свойства) для свойства AutoSize (Авто размер) установите значение True (Истина), а для свойства BorderStyle (Граничный стиль) значение 0-None (Нет). Чтобы озвучить Ваше приложение, необходимо в его проект добавить файл Mci.vbx. Для чего в меню File выберите команду Add File ... (Добавить файл ...) и через появившееся окно загрузите файл Mci.vbx. В окне объектов появится значок мультимедийных объектов MMControl (Microsoft Multimedia Control). Файл Mci.vbx необходим в тех случаях, когда вы хотите, чтобы Ваше приложение не было "немым". Это файл поддержки мультимедийных объектов. Кроме того, компьютер должен быть оснащен музыкальной картой. В окне объектов щелкните по кнопке со значком мультимедийных объектов и поместите объект MMControl1 на форму Вашего приложения. Для свойства Visible (Видимость) объекта MMControl1 установите значение False (Ложь), так как в данном приложении лучше этот объект сделать "невидимым". Для свойства FileName (Имя файла) запишите значение 01.wav. Щелкните два раза по изображению телефона для вызова процедуры события Picture1_Click. Процедура события Picture1_Click будет вызываться в работе программы всякий раз, когда пользователь щелкнет мышкой по рисунку Picture1. В данную процедуру впишите программный код:
    MMControl1.Command = "Close"
    MMControl1.Command = "Open"
    MMControl1.Command = "Play"
    Вторая строка объекту MMControl1 подаст команду открытия файла 1.wav, третья строка заставит объект MMControl1 воспроизвести звуковой файл 1.wav. Первая строка необходима для закрытия проигрывателя, в случае если пользователь пожелает прослушать данный звук еще раз.
    Сохраните проект приложения в папке Lesson21 и закройте Visual Basic. Из выше указанной папки запустите проект Вашего приложения Project1.mak, который автоматически вызовет Visual Basic и загрузит приложение. Запустите приложение. Во время работы приложения понажимайте мышью на изображение телефона несколько раз. Вы должны услышать звук телефонного вызова.
    В окно приложения поместите объект MMControl2. Не забудьте сделать его "невидимым". Для его свойства FileName (Имя файла) установите значение 02.wav. В процедуру события Picture2_Click впишите аналогичный программный код:
    MMControl2.Command = "Close"
    MMControl2.Command = "Open"
    MMControl2.Command = "Play"
    Откомпилируйте программу. Завершите работу в Visual Basic. Запустите приложение Project1.exe. Поочередно понажимайте мышью на изображения телефона и собаки. Закройте приложение.
    Продолжим работу над приложением "Движение автомобиля" из первого урока. Создайте папку Lesson22 и скопируйте в нее файлы Project1.mak и Form1.frm из папки Lesson12. Добавьте в папку Lesson22 файлы Mci.vbx, 01.mid, 03.wav, 04.wav.
    Из папки Lesson22 запустите приложение Project.mak. В меню File (Файл) выберите команду Add File ... (Добавить файл ...) и через появившееся окно загрузите файл Mci.vbx. В окне объектов появится значок мультимедийных объектов MMControl (Microsoft Multimedia Control). Поместите на форму Form1 два объекта: MMControl1 и MMControl2. Для свойства Visible (Видимость) этих объектов установите значение False (Ложь). ............