dialog.frm show后pause程序

[wwhunter1214]

问题：
提示窗口dialog.frm show后程序仍然运行，有没有方法在dialog.frm show 以后pause程序？

要求：
应用程序运行后，给用户一个提示窗口dialog.frm。
窗口中的确认cmd选择后程序继续运行，取消cmd选择后程序终止。
有点类似于msgbox功能

        Dim RetureValue As Integer
        RetureValue = MsgBox "Warning！！！", vbOKCancel
        Debug.Print RetureValue
        If RetureValue = 2 Then Exit Sub

[wwhunter1214]

自己找到方法了，定义一个public dPause as integer
dPause =1
ok 的话 dPause = 3
cancel的话 dPause = 2

 
        dPause = 1
        Dialog.Show
        While dPause = 1
        dPause = dPause
        DoEvents
        Wend
        If dPause = 2 Then Clear: Exit Sub        'Select cancel cmd

自己给自己结贴了。嘎嘎

[li163]

[Quote=引用 1 楼 wwhunter1214 的回复:]
自己找到方法了，定义一个public dPause as integer
dPause =1
ok 的话 dPause = 3
cancel的话 dPause = 2

VB code


dPause = 1
Dialog.Show
While dPause = 1
dPause = dPause
……
自己给自己结贴了。嘎嘎
[/Quote]

你自己结不了，嘎嘎

[王二.麻子]

把dPause的定义放在Dialog窗体的声明部分定义，并且是public。

显示Dialog.Show加上参数1，这样Dialog不结束就不能到下一步。再Dialog的cmd里面给dPause赋值，并隐藏Dialog窗体。
然后访问的时候用Dialog.dPause,

你的方法能实现，就是看起来费劲些，还用了全局变量。。。

[wwhunter1214]

[Quote=引用 3 楼 spt_petrolor 的回复:]
把dPause的定义放在Dialog窗体的声明部分定义，并且是public。

显示Dialog.Show加上参数1，这样Dialog不结束就不能到下一步。再Dialog的cmd里面给dPause赋值，并隐藏Dialog窗体。
然后访问的时候用Dialog.dPause,

你的方法能实现，就是看起来费劲些，还用了全局变量。。。
[/Quote]

谢谢大师的建议，我去试试。

[wwhunter1214]

可行，结贴

[dbcontrols]

来晚了