Градиентная заливка

[DiSe]

Обычную заливку легко сделать с помощью FloodFill. Но как сделать градиентную заливку определённой ограниченной области, при этом разные стили градиентной заливки?

[A.A.Z.]

Не знаю, как в VB, но можно в Photoshop'e сделать заливку, а потом или в Image её засунуть, или через VBScanner ([url=vbscanner.narod.ru]VBScanner.narod.ru[/url]) пропустить.

[GSerg]

Настоятельно рекомендуется читать msdn на тему gradientfill.

[DiSe]

To A.A.Z. - Мне нужно сделать это в программном коде.
To GSerg - У меня нет MSDN. Поэтому, если знаешь где скачать MSDN и если не трудно, то подскажи.

[Demonx]

To GSerg - У меня нет MSDN. Поэтому, если знаешь где скачать MSDN и если не трудно, то подскажи.

У всех есть http://msdn.microsoft.com

[mark+]

Могу подсказать ocx'ы из моей коллекции. Есть один мужик - Alvaro Redonto. Так что сгоняй на www.sevillaonline.com/ActiveX

[Sanya Z]

А код который в "Советах для VB" разве не подходит?

Код: Выделить всё

Sub Dither(vForm As Form)
Dim intLoop As Integer vForm.DrawStyle =
vbInsideSolid vForm.DrawMode = vbCopyPen vForm.ScaleMode =
vbPixels vForm.DrawWidth = 2 vForm.ScaleHeight = 256 For intLoop
= 0 To 255 vForm.Line (0, intLoop)-(Screen.Width, intLoop - 1), _
RGB(0, 0, 255 -intLoop), B Next intLoop
End Sub

А далее используешь...

Код: Выделить всё

Dither ME

Можно менять цвета варьируя значения. Есть другие варианты, если найду то сюда кину.

[DiSe]

To Sanya Z - Этот код годится только для прямоугольной области. А мне нужно - для произвольной.

[kminas]

Подскажите, пожалуйста, а как в этой палитре

Код: Выделить всё

Sub Dither(vForm As Form)
Dim intLoop As Integer
vForm.DrawStyle = vbInsideSolid
vForm.DrawMode = vbCopyPen
vForm.ScaleMode =
vbPixels vForm.DrawWidth = 2 vForm.ScaleHeight = 256
For intLoop = 0 To 255
vForm.Line (0, intLoop)-(Screen.Width, intLoop - 1), RGB(0, 0, 255 -intLoop), B
Next intLoop
End Sub

сделать переход с темно-синего на светло-синий?

[BION]

Обычную заливку легко сделать с помощью FloodFill. Но как сделать градиентную заливку определённой ограниченной области, при этом разные стили градиентной заливки?

Вот... там функция

Код: Выделить всё


Fade(obj As Object, StartColour As Long, EndColor As Long, TopToBottom As Boolean)
' Object - объект кот. закрашиваем
' StartColour - нач. цвет
' EndColor - кон. цвет
' TopToBottom - true: вертикально, false: горизонтально


'пр:
Fade Picture1, vbBlack, vbWhite, True


[Mikle]

kminas
Например так:

Код: Выделить всё

vForm.Line (0, intLoop)-(Screen.Width, intLoop - 1), RGB(128 - intLoop \ 2, 128 - intLoop \ 2, 255 - intLoop \ 2), B

BION
DiSe это писал 5 лет назад.

[kminas]

Спасибо, Mikle Еще бы чуток. Я хочу, чтобы, наоборот тёмно-синяя полоса была сверху, как бы продолжая цвет Title, а книзу посветлее. Пробовал и так и эдак переставлять. Чет не въезжаю, где оттенки зарыты?

[Mikle]

Код: Выделить всё

Line (0, intLoop)-(Screen.Width, intLoop - 1), RGB(intLoop \ 2, intLoop \ 2, 127 + intLoop \ 2), B

[kminas]

Спасибо! Mikle. То, что нужно. А где ты берешь эти коды? Ищу и в интернет и по книгам, но только такие &HE0E0E0 или такие 14737632 нахожу.
И почему-то на одном компе, при отладке все отображается нормально, а на другом при отладке форма не окрашенная, а после компиляции палитра рисуется, причем при пошаговой отладке по F8 всё красится?

[Хакер]

А где ты берешь эти коды?

Из головы он их берёт

[kminas]

Я тоже из головы брал и 255 - intLoop ставил и 0 + intLoop сочинил и пробовал в разных вариантах и разные другие чилса писал, но до 127(128) не дошел. Кроме того, неужели ж он сам придумал обратный слэш и цифру?
Кстати, а что такое В? У меня и без нее пашет. правда последние коды не проверял?

[Хакер]

Кроме того, неужели ж он сам придумал обратный слэш и цифру?

Противно становится от таких "неужели".

Ужели. Обратный слэш - оператор целочисленного деления. Он просто знает об этом, и все знают. Поскольку его здесь более целесообразно применять, он и поставил обратный слэш.

B - от слова Border (рамка). Означает: рисовать рамку вокруг воображаемой линии (но не рисовать саму линию). BF означает Border Filled - рисовать заполненную цветом рамку.

[kminas]

Спасибо за рамки, но все равно где-то я раньше встречал описание оттенков. О, действительно, и прямой слэш тоже работает!

[Хакер]

Не надо встречать описание оттенков, надо всего лишь знать, как устроена система RGB. Так для любого оттенка сможешь сам влёгкую составить код типа &HDEAD00.

[kminas]

Нет, описания мне не нужно, я не могу найти тенденцию, где какой цвет, в принципе, понятно, а, как идут цвета от темного (или насыщенного) к бледному?

[Хакер]

как идут цвета от темного (или насыщенного) к бледному?

Он полностью, скажем, синего (vbBlue, RGB(0,0,255)) к бледно-бледно-синему увеличивается значение R- и G- составляющих.

Для остальных цветов аналогично.

[kminas]

А, так еще надо добавлять vbBlue? Если так, то другое дело.

[Хакер]

Чего??

[kminas]

Ну, понятно, говорю, буду пробовать, спасибо!

[Хакер]

Что ты будешь пробовать? Добавлять vbBlue?

Не надо ничего добавлять. Что вообще значит "Добавлять vbBlue" ??

[kminas]

Ладно, ничего не буду добавлять.

[Денис]

Последние 10 ответов - жесть. Ну просто жесть. kminas, изучи... хотя нет. Просто нет слов.

[Mikle]

kminas
Вообще тот фрагмент кода написан, мягко говоря, неудачно. Я бы делал так:

Код: Выделить всё

Option Explicit

Private Sub Form_Load()
Dim n As Long
Dim Col1 As Long, Col2 As Long, Col As Long
  Show
  Col1 = RGB(128, 128, 255)
  Col2 = RGB(0, 160, 128)
  ScaleMode = vbPixels
  For n = ScaleTop To ScaleTop + ScaleHeight - 1
    Col = ColLerp(Col1, Col2, (n - ScaleTop) / (ScaleHeight - ScaleTop))
    Line (ScaleLeft, n)-(ScaleLeft + ScaleWidth - 1, n), Col
  Next n
End Sub

Private Function ColLerp(ByVal c1 As Long, ByVal c2 As Long, ByVal k As Single) As Long
Dim r As Integer, g As Integer, b As Integer
  r = (c1 And 255&) * k + (c2 And 255&) * (1 - k)
  g = ((c1 \ 256&) And 255&) * k + ((c2 \ 256&) And 255&) * (1 - k)
  b = ((c1 \ 65536) And 255&) * k + ((c2 \ 65536) And 255&) * (1 - k)
  ColLerp = RGB(r, g, b)
End Function


Col1, Col2 - два любых цвета.
ColLerp - линейная интерполяция, описана в любом учебнике математики.

[kminas]

Mikle Спасибо! Тут вижу действительно и мне, неучу, понятно. Задаешь 2 цвета и пляши от них, а посередине и будет то, что по интерполяции получилось. Конечно, что такое линейная интерполяция
или, обычно, просто интерполяция знаю и по работе, да и в жизни. Никакого учебника не нужно.
P.s. А фрагмент тот переписывают из сайта в сайт. Уж больше десятка видел.