Аналогично программируем пункт "Красный". А сообщение о программе обеспечит оператор
MsgBox ("Программа создана в 2000 году")
Запустите проект и проверьте, как он работает.
Средствами Visual Basic можно создавать, преобразовывать и уничтожать меню не только в режиме проектирования, но и в режиме работы. Кроме обычных меню Visual Basic умеет создавать и так называемые контекстные меню. Ни на том, ни на другом я не буду останавливаться.
Кино в проекте
Все есть у нашего калькулятора — и картинки, и звук, и меню, и прыгающие кнопки. Для полного счастья не хватает кино. Нет проблем! Причем их нет двумя способами!
Первый способ. Project->Components->Microsoft Windows Common Controls-2 6.0. Ha Toolbox появится несколько новых элементов управления. Берите из них Animation и размещайте на форме — это ваш экран для кино. Его имя Animation1. Этот элемент управления позволяет прямо в работающем проекте просматривать видеофайлы в формате AVI. Если у вас на компьютере нет порядочного кино в этом формате, то несколько маленьких анимационных роликов вы все-таки найдете в папке Videos, находящейся внутри папки, куда устанавливалась ваша Visual Studio. Скорее всего они находятся по такому адресу: "C: \Program
Files\Microsoft Visual Studio\Common\Graphics\Videos".
Сделайте в проекте кнопку и назовите ее, например, "Видео". Вот процедура, которая при нажатии кнопки "Видео" бесконечно воспроизводит видеоролик FILECOPY.AVI:
Private Sub Bnfleo_Click()
Animation1.Open "C: \Program Files\Microsoft Visual Studio\Common\Graphics\Videos\FILECOPY.AVI"
Animation1.Play
End Sub
Здесь полная аналогия с аудиоплеером, который я рассматривал в 0 Первая строка процедуры открывает файл, вторая его воспроизводит.
Во время демонстрации вы можете выполнять на калькуляторе другие свои дела. Чтобы "заморозить" демонстрацию, нужно выполнить оператор Animation1.Stop, а чтобы совсем прекратить и убрать с экрана — Animation1.Close.
Если вам нужно 3 раза воспроизвести кадры видеофильма с 5 по 12, вы пишете Animation1.Play 3, 5, 12
Второй способ. Используйте нашего старого знакомого — мастера на все руки — Microsoft Multimedia Control 6.0, который тоже позволяет просматривать видеофайлы в формате AVI. Разместите его на форме и назовите, скажем, "Кино". Вот цепочка операторов, приводящая к результату:
Кино. DeviсеТуре = "AVIVideo"
Кино. FileName = "C: \Program Files\Microsoft Visual Studio\Common\Graphics\Videos\ FILECOPY.AVI"
Кино. Command = "Open"
Кино. Command = "Play"
Просмотр идет в отдельном окне, размер и положение которого вы можете мышкой менять в процессе просмотра, что само по себе любопытно. К тому же, вы можете пользоваться управляющими кнопками элемента управления.
Кое-что необходимое напоследок
Комментарии
Комментарии — это пояснения к тексту программы. Зачем они нужны?
Когда человек со стороны посмотрит на вашу программу, например, на эту (из калькулятора):
Private Sub Кл_сложения_Click()
Звук.FileName = "с: \Windows\Mediа\Chimes.wav"
Звук.Command = "Open"
Звук.Command = "Sound"
Звук.Command = "Close"
Результат.Text = Val(Число1.Text) + Val(Число2.Text)
End Sub
он вряд ли поймет, в чем здесь смысл и для какой задачи программа написана. Если Звук, то при чем здесь сложение? Да и все остальное… Ну да ладно, это полбеды, а беда в том, что если через пару лет вам срочно понадобится самому разобраться в этой старой своей программе (так как ее выдвинули на Мобилевскую премию), а вы за это время ни разу не работали со звуком, то вы сами не сможете ничего понять, так как все забыли!
Любой профессиональный программист знает две вещи. Первое — любая старая программа через год забывается напрочь. Второе — почти любая старая программа или ее часть через полтора года бывает вдруг позарез нужна как исходный материал для новой программы и поэтому в ней надо срочно разобраться. Наученный горьким опытом, программист снабжает многие строчки кода собственными комментариями. Получается вот что:
'Процедура, которая объясняет компьютеру, что ему делать, если мы щелкнули
'по клавише сложения калькулятора, а именно: проиграть короткую мелодию
'Chimes.wav на объекте с именем Звук, а затем сложить два числа.
Private Sub Кл_сложения_Click()
Звук.FileName = "c: \Windows\Media\Chimes.wav" 'Указываем адрес звукового файла на диске.
Звук.Command = "Open" 'Перед проигрыванием файл нужно обязательно открыть.
Звук.Command = "Sound" 'Включить воспроизведение.
Звук.Command = "Close" 'После проигрывания файл нужно обязательно закрыть.