请教关于进度条的问题
我想让显示进度的百分比在进度条中间显示,应该怎样写呀???
我的代码如下:
Private Sub Command1_Click()
Timer1.Enabled = True
Progress1.Percent = 0
Progress1.Refresh
End Sub
Private Sub Form_Load()
Progress1.Percent = 0
Progress1.Refresh
Timer1.Enabled = False
End Sub
Private Sub Timer1_Timer()
Progress1.Percent = Progress1.Percent + 1
Progress1.Refresh
'我只能让他显示在这里。
lblloading.Caption = "程序加载中..: " & Progress1.Percent & "%"
Progress1.Refresh
If Progress1.Percent = 100 Then
Timer1.Enabled = False
lblloading.Caption = "加载完成!"
End If
End Sub