• Home
 · 
• Custom Controls/Forms/Menus
 · 
• How to place a Progress Bar in A Status Bar Panel (VB5) - should work with VB4(32 bit) and VB6.

How to place a Progress Bar in A Status Bar Panel (VB5) - should work with VB4(32 bit) and VB6.

How to place a Progress Bar in A Status Bar Panel (VB5) - should work with VB4(32 bit) and VB6.

API Declarations


Module Declares for the StatProgressBar example

Chris Eastwood Feb. 1999

http://www.codeguru.com/vb



API Declarations

Public Declare Function SetParent Lib "user32" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long
Public Declare Function SendMessageAny Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal msg As Long, ByVal wParam As Long, lParam As Any) As Long


API Types

RECT is used to get the size of the panel were inserting into

Public Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type


API Messages

Public Const WM_USER As Long = &H400
Public Const SB_GETRECT As Long = (WM_USER + 10)




Rate How to place a Progress Bar in A Status Bar Panel (VB5) - should work with VB4(32 bit) and VB6.

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

    Dim tRC As RECT
    
    If bShowProgressBar Then
'
' Get the size of the Panel (2) Rectangle from the status bar
' remember that Indexes in the API are always 0 based (well,
' nearly always) - therefore Panel(2) = Panel(1) to the api
'
'
        SendMessageAny StatusBar1.hwnd, SB_GETRECT, 1, tRC
'
' and convert it to twips....
'
        With tRC
            .Top = (.Top * Screen.TwipsPerPixelY)
            .Left = (.Left * Screen.TwipsPerPixelX)
            .Bottom = (.Bottom * Screen.TwipsPerPixelY) - .Top
            .Right = (.Right * Screen.TwipsPerPixelX) - .Left
        End With
'
' Now Reparent the ProgressBar to the statusbar
'
        With ProgressBar1
            SetParent .hwnd, StatusBar1.hwnd
            .Move tRC.Left, tRC.Top, tRC.Right, tRC.Bottom
            .Visible = True
            .Value = 0
        End With
        
    Else
'
' Reparent the progress bar back to the form and hide it
'
        SetParent ProgressBar1.hwnd, Me.hwnd
        ProgressBar1.Visible = False
    End If
    
End Sub


See http://www.codeguru.com/vb/articles/1639.shtml for a full sample application