以文本方式查看主题
- 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
--
确实是样式问题,非常感谢。
|