标签1.标题 = “已载入” + 到文本 (进度条1.位置) + “%.请稍等”
最简单的方法就是根据进度,改变标签的长度。。。。
同意二楼
1、 设置属性: Label1.AutoSize的大小随标题内容的大小自动调整,取值为:True
代码:
Private Sub Command1_Click()
For t = 1 To 10000
ProgressBar1.Value = t / 100
Label1.Caption = "程序运行了" & t / 10000 * 100 & "%"
Next
End Sub