- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 菜单设计练习时进度条无反应 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=184652)
-- 发布时间：2022/12/20 13:47:00
-- 菜单设计练习时进度条无反应
帮助文件中<菜单设计>-<实战演练>-<任务十一>中点击开始按钮，进度条没有反应。开始按钮Click事件
以下内容为程序代码:
1 Dim vl As Double
2 Dim pb As RibbonMenu.ProgressBar
3 pb = RibbonTabs("实战演练二").Groups("任务十一").Items("进度条1")
4 For i As Integer = 1 To 10000
5 vl = i / 3
6 If i Mod 100 = 0 Then
7 pb.Value = i / 10000 * 100
8 Application.DoEvents
9 End If
10 Next
11
1 Dim vl As Double
2 Dim pb As RibbonMenu.ProgressBar
3 pb = RibbonTabs("实战演练二").Groups("任务十一").Items("进度条1")
4 For i As Integer = 1 To 10000
5 vl = i / 3
6 If i Mod 100 = 0 Then
7 pb.Value = i / 10000 * 100
8 Application.DoEvents
9 End If
10 Next
11
此主题相关图片如下：图片1.png
-- 发布时间：2022/12/20 14:07:00
--
样式问题，菜单换个其它样式即可，比如Foxtable经典蓝
-- 发布时间：2022/12/21 14:15:00
--
确实是样式问题，非常感谢。