Как создать фон с плавным
переходом из синего в черный
В режиме 256 цветов плавный переход от светло-синего
к черного требует использования так
называемых составных цветов (dithering colors).
Метод line в Vsual Basic не позволяет прочерчивать
прямые линии составным цветом, но разрешает
заполнять таким цветом прямоугольники. При
этом свойтсво DrawStyle формы надо установить
как vbInvisible, а ее же свойство ScaleMode - как vbPixels.
Свойство DrawStyle определяет стиль линий (
значение vbInvisible не дает обводить черным
контуром каждый синий прямоугольник).
Значение vbPixels свойства ScaleMode позволяет
вычислять размеры прямоугольников в
пикселях, избегая ошибок округления:
благодаря этому прямоугольники
располагаются точно один под дргим - без
зазоров или наложения.
Поместить на форму:
Option Explicit
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 |