| Вопрос: Цветной ProgressBar | Добавлено: 05.12.05 16:36 |
Автор вопроса:  Alan
|
|
Здравствуйте, господа и дамы!
Я здесь, с позволения сказать, впервые и у меня небольшой вопрос: можно ли ProgressBar-у добавить нестандартные свойства, то как BackColor и FontColor? Я для одной девайсины софт накорябал, а вот системный синий цвет элемента не всегда удобен. С уважением Alan |
| Ответы | Всего ответов: 11 |
|
Номер ответа: 1 Автор ответа:  Pashenko ICQ: 176176951 Вопросов: 14 Ответов: 655 |
Профиль | | #1 | Добавлено: 05.12.05 16:42 |
|
Я обычно прогрессбар из двух прямоугольных шейпов делаю...
Первый в виде рамки, второй поверх первого, такой же высоты, переменной длины, закрашенный. |
||
|
Номер ответа: 2 Автор ответа:  «UL.eXe»ICQ: 197.895.916.247 Вопросов: 72 Ответов: 540 |
Профиль | | #2 | Добавлено: 05.12.05 18:40 |
|
Скачай ocx цветных прогрессбаров с этого форума или на лагой случай сделай по примитивному:
Возьми label1 и label2 нужных цветов.. и пользуйся ими как прогрессбарами (Вместо Value вполне подойдет Width) |
||
|
Номер ответа: 3 Автор ответа: HACKER Разработчик Offline Client Вопросов: 236 Ответов: 8362 |
Профиль | | #3 | Добавлено: 06.12.05 01:29 |
| ищи ocx and userControls | ||
|
Номер ответа: 4 Автор ответа: LamerOnLineICQ: 334781088 Вопросов: 108 Ответов: 2822 |
Профиль | | #4 | Добавлено: 06.12.05 11:08 |
| У меня где-то завалялся исходник прогресса на VB под дельфевский стиль. Кстати, вроде бы даже отсюда (или с VBStreets) скачивал. | ||
|
Номер ответа: 5 Автор ответа: astoroICQ: 649109 Вопросов: 31 Ответов: 391 |
Профиль | | #5 | Добавлено: 06.12.05 12:49 |
|
Для прогрессбара из КоммонКонтролов
Public Const CCM_FIRST = &H2000 Public Const CCM_SETBKCOLOR = (CCM_FIRST + 1) Public Const PBM_SETBKCOLOR = CCM_SETBKCOLOR Public Const WM_USER = &H400 Public Const PBM_SETBARCOLOR = (WM_USER + 9) Public Declare Function SendMessage Lib _ "user32" Alias "SendMessageA" _  ByVal hwnd As Long, _
ByVal wMsg As Long, _ ByVal wParam As Long, _ lParam As Any) As Long Private Sub Form_Load() 'Установим цвет бара в ProgressBar SendMessage PB1.hwnd, PBM_SETBARCOLOR, 0, ByVal RGB(255, 0, 0) 'Установим фон у ProgressBar SendMessage PB1.hwnd, PBM_SETBKCOLOR, 0, ByVal RGB(101, 154, 107) End Sub |
||
|
Номер ответа: 6 Автор ответа: AASoftВопросов: 86 Ответов: 920 |
Профиль | | #6 | Добавлено: 06.12.05 21:38 |
|
@astro
a esli XP temy enabled, to chto etot kod sdelaet? a to shas pod rukoj VB6 netu, poprobovat` ne mogu. |
||
|
Номер ответа: 7 Автор ответа: MorpheusВопросов: 224 Ответов: 3777 |
Web-сайт: Профиль | | #7 | Добавлено: 06.12.05 23:58 |
| Ну у автора раз синий так синий. а это или 9х или 2000 или миллениум или хрень без стилей. так что это я думаю точный ответ на вопрос | ||
|
Номер ответа: 8 Автор ответа: astoroICQ: 649109 Вопросов: 31 Ответов: 391 |
Профиль | | #8 | Добавлено: 07.12.05 07:19 |
|
Какая разница, enabled или не enabled.
В коммон контролах для VB6 нет понятия XP темы. поэтому действия сего кода одинаково во всех темах. PS: не знаю как подействует на него манифест, однако думаю, что не подействует никак. |
||
|
Номер ответа: 9 Автор ответа:  someoneВопросов: 215 Ответов: 1596 |
Web-сайт: Профиль | | #9 | Добавлено: 07.12.05 18:35 |
| ! Юзай ccprProgressBar ! | ||
|
Номер ответа: 10 Автор ответа: AASoftВопросов: 86 Ответов: 920 |
Профиль | | #10 | Добавлено: 07.12.05 20:27 |
| ne, ya v smysle chto sluchitsya esli vot u tebya est` progressbar, s XP temami. so est` takoj zakruglennyj, s zelenen`kimi kusochkami vnutri. a teper` ty davish na knopku, i zapuskaetsya tot kod. chto sluchitsya? kak budet progressbar vyglyadet`? (prosto vopros, ya tvoj metod ne kritikuyu) | ||
|
Номер ответа: 11 Автор ответа: Alan Вопросов: 1 Ответов: 1 |
Профиль | | #11 | Добавлено: 09.12.05 18:02 |
|
Всем огромное Thanks, сделал что хотел,а точнее,
у нас на работе нужен индикатор уровня звука на входах-выходах 16-ти источников с возможностью отображения пропадания и перегрузки каналов, вот к чему этот цветной PrgsBar. АЦП на Pic16f877, он по RS гонит данные в порт, а остальное софт... |
||
Страница: 1 |