请教 mdi主窗口，想在状态栏显示进度条，有什么好办法？

Question

rt

Answer 1

搞个PICTUREBOX做容器，然后在上面放进度条就是啦

Answer 2

PICTUREBOX 是一个简单的办法，有没有更好的

Answer 3

Private Declare Function SetParent Lib "user32" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As LongPrivate Sub Command1_Click()
    With ProgressBar1
        .Max = 1000
        Dim i As Integer
        For i = 1 To 1000
            .Value = i
        Next i
    End With
End SubPrivate Sub Form_Load()
    ProgressBar1.Appearance = ccFlat
    SetParent ProgressBar1.hWnd, StatusBar1.hWnd
    ProgressBar1.Left = StatusBar1.Panels(1).Left
    ProgressBar1.Top = 100
    ProgressBar1.Width = StatusBar1.Panels(1).Width - 50
    ProgressBar1.Height = StatusBar1.Height - 150
End Sub'相对位置你可以自己再调一下