VBNet - Форум - Заливка формы

Вопрос: Заливка формы Добавлено: 24.01.10 13:32

Автор вопроса: iprog | Web-сайт: usprogs.atheo-club.ru

Добрый день.
Нашёл код заливки формы с плавным переходом из чёрного в синий снизу вверх.

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

Подскажите пожалуйста, как, используя этот код, залить форму снизу вверх с плавным переходом от чёрного к светло-зелёному? Спасибо.
Ответить

Ответы Всего ответов: 6

Номер ответа: 1 Автор ответа: ηikolaŠ~rus ICQ: 604058327 Вопросов: 50 Ответов: 287	Профиль \| Цитата \| #1	Добавлено: 24.01.10 14:20
	Снизу вверх как заливать не знаю,а чтоб узнать RGB светло зелоного залезь в фотошоп и выбири нужным цвет и посмотри RGB и потом это значение засунь в код Ответить

Номер ответа: 2 Автор ответа: ηikolaŠ~rus ICQ: 604058327 Вопросов: 50 Ответов: 287	Профиль \| Цитата \| #2	Добавлено: 24.01.10 14:27
	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 заливает от черного к синему Private Sub Form_Resize() For X = 0 To Width Line (X, 0)-(X, Height), X / (Width / 255) Next End Sub заливает справа на лево короче со цветами разберешься Ответить

Номер ответа: 3 Автор ответа: AWP ICQ: 345685652 Вопросов: 96 Ответов: 1212	Web-сайт: xawp.narod.ru Профиль \| Цитата \| #3	Добавлено: 24.01.10 15:29
	Ёж маё... FillColor = RGB(0, 255 - (lY * 255) \ lScaleHeight,0) Ответить

Номер ответа: 4 Автор ответа: VβÐUηìt Вопросов: 246 Ответов: 3333	Web-сайт: смекаешь.рф Профиль \| Цитата \| #4	Добавлено: 24.01.10 15:34
	Sub FillForm() If ScaleHeight <= 0 Then Exit Sub Dim g As Boolean, k As Long, i As Long g = AutoRedraw AutoRedraw = True For i = ScaleHeight To 0 Step ScaleHeight / -255 Line (0, i)-Step(ScaleWidth, -ScaleHeight / 255), RGB(k / 2, k, k / 2), BF k = k + 1 Next AutoRedraw = g End Sub Private Sub Form_Resize() FillForm End Sub Ответить

Номер ответа: 5 Автор ответа: VβÐUηìt Вопросов: 246 Ответов: 3333	Web-сайт: смекаешь.рф Профиль \| Цитата \| #5	Добавлено: 24.01.10 15:38
	Еще более светло-зеленый: Sub FillForm() If ScaleHeight <= 0 Then Exit Sub Dim g As Boolean, k As Long, i As Long g = AutoRedraw AutoRedraw = True For i = ScaleHeight To 0 Step ScaleHeight / -255 Line (0, i)-Step(ScaleWidth, -ScaleHeight / 255), RGB(k / 1.3, k, k / 1.3), BF k = k + 1 Next AutoRedraw = g End Sub Private Sub Form_Resize() FillForm End Sub Ответить

Номер ответа: 6 Автор ответа: iprog Вопросов: 26 Ответов: 110	Web-сайт: usprogs.atheo-club.ru Профиль \| Цитата \| #6	Добавлено: 24.01.10 18:30
	Спасибо всем! Ответить

Страница: 1 |