Запуск анимационных и видео-файлов Владимир Коробицын Использование таймера. Извлечение текущего времени из компьютера. Экранная заставка для Windows. Назначение клавиш.
    Создайте папку Lesson41. Поместите в нее файлы Mci.vbx, 00.avi, 01.avi и 41.wmf. Три последних файла можно заменить любыми другими, имеющими расширения AVI, WMF (или BMP). Запустите Visual Basic. Окно формы Form1 "окрасьте", например, в серый цвет. Расположите это окно в правой нижней части экрана. Добавьте в проект Вашего приложения файл поддержки мультимедийных объектов Mci.vbx. Для этого в меню File (Файл) выберите команду Add File ... (Добавить файл ...) и через появившееся окно загрузите файл Mci.vbx. В окне объектов появится значок мультимедийных объектов. Щелкните мышью по кнопке с этим значком и поместите объект MMControl1 на форму Вашего приложения в нижней ее части. Подберите подходящие размеры этого объекта.
    Сохраните проект Вашего приложения в папке Lesson41. Выйдите из среды Visual Basic. Из папки Lesson41 запустите файл Project1.mak, который автоматически загрузит Visual Basic. В правой части формы Form1 поместите две командные кнопки. Для командной кнопки Command1 в процедуру Command1_Click впишите программный код:
    MMControl1.Command = "Close"
    MMControl1.FileName = "00.avi"
    MMControl1.Command = "Open"
    Вторая строка устанавливает имя файла для объекта MMControl1. Третья строка открывает этот файл. Первая строка необходима для закрытия файла при многократном обращении к объекту MMControl1.
    Для командной кнопки Command2 в процедуру Command2_Click впишите программный код:
    MMControl1.Command = "Close"
    MMControl1.FileName = "01.avi"
    MMControl1.Command = "Open"
    Для командной кнопки Command1 свойству Caption придайте значение "Видео 1", а для кнопки Command2 свойству Caption придайте значение "Видео 2".
    Запустите приложение и проверьте его в работе. Незадействованные клавиши проигрывателя лучше скрыть от пользователя, придав их свойству Visible (Видимость) значение False (Ложь). При желании Вы можете поместить на форму еще несколько командных кнопок, с помощью которых будете загружать другие видео и анимационные файлы. В окно приложения можете поместить выбранный на Ваше усмотрение рисунок, например, из метафайла 41.wmf. Если Вы хотите, чтобы сразу после нажатия на клавиши "Видео 1" или "Видео 2" автоматически начиналась демонстрация видео-файла, то в процедуру Command1_Click и Command2_Click необходимо будет дописать четвертую строку:
    MMControl1.Command = "Play"
    Эта строка объекту MMControl1 подаст команду на воспроизведение загруженного в него файла. Ее выполнение равносильно нажатию на кнопку "Воспроизведение" объекта MMControl1.
    А теперь познакомимся с еще одним полезным объектом типа таймер. Во время работы приложения данный объект остается "невидимым". Таймер в приложении служит для точного отсчета промежутков времени. Минимальный интервал времени может составить одну миллисекунду. По истечении заданных промежутков времени можно заставить приложение выполнять определенные действия. Мы используем таймер для вывода показаний часов компьютера. Для размещения таймера нажмите на кнопку с его изображением в окне объектов и поместите таймер в любой части формы Form1, свободной от других объектов. В окне свойств этого объекта для свойства Interval (Интервал) установите значение 1000, что будет соответствовать одной секунде. ............