任务十一

尝试使用进度条。

在菜单中增加一个进度条和一个按钮,按钮的事件设置为:

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