急急急！！！！VB对话框问题！

wantgoal

如何做一个对话框在运行的时候一直存在当运行完了自动消失
比如我导入一样东西，导入过程长达1分钟，这一分钟这个对话框一直显示“正在导入中”导入完了自动关闭，变成导入成功
   msg = "请稍等"
   Title = "正在导入中"
   Style =                        ' 是修改这里么？？？？改成什么
   Response = MsgBox(msg, Style, Title)

Cipher

对话框不具有这个功能

我用这个方法代替：
弄个窗体来做人工对话框，去掉control box和最大最小按钮
用的时候挂起其他窗口，导入完成后自己unload对话框就可以了。中间还可以加进程条的显示

你要写的更好一些，那就用异步操作吧。不过我看导入时横竖都不能做其他事，这也够用了

wantgoal

LS的，进程条怎么加？？？

wantgoal

好方法，试验了一下，但进程条不会加

Miu.C

高估VB的能力了。

psic

那就靠API来帮忙……

Miu.C

硬把进度条塞进去。

大元帅

MSGBOX会挂起应用程序 怎么能用这个做呢 自己做一个窗口 然后Show 1或者ShowDialog()就好了，然后读取完毕后就Unload Me或者Me.Dispose就好了

Cipher

进度条用自带控件就可以了么.反正是自己做的窗体，什么都能加。只是刷新进度条时要用doevents，不然看不到

Miu.C

多线程就不会“挂起”了。