Как изменить цвет ProgressBar?

[ Обновленные темы · Новые сообщения · Участники · Правила форума · Поиск · RSS ]

Страница 1 из 1 1
Модератор форума: server2009, Сергей

Форум » VB6 и всё с ним связанное » FAQ по Visual Basic 6.0 » Как изменить цвет ProgressBar?

Сергей

Дата: Понедельник, 31.08.2009, 13:03 | Сообщение # 1

Лейтенант

Группа: Модераторы

Сообщений: 43

Репутация: 1

Статус: Offline

Option Explicit
Private 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()
ProgressBar1.Max = 100
ProgressBar1.Value = 50
Call SendMessage(ProgressBar1.hwnd, &H409, 0, ByVal vbRed)
Call SendMessage(ProgressBar1.hwnd, &H2001, 0, ByVal vbBlack)
End Sub

Форум » VB6 и всё с ним связанное » FAQ по Visual Basic 6.0 » Как изменить цвет ProgressBar?

Страница 1 из 1
1