---- В большом количестве прикладных программ после запуска программного обеспечения на экране в течение нескольких секунд отображается информация, включающая продукт, платформу, номер версии и информацию об авторских правах, что называется «мигающим экраном при запуске программы». ". Как это реализовано в Visual Basic? В этой статье обсуждается один из способов создания заставки и придания ей цвета. Убедитесь, что, когда стартовый экран остается на рабочем столе, текст подсказки «перетекает» на рабочий стол (например, стартовый экран «Восточного экспресса»). В то же время можно добиться таких эффектов, как мигание и изменение цвета плавного текста. Если вы установите экран внизу текста, текст может вытекать из экрана. После того, как отображение завершится и исчезнет из верхней части экрана, оно может снова подняться из нижней части экрана и снова появиться в цикле. После этого дизайна его можно использовать в описаниях программного обеспечения, списках авторов и т. д. для улучшения отображения на экране программного обеспечения.
----Возьмите проект 1, формы Form1 и Form2 и установите Form1 в качестве формы запуска. Создайте новые Frame1, Timer1 и Temer2 на Form2 и задайте для свойства Caption Frame1 нулевое значение, чтобы сформировать красивую трехмерную рамку. Для свойств «Включено» таймеров Timer1 и Temer2 установлено значение True. Создайте Picture1 на Frame1 и настройте Picture1 до подходящего размера. Установите для свойства ScaleMode формы Form1 значение 1-Twip, а для свойства StartUpPosition формы Form2 — значение 2-CenterScreen (выравнивание по центру). Чтобы гарантировать, что Form2 не отображает «синюю панель описания» в верхней части формы, задайте для свойства Caption значение null, а для свойства ControlBox — значение False. Создайте метку Label1 на Picture1 и установите для BackStyle значение 0 (прозрачный). Введите текст «Автор: мисс Цзян Сюэ из Шэньяна» в атрибуте «Заголовок» метки Label1 для удобства наблюдения. Настройте размер и цвет текста. Вы можете свободно устанавливать информацию о макете в форме Form2.
----Код Form1 выглядит следующим образом:
PRivateSubForm_Load()
Form1.Visible=0 — делает форму Form1 невидимой.
Form2.Show'отображение формы Form2
EndSub
Коды для каждого элемента управления в Form2 следующие:
OptionExplicit
DimStep1, Step2, Step3AsInteger
DimZfAsString
ДимИасИнтегер
PrivateSubForm_Click()
'Когда вы нажимаете Form2, завершаете выполнение Form2,
Отобразите форму Form1 и закройте Timer и Timer1.
Разгрузить меня
Форма1.Показать
Таймер1.Включено=Ложь
Timer2.Enabled=False
EndSub
PrivateSubForm_Load()
Picture1.Picture=Загрузить изображение
("c:/windows/Clouds.bmp")'Выберите картинку
Timer1.Interval=80 минутный шаг
Таймер2.Интервал=50
EndSub
PrivateSub
Frame1_Click()'При щелчке по области внутри элемента управления Frame1,
Завершите выполнение формы Form2, отобразите форму Form1 и закройте Timer и Timer1.
Разгрузить меня
Форма1.Показать
Таймер1.Включено=Ложь
Timer2.Enabled=False
EndSub
PrivateSub
Изображение1_Клик()
'Когда вы щелкаете область на рисунке 1, завершаете выполнение формы 2,
Отобразите форму Form1 и закройте Timer и Timer1.
Разгрузить меня
Форма1.Показать
Таймер1.Включено=Ложь
Timer2.Enabled=False
EndSub
PrivateSubTimer1_Timer()
ColorLabel1,15,13,9' вызывает преобразованный цвет.
Я=Я 1
IfI>50Then'Form2 время пребывания формы, размер можно изменить
Разгрузить меня
Форма1.Показать
Таймер1.Включено=Ложь
Timer2.Enabled=False
КонецЕсли
EndSub
Подцвет(CtrlAsControl,color1AsInteger,
color2AsInteger,color3AsInteger)'Выберите цвет
ЕслиVal(Ctrl.Tag)=color1Then
Ctrl.Tag=цвет2
ElseIfVal(Ctrl.Tag)=color2Then
Ctrl.Tag=цвет3
ElseIfVal(Ctrl.Tag)=color3Then
Ctrl.Tag=цвет1
Еще
Ctrl.Tag=цвет1
КонецЕсли
Ctrl.ForeColor=QBColor(Ctrl.Tag)
EndSub
PrivateSubTimer2_Timer() управляет положением и скоростью перемещения текста.
Шаг1=1800:Шаг2=4500:Шаг3=40
IfLabel1.Top<-Step1-Label1.TopThen
Метка1.Верх=Метка1.Верх Шаг2
КонецЕсли
Label1.Top=Label1.Top-Step3
EndSub
----Вы можете настроить значения Timer1.Interval и Timer2.Interval, которые определяют скорость изменения цвета текста и скорость потока текста соответственно; настройте Step1 и Step2 на соответствующие значения в соответствии с формой и элементом управления; условия; Step3 — шаг перехода по тексту; Измените цвет преобразования текста, изменив значения I, J, K в операторе ColorLabel1, I, J, K. Реализован под китайским VisualBasic5.0. ->