Visual Basic, .NET, ASP, VBScript
Новости | Примеры | Библиотека кодов | НеЧаВо | VBA | Справочник по VB | Справочник по WinAPI | ActiveX контролы | Статьи по VB | Мастерская разработчика | Форум VBNet | Яndex bar! | Голосование | Полезные программы | Магазин VBNet | Рассылка | Конкурсы | Юмор | Чат | Реклама на VBNet | Автора! | Ссылки | Бета-тестирование | Послать пример на сайт
 

   
   
     

Форум - .NET

Страница: 1 |

 

  Вопрос: Заливка формы Добавлено: 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
  1. Private Sub Form_load()
  2. AutoRedraw = False
  3. End Sub
  4.  
  5. Private Sub Form_Paint()
  6.  
  7. Dim lY As Long
  8. Dim lScaleHeight As Long
  9. Dim lScaleWidth As Long
  10.  
  11. ScaleMode = vbPixels
  12. lScaleHeight = ScaleHeight
  13. lScaleWidth = ScaleWidth
  14. DrawStyle = vbInvisible
  15. FillStyle = vbFSSolid
  16. For lY = 0 To lScaleHeight
  17.  
  18. FillColor = RGB(0, 0, 255 - (lY * 255) \ lScaleHeight)
  19. Line (-1, lY - 1)-(lScaleWidth, lY + 1), , B
  20. Next lY
  21. End Sub


заливает от черного к синему
  1. Private Sub Form_Resize()
  2. For X = 0 To Width
  3. Line (X, 0)-(X, Height), X / (Width / 255)
  4. Next
  5. 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
  1.  
  2.  
  3. Sub FillForm()
  4. If ScaleHeight <= 0 Then Exit Sub
  5. Dim g As Boolean, k As Long, i As Long
  6. g = AutoRedraw
  7. AutoRedraw = True
  8. For i = ScaleHeight To 0 Step ScaleHeight / -255
  9. Line (0, i)-Step(ScaleWidth, -ScaleHeight / 255), RGB(k / 2, k, k / 2), BF
  10. k = k + 1
  11. Next
  12. AutoRedraw = g
  13. End Sub
  14.  
  15. Private Sub Form_Resize()
  16. FillForm
  17. End Sub
  18.  

Ответить

Номер ответа: 5
Автор ответа:
 VβÐUηìt



Вопросов: 246
Ответов: 3333
  Web-сайт: смекаешь.рф
 Профиль | | #5 		Добавлено: 24.01.10 15:38
Еще более светло-зеленый:
  1.  
  2. Sub FillForm()
  3. If ScaleHeight <= 0 Then Exit Sub
  4. Dim g As Boolean, k As Long, i As Long
  5. g = AutoRedraw
  6. AutoRedraw = True
  7. For i = ScaleHeight To 0 Step ScaleHeight / -255
  8. Line (0, i)-Step(ScaleWidth, -ScaleHeight / 255), RGB(k / 1.3, k, k / 1.3), BF
  9. k = k + 1
  10. Next
  11. AutoRedraw = g
  12. End Sub
  13.  
  14. Private Sub Form_Resize()
  15. FillForm
  16. End Sub

Ответить

Номер ответа: 6
Автор ответа:
 iprog



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

Ответить

Страница: 1 |

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам