关于VBA 提示框的问题 - VB6论坛

编程论坛 → 开发语言 → 『 VB6论坛』 → 关于VBA 提示框的问题

标题：关于VBA 提示框的问题

取消只看楼主

linanguyu

等　级：新手上路
帖　子：33
专家分：0
注　册：2008-4-21
结帖率：40%

楼主

已结贴√ 问题点数：20 回复次数：2

关于VBA 提示框的问题

我想实现当我的程序在运行过程中，出现一个提示框，显示“程序正在运行中，请稍后。。。”，程序运行后显示结果，请高手指教。

搜索更多相关主题的帖子: 约瑟芬　故事　

2011-04-01 16:52

linanguyu

等　级：新手上路
帖　子：33
专家分：0
注　册：2008-4-21

第 2 楼

得分:0

Sub auto_open(Q)
With UserForm3

.Show 0

For I = 1 To Q

.Label3.Width = Int(I / Q * 285)

.Label4.Caption = CStr(Int(I / Q * 100)) + "%"

DoEvents

Next I

End With

End Sub

我用的是主程序调用上面的代码，但是运行到show 0,就返回到主程序了。

2011-04-05 13:33

linanguyu

等　级：新手上路
帖　子：33
专家分：0
注　册：2008-4-21

第 3 楼

得分:0

cad vba 是不是没有show 0类似的功能啊，怎样才能实现这种功能啊？请高手指教

2011-04-05 15:38

参与讨论请移步原网站贴子：https://bbs.bccn.net/thread-335413-1-1.html