VPF::форма с плавным переходом цвета фона

werta

Дата 26.11.2006, 23:03 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 11
Регистрация: 26.11.2006

Репутация: нет
Всего: нет

от красного к белому:

Код


Private Sub Form_Initialize()
Dim x As Long
Dim Текст As String
For x = 0 To ScaleWidth
ForeColor = RGB(255, (255 * x / ScaleWidth), (255 * x / ScaleWidth))
Line (x, 0)-(x, ScaleWidth)
Next x
End Sub

Private Sub Form_Load()
Show
End Sub

а от белого к красному smile

спасибо!

cardinal

Дата 26.11.2006, 23:51 (ссылка)

(нет голосов)

Загрузка ...

Инженер

Профиль
Группа: Экс. модератор
Сообщений: 6003
Регистрация: 26.3.2002
Где: Германия

Репутация: 19
Всего: 99

Поменяй строку в середине цикла на

Код


Line (ScaleWidth-x, 0)-(ScaleWidth-x, ScaleWidth)

--------------------

Немецкая оппозиция потребовала упростить натурализацию иммигрантов
В моем блоге: Разные истории из жизни в Германии

"Познание бесконечности требует бесконечного времени, а потому работай не работай - все едино". А. и Б. Стругацкие

werta

Дата 27.11.2006, 00:28 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 11
Регистрация: 26.11.2006

Репутация: нет
Всего: нет

cardinal, спасибо большое!!! smile

BorisVorontsov

Дата 27.11.2006, 07:08 (ссылка)

(нет голосов)

Загрузка ...

Thinker

Профиль
Группа: Комодератор
Сообщений: 714
Регистрация: 3.11.2005
Где: Молдавия, г. Киши нёв

Репутация: 5
Всего: 10

Код у автора страшненький, поэтому дам свою универсальную функцию:

Код

Public Sub GradientFill(ByVal hCanvas As Object, ByVal lR As Long, ByVal lG As Long, ByVal lB As Long, _
    ByVal lR2 As Long, ByVal lG2 As Long, ByVal lB2 As Long, Optional ByVal bVertical As Boolean = True)
    Dim W As Long, H As Long
    Dim lOutR As Long, lOutG As Long, lOutB As Long
    Dim i As Long, n As Long
    Dim lStart As Long, lEnd As Long
    W = hCanvas.ScaleWidth
    H = hCanvas.ScaleHeight
    lStart = 0
    lEnd = IIf(bVertical, H, W)
    For n = lStart To lEnd Step IIf(bVertical, Screen.TwipsPerPixelX, _
        Screen.TwipsPerPixelY)
        lOutR = lR + (lR2 - lR) / (lEnd - lStart) * (n - lStart)
        lOutG = lG + (lG2 - lG) / (lEnd - lStart) * (n - lStart)
        lOutB = lB + (lB2 - lB) / (lEnd - lStart) * (n - lStart)
        If bVertical Then
            hCanvas.Line (0, n)-(W, n), RGB(lOutR, lOutG, lOutB)
        Else
            hCanvas.Line (n, 0)-(n, H), RGB(lOutR, lOutG, lOutB)
        End If
    Next n
End Sub

Как ей пользоваться - должно быть интуитивно понятно.

Это сообщение отредактировал(а) BorisVorontsov - 27.11.2006, 07:12

--------------------

[code=cpp]
const char *out = "|*0>78-,+<|"; size_t cc = char_traits<char>::length(out);
for (size_t i=0;i<cc;i++){cout<<static_cast<char>((out[i]^89));}cout<<endl;
[/code]

werta

Дата 27.11.2006, 11:22 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 11
Регистрация: 26.11.2006

Репутация: нет
Всего: нет

BorisVorontsov , Вам тоже огромное спасибо!
я же только учюсь

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| VB6 \| Следующая тема »