在這里我列出思路.
1.拖放一狀態欄控件到表單上.
2.在form_load或new事件中加入
Dim a As ProgressBar = New ProgressBar()
a.Left = StatusBar1.Panels(0).Width + 1
a.Height = StatusBar1.Height - 2
a.Width = StatusBar1.Panels(1).Width
'當然你有兩個panel,否則你就更改一個height.width,left的位置吧
a.Top = 2.5
a.Value = 0
a.Name = "OBar"
StatusBar1.Controls.Add(a)
a.BringToFront()
a.Visible = False
|