Где хранится "НедоПрогрессБар"?

[A.A.Z.]

Как сделать это ? Я уже поднимал этот вопрос, но что-то не особо...
Мне нужен такой, неопределенный, скажем так, ПрогрессБар, т.е. чтобы просто показывал, что прога не висит, но не отображал ход событий. Ведь использует же его Винда, значит, он в какой-то из библиотек лежит?

[GSerg]

Да просто цвет лейбла меняй, к примеру.
А вообще, читай Писание

[A.A.Z.]

А чему равна константа PBM_SETMARQUEE? В Писании не написано, в API_Viewer'е - 0, в Яндексе - 0!

[Demonx]

Вот: PBM_SETMARQUEE = WM_USER + 10

[A.A.Z.]

А, все, спасибо, слава Google, нашел сам!
Если кому интересно: делаем манифест, добавляем ПрогрессБар, вставляем код

Код: Выделить всё

Option Explicit

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Integer, ByVal lParam As Any) As Long
Private Declare Function GetWindowLong Lib "user32.dll" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32.dll" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long

Private Const GWL_STYLE As Long = -16
Private Const WM_USER As Long = &H400
Private Const PBM_SETMARQUEE As Long = (WM_USER + 10)
Private Const PBM_MARQUEE As Long = 8

Private Sub Form_Load()
Dim I&
I = GetWindowLong(ProgressBar1.hwnd, GWL_STYLE)
SetWindowLong ProgressBar1.hwnd, GWL_STYLE, I Or PBM_MARQUEE
SendMessage ProgressBar1.hwnd, PBM_SETMARQUEE, 1, CLng(50)
End Sub


и компилируем. Все работает!