Главная Случайная страница Контакты | Мы поможем в написании вашей работы! | ||
|
Все есть у нашего калькулятора - и картинки, и звук, и меню, и прыгающие кнопки. Для полного счастья не хватает кино. Нет проблем! Причем их нет двумя способами!
Первый способ. Project®Components®Microsoft Windows Common Controls-2 6.0. На Toolbox появится несколько новых элементов управления. Берите из них Animation и размещайте на форме - это ваш экран для кино. Его имя - Animation1. Этот элемент управления позволяет прямо в работающем проекте просматривать видеофайлы в формате AVI. Если у вас на компьютере нет порядочного кино в этом формате, то несколько маленьких анимационных роликов вы все-таки найдете в папке Videos, находящейся внутри папки, куда устанавливалась ваша Visual Studio. Скорее всего они находятся по такому адресу: "C:\Program Files\Microsoft Visual Studio\Common\Graphics\Videos".
Сделайте в проекте кнопку и назовите ее, например, "Видео". Вот процедура, которая при нажатии кнопки "Видео" бесконечно воспроизводит видеоролик FILECOPY.AVI:
Private Sub Видео_Click()
Animation1. Open "C:\Program Files\Microsoft Visual Studio\Common\Graphics\Videos\FILECOPY.AVI"
Animation1. Play
End Sub
Здесь полная аналогия с аудиоплеером, который я рассматривал в 2.8 Первая строка процедуры открывает файл, вторая его воспроизводит.
Во время демонстрации вы можете выполнять на калькуляторе другие свои дела. Чтобы "заморозить" демонстрацию, нужно выполнить оператор Animation1. Stop, а чтобы совсем прекратить и убрать с экрана - Animation1. Close.
Если вам нужно 3 раза воспроизвести кадры видеофильма с 5 по 12, вы пишете
Animation1.Play 3, 5, 12
Второй способ. Используйте нашего старого знакомого - мастера на все руки - Microsoft Multimedia Control 6.0, который тоже позволяет просматривать видеофайлы в формате AVI. Разместите его на форме и назовите, скажем, "Кино". Вот цепочка операторов, приводящая к результату:
Кино.DeviceType = "AVIVideo"
Кино.FileName = "C:\Program Files\Microsoft Visual Studio\Common\Graphics\Videos\ FILECOPY.AVI"
Кино.Command = "Open"
Кино.Command = "Play"
Просмотр идет в отдельном окне, размер и положение которого вы можете мышкой менять в процессе просмотра, что само по себе любопытно. К тому же, вы можете пользоваться управляющими кнопками элемента управления.
Дата публикования: 2014-12-28; Прочитано: 163 | Нарушение авторского права страницы | Мы поможем в написании вашей работы!