任务十一
尝试使用进度条。
在菜单中增加一个进度条和一个按钮,按钮的事件设置为:
Dim
vl
As
Double
Dim pb As
RibbonMenu.ProgressBar
pb = RibbonTabs("实战演练二").Groups("任务十一").Items("进度条1")
For i As
Integer =
1
To
10000
vl = i / 3
If
i Mod
100 =
0
Then
pb.Value = i /
10000 *
100
Application.DoEvents
End
If
Next
单击开始按钮,进度条将显示任务完成进度:
本页地址:http://www.foxtable.com/webhelp/topics/2041.htm