以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  菜单设计练习时进度条无反应  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=184652)

--  作者:wfhd1234
--  发布时间: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.png
图片点击可在新窗口打开查看

--  作者:有点蓝
--  发布时间:2022/12/20 14:07:00
--  
样式问题,菜单换个其它样式即可,比如Foxtable经典蓝
--  作者:wfhd1234
--  发布时间:2022/12/21 14:15:00
--  
确实是样式问题,非常感谢。