9 Ноябрь 2008

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

ProgressBar |  Таги: , ,

Как изменить цвет ProgressBar?
На форме должен находиться ProgressBar.

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, 1033, 0, ByVal vbRed)
    Call SendMessage(ProgressBar1.hwnd, 8193, 0, ByVal vbBlack)
End Sub

Запись опубликована on 09.11.2008 at 16:32 и размещена в рубрике: ProgressBar. Вы можете читать комментарии, используя RSS-ленту. Вы можете оставить комментарий, или отправить трекбек с Вашего сайта.



Оставить комментарий

Я не робот.