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

[yanyanyanyan]

rt

[lovebeethoven]

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

[yanyanyanyan]

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

[fishzone]

在状态栏里用字符的方法里模拟一个。
比如说 100 个I是 100% 的话，10% 就是10个"I"，看起来也挺像的。

[wwqna]

Private Declare Function SetParent Lib "user32" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long

Private Sub Command1_Click()
With ProgressBar1
.Max = 1000
Dim i As Integer
For i = 1 To 1000
.Value = i
Next i
End With
End Sub

Private 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

'相对位置你可以自己再调一下