----Автор время от времени читал в "Компьютерном мире" статью о реализации затухания и появления символов в VISUALFOXPRO. Вдохновленный этим, автор обратился к оригинальной статье и написал аналогичное затухание и появление символов. при использовании программы Visual Basic 4.0. чтобы проиллюстрировать общие черты инструментов визуальной разработки Microsoft: одинаковый или похожий графический интерфейс пользователя (GUI), объектно-ориентированные и управляемые событиями функции, одинаковые или похожие функции и т. д. Эта функция позволяет разработчикам и дизайнерам программ учиться на приложениях, разработанных с использованием различных инструментов визуализации Microsoft, и осуществлять удобную трансплантацию, сокращая цикл разработки. В то же время это может сыграть роль в изучении компьютерного языка.
----Функция постепенного появления и исчезновения символов может быть реализована путем постоянного изменения переднего плана элемента управления меткой (LABEL). Изменения на переднем плане элемента управления,
Его можно установить с помощью свойства переднего плана элемента управления меткой во время разработки или этого можно добиться в программе, назначив разные значения цвета свойству переднего плана. Цвет обеспечивается функцией RGB (такая функция есть и в VisualFoxpro). Прерывание, генерируемое управлением таймером, используется для непрерывного изменения значения параметра RGB, поэтому передний план персонажа может быть изменен соответствующим образом, достигая цели постепенного появления и исчезновения.
----Следующая программа, написанная на Visual Basic 4.0, выполняет две функции: (1) постепенное появление и исчезновение символов, имеется 256*256*256 изменений цвета. Здесь выбрано только изменение с серого на красный;
(2) Символы меняются от маленьких к большим при исчезновении и от больших к маленьким при появлении. Кроме того, процесс реализации этой программы можно полностью и легко пересадить на визуальные языки, такие как VisualC и Visualjava.
----1. Запустите VisualBasic4.0 и автоматически создайте форму, значением по умолчанию является FORM1.
----2. Установите свойства формы следующим образом:
НАЗВАНИЕ:ДЕМО
ЗАГОЛОВОК: VB реализует постепенное появление и исчезновение символов.
BACKCOLOR: &H00C0C0C0, то есть фон серый.
----3. Определите следующие переменные формы в форме DEMO, то есть определите параметры цвета R, G и B в процессе общего объявления.
ДимрАсИнтегер
ДимгАсИнтегер
ДинбАсИнтегер
----4. Установите начальное значение цвета символа в процессе загрузки формы, то есть серый.
цвет:
PrivateSubForm_Load()
г=192
г=192
б=192
EndSub
----5 Добавьте метку к форме DEMO и задайте ее свойства следующим образом:
ИМЯ:LABEL1
ЗАГОЛОВОК: Харбинская система торговли облигациями SDIC
AUTOSIZE: TRUE, используется для масштабирования символов.
BACKSTYLE: 0-TRANSPARENT, т.е. прозрачный
ШРИФТ: Шрифт является официальным, размер выбран равным 8.
----6. Добавьте в форму элемент управления таймером, чтобы завершить функцию затухания. Настройки следующие:
НАЗВАНИЕ: АУТТАЙМЕР
ИНТЕРВАЛ: 50, что означает, что он прерывается каждую секунду и меняет цвет один раз.
----7. Добавьте еще один таймер для завершения функции постепенного появления:
НАЗВАНИЕ: ИНТАЙМЕР
ИНТЕРВАЛ: 50
----8. Добавьте следующий код в процесс TIMER OUTTIMER:
PrivateSubOuttimer_Timer()
Если<255Тогда
г=р 1
Еще
г=255
КонецЕсли
Еслиg>3Тогда
г=г-3
Иначе:г=0
КонецЕсли
Еслиb>3Тогда
б=б-3
Иначе:b=0
КонецЕсли
Label1.FontSize=Label1.FontSize 0,75
Label1.ForeColor=RGB(r,g,b)
ЕслиLabel1.FontSize>=72Тогда
Outtimer.Enabled=False
Intimer.Enabled=Истина
КонецЕсли
EndSub
----9. Добавьте в INTIMER следующий код:
PrivateSubIntimer_Timer()
Если>192Тогда
г=р-1
Еще
г=192
КонецЕсли
Еслиg<192Тогда
г=г 3
Остальное: г=192
КонецЕсли
Еслиb<192Тогда
б=б 3
Иначе:b=192
КонецЕсли
Label1.FontSize=Label1.FontSize-0,75
Label1.ForeColor=RGB(r,g,b)
ЕслиLabel1.FontSize<=8Тогда
Intimer.Enabled=False
Outtimer.Enabled=Истина
КонецЕсли
EndSub
----После выполнения вышеуказанных шагов нажмите кнопку «Выполнить», и вы увидите слова «Харбинская система торговли ценными бумагами SDIC», отображаемые в форме от маленького к большому, от мелкого к глубокому, когда шрифт достигнет указанного размера; достигнутый, он постепенно исчезает в форме, чтобы реализовать функцию постепенного появления и исчезновения.
->