Как создать фон с плавным переходом?

Как создать фон с плавным переходом из синего в черный

В режиме 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

[ Home ] [ Up ] [ О группе ] [ Статьи ] [ Исходники ] [ FAQ ] [ Приёмы ] [ Проекты ] [ Наша рассылка ]

Хостинг от uCoz