关于模态窗口的问题，望得到大家的帮助！！！！！！！！！！！！！！！！！！

Question

我做了一个计算程序，由于计算过程需要几分钟，所以我在开始计算时回装入一个窗体，窗体上
写着：“正在计算，请等待。”
   我是这样做的，比如有一个参数设置窗体（叫frmSetVar），此窗体中有一个按钮控件。在他的
Click事件中有如下代码：
   frmWait.Show
   DoEvents
   frmWait.LabNote.Caption = "初始化变量。"
   DoEvents
   初始化变量的代码
   frmWait.LabNote.Caption = "正在计算，请等待"
   DoEvents
   程序的计算代码
   frmWait.Hide其中，初始化变量的代码以及程序的计算代码我是写在公共模块中的函数，这里的是直接调用函数的代码。
    现在的问题是：如果把 frmWait.Show 语句改成 frmWait.Show 1 那么程序讲回停留在第三行代码上，也就是在显示了等待窗体后就不进行其他的工作了。
    而我为了在程序开始计算时不让用户乱点击鼠标，所以希望能使等待窗体是模态窗体，显示在最前面。请问我该怎样办呢？？
    望得到大家的帮助，谢谢！

Answer 1

可否把调用计算函数的代码写到frmWait窗体中去？可以用个定时器，也可在frmWait窗体的某个事件中。

Answer 2

‘而我为了在程序开始计算时不让用户乱点击鼠标’最好的办法(别骂我笨哈) 把窗体disable掉就好了!frmWait.Show 0
DoEvents
frmWait.LabNote.Caption = "初始化变量。"
DoEvents
初始化变量的代码
frmWait.LabNote.Caption = "正在计算，请等待"
DoEvents
程序的计算代码
frmWait.visible=0
me.enabled=1

Answer 3

上面忘了最重要的一行不好意思
me.enabled=0
frmWait.Show 0
DoEvents
frmWait.LabNote.Caption = "初始化变量。"
DoEvents
初始化变量的代码
frmWait.LabNote.Caption = "正在计算，请等待"
DoEvents
程序的计算代码
frmWait.visible=0
me.enabled=1

Answer 4

phommy(顽石宫主) 的方法應該不錯,可行~