В городской ночи мигают всевозможные неоновые огни. Среди них, вероятно, наиболее часто используются фонари с проточной водой. Их плавный эффект придает жизненную силу тихой ночи. Какой эффект был бы, если бы мы добавили гирлянду сверкающих водных огней в интерфейс созданного нами мультимедийного программного обеспечения? Следуйте инструкциям ниже, чтобы добавить в свою мультимедийную программу цепочку бегущих водяных огней с эффектом преследования.
1. Создайте новую форму. Войдите в системную среду Visual5asic4.0, создайте новую форму (FORM1) и установите для свойства Backcolor формы FORM1 значение RGB (192 192 192).
2. Постройте первый фонарь. Нажмите «Ярлык» на «Панели управления формой» и вытащите прямоугольное поле (LABEL1) на FORM1. Установите для атрибута Caption значение «★» (это также могут быть другие символы, здесь «★» можно найти в «Карте символов» «Аксессуаров» WINDOWS95), для параметра Autosize — .T., для Backstyle — 0, а для цвета — переднего цвета. на красный, размер шрифта 18.
3. Создайте еще 29 фонарей. Щелкните мышью LABEL1, нажмите клавишу CTRL C (копировать), а затем нажмите клавишу CTRL V (вставить), чтобы создать еще одну метку (LABEL1 (1)) с тем же заголовком, что и LABEL1 в FORM1. Когда на экране появится запрос, следует ли. для создания массива управления выберите «ДА». Повторите это копирование, чтобы создать в общей сложности 30 этикеток, и расположите эти 30 этикеток в прямоугольной рамке по порядку.
4. Создайте таймер. Нажмите «Таймер» на «Панели управления формой» с помощью мыши, а затем один раз щелкните FORM1, чтобы создать таймер (TIMER1) в FORM1. Установите для его свойства Interval значение 400.
5. Дважды щелкните FORM1 и напишите процесс загрузки FORM1 следующим образом:
PRivateSubForm_Load()
я=0
Фордж=0To9
Label1(j*3).ForeColor=&HFF&'Red
Label1(j*3 1).ForeColor=&HFF00&'зеленый
Label1(j*3 2).ForeColor=&HFFFF&'желтый
Следующийj
EndSub
6. Дважды щелкните TIMER1 и напишите процесс таймера TIMER1 следующим образом:
PrivateSubTimer1_Timer()
ЕслиI=30Тогда
я=0
КонецЕсли
Я=Я 1
ДляJ=0To29
Метка1(J).Visible=False
СледующийJ
ЕслиIMod3=2Тогда
ДляJ=0To9
Label1(J*3 1).Visible=Истина
СледующийJ
Еще
ЕслиIMod3=0Тогда
ДляJ=0To9
Label1(J*3 2).Visible=Истина
СледующийJ
Еще
ДляJ=0To9
Метка1(J*3).Visible=Истина
СледующийJ
КонецЕсли
КонецЕсли
EndSub
После запуска формы вы увидите, что красный, зеленый и синий индикаторы попеременно загораются. Изменение значения атрибута «Интервал» таймера 1 может изменить скорость цикла трех групп индикаторов.
Приведенная выше программа успешно работает в Visual Basic 5.0 и Windows 95. ->