Программирование
Веб программирование

Окно с плавным переходом цвета в Visual Basic

 
 

Окно с плавным переходом цвета очень эффектная штука, и она украшает наши программы. Для начало зальем форму с верху вниз, этот эффект очень часто используют в программах типо Setup. У свойство AutoRedraw надо установить равным True(это чтоб при расширении окна эффект оставался). Код:

Private Sub Form_Resize() 'Событие Resize нужно для того, чтоб при изменении размера формы, выполнялось какое - то действие
Dim X As Integer 'Объявляем переменную - счётчик
For X = 0 To Height 'Запускаем цикл, который повторяться столько раз какой высотой форма
Line (0, X)-(Width, X), X / (Height / 255) ''рисуем линию от верха и до самого низа формы цвет линии постоянно меняется
Next
End Sub

 

При использовании такого эффекта форма будет медленнее грузиться.
Исходник - Здесь


Есть вопросы? Спроси на нашем форуме!!
Megustan [05.11.2012 13:31]

а как сделать так чтобы на этом цветастом флне были видны лейбелы? и цыет поменять как?

ozzee20 [03.06.2013 19:00]

ну у меня получалось так(не совсем нормально но): Line (0, X)-(Width, X), X / (Height / 60000000#) где 60000000# - сколько таких градиентов отрисовывать,форма много их отрисовала, меняется цвет



Оставлять комментарии можно только зарегистрированным




Предупреждение: Вся информация представлена исключительно в образовательных целях.
Ни авторы, ни администрация не несут ответственности в случае ее использования в противозаконных целях.