Статья: Озвучивание Ваших программ
А теперь заставьте приложение отличать щелчки левой и правой кнопок мыши. Для начала удалите все программные утверждения из процедуры Picture1_Click. Для управления объектом Picture1 (Рисунок) воспользуемся процедурой прерывания Picture1_MouseDown, которая вызывается всякий раз, когда кнопка мыши оказывается по приказу пользователя внизу, а указатель мыши в поле рисунка Picture1. Процедуру Picture1_MouseDown заполните программным кодом следующим образом:
Sub Picture1_MouseDown (Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button And 1 Then ‘ условие щелчка левой кнопкой мыши
For n = 1 To 250
Picture1.Left = Picture1.Left – 30 ‘ передвижение вперед
Next
End If ‘ конец условия
If Button And 2 Then ‘ условие щелчка правой кнопкой мыши
For n = 1 To 250
Picture1.Left = Picture1.Left + 15 ‘ передвижение назад
Next
End If ‘ конец условия
MMControl2.FileName = "03.wav"
MMControl2.Command = "Close"
MMControl2.Command = "Open"
MMControl2.Command = "Play"
End Sub
Запустите приложение. Наводя указатель мыши на изображение автомобиля, щелкайте поочередно левой и правой кнопками мышки. Автомобиль будет передвигаться вперед и задним ходом, причем с различной скоростью. Объясните, почему это возможно, внимательно разобрав работу программных утверждений процедуры Picture1_MouseDown.
Если у Вас трехкнопочная мышка, то Вы можете задействовать и среднюю кнопку, изменив или добавив условие:
If Button And 4 Then ‘ условие щелчка средней кнопкой мыши
Сохраните проект в папке Lesson22. Создайте исполняемый EXE-файл. Проверьте работоспособность этого файла.
Домашнее задание
1. Изготовьте приложение, в окне которого будет размещено пять командных кнопок. При щелчке мышью по любой из них должна звучать одна из пяти различных мелодий. Для этой цели используйте любые файлы с расширением MID. Не забудьте Ваше приложение украсить подходящим для этого случая рисунком или фотографией.
2. Создайте приложение, в котором будут присутствовать волк и заяц (или любые другие животные). Подберите два звуковых файла с расширением WAV. Сделайте так, чтобы при щелчке левой кнопкой мыши по изображениям животных издавались различные звуки, а при щелчке правой кнопкой – они исчезали. Поместите на форму приложения кнопку, которая позволяла бы увидеть исчезнувших животных. Если Ваш компьютер снабжен микрофоном, то без большого труда можно создавать для своих приложений звуковые файлы с расширением WAV. Для записи звука можно использовать, например, стандартное приложение в Windows «Звукозапись».
3. Для объекта Form (Форма) самостоятельно изучите его свойство WindowState (Статус окна), которое может принимать три значения от 0 до 2.