| Вопрос: НЕПОРЯДОК | Добавлено: 24.01.05 21:04 |
Автор вопроса:  NovichoK
|
|
Вообщем нашел на сайте примерчик, который как бы должен заливать градиентом кепшен формы - но при испытании он отказался работать... Поробовал на 2 разных компьютерах (98Win,XP) - не работает. ЧТо не так в этом примере?
Самое главное - помню что этот пример я находил еще год назад на этом сайте, но тогда он работал - вроде заливал кепшен красно-черным градиентом если не ошибаюсь... |
| Ответы | Всего ответов: 8 |
|
Номер ответа: 1 Автор ответа:  cresta Вопросов: 117 Ответов: 1538 |
Профиль | | #1 | Добавлено: 24.01.05 21:28 |
|
NovichoK
Как думаешь, много найдётся желающих "пойти туда, незнаю куда, посмотреть то, не знаю что"? |
||
|
Номер ответа: 2 Автор ответа: sneРазработчик Offline Client ICQ: 233286456 Вопросов: 34 Ответов: 5445 |
Web-сайт: Профиль | | #2 | Добавлено: 25.01.05 00:07 |
Найди другой 
А пример кажись такой назывался Titler... |
||
|
Номер ответа: 3 Автор ответа: NovichoK Вопросов: 72 Ответов: 147 |
Профиль | | #3 | Добавлено: 25.01.05 00:32 |
|
http://www.vbnet.ru/faq/showtopic.asp?id=47
Вот это куда можно пойти и на что можно посмотреть  но не более
2Sne: Знать бы где найти аналог этому примеру... Я вообще считаю что vbnet - лучший сайт по вбресурсам(ну там еще где то близко vbrussians), но только благодаря одному форуму vbnet круто опережает остальные подобные сайты. |
||
|
Номер ответа: 4 Автор ответа: Empro ICQ: r Вопросов: 2 Ответов: 9 |
Web-сайт: Профиль | | #4 | Добавлено: 25.01.05 08:50 |
| ага, Titler. и в комплекте еще кнопка... | ||
|
Номер ответа: 5 Автор ответа: АлександрРазработчик Offline Client ICQ: 204034 Вопросов: 106 Ответов: 1919 |
Профиль | | #5 | Добавлено: 25.01.05 09:38 |
| Ну можно и свой написать. Или я не прав? | ||
|
Номер ответа: 6 Автор ответа: NovichoKВопросов: 72 Ответов: 147 |
Профиль | | #6 | Добавлено: 25.01.05 13:36 |
| Да можно, конечно но вопервых это надо сделать за 2 дня, приэтом есть куча других забот, а во вторых я еще не подозреваю как это сделать - поэтому это может занять дня 4... | ||
|
Номер ответа: 7 Автор ответа: CyRax  Разработчик Offline Client ICQ: 204447456 Вопросов: 180 Ответов: 4229 |
Web-сайт: Профиль | | #7 | Добавлено: 26.01.05 05:18 |
| Если я не ошибаюсь, то там заголовка как такового вообще не было, а за него выдавался верхний кусок формы. | ||
|
Номер ответа: 8 Автор ответа: CyRax Разработчик Offline Client ICQ: 204447456 Вопросов: 180 Ответов: 4229 |
Web-сайт: Профиль | | #8 | Добавлено: 26.01.05 05:27 |
|
А заливка в грубом варианте выглядит так:
Sub GradientFill(ByVal RGB_123 As Long) Me.ScaleMode = vbPixels For DrawHor = 1 To 250 Select Case RGB_123 Case 1 'R Me.Line (DrawHor, 0)-(DrawHor, 50), RGB(DrawHor, 0, 0) Case 2 'G Me.Line (DrawHor, 0)-(DrawHor, 50), RGB(0, DrawHor, 0) Case 3 'B Me.Line (DrawHor, 0)-(DrawHor, 50), RGB(0, 0, DrawHor) End Select Next DrawHor End Sub |
||
Страница: 1 |