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

Окно с плавным переходом цвета(с верху вниз) в VB

 
 

Этот способ намного эффективнеe - заливается быстрее. Цвет – синий. Код:

Private Sub Form_load()
AutoRedraw = False
End Sub

Private Sub Form_Paint()
'Объявление переменных
Dim lY As Long
Dim lScaleHeight As Long
Dim lScaleWidth As Long

ScaleMode = vbPixels 'Единицу измерения устанавливаем равной пикселу
lScaleHeight = ScaleHeight 'Получаем кол-во пикселов по высоте
lScaleWidth = ScaleWidth 'Получаем кол-во пикселов по ширине
DrawStyle = vbInvisible 'Устанавливаем стиль заливки и рисования
FillStyle = vbFSSolid
For lY = 0 To lScaleHeight 'Запускаем цикл закраски
'Закрашиваем
FillColor = RGB(0, 0, 255 - (lY * 255) lScaleHeight)
Line (-1, lY - 1)-(lScaleWidth, lY + 1), , B
Next lY
End Sub


Здесь Исходник


Есть вопросы? Спроси на нашем форуме!!
Нет комментариев

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




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