MS Access 2003 - 消息框:如何通过代码自动回答"ok"

Question

所以有几个愚蠢的问题:

如果我在某些情况下包括这个:

MsgBox " ", vbOkOnly, "This little message box"

我可以用更多的代码转过来然后'点击确定按钮.那么基本上消息boox会自动弹出,然后自动消失？

我知道它很愚蠢,因为你想知道,为什么你想要消息框然后......

以及a)我只是想知道你是否能做到这一点,以及命令是什么

b)我有一些在消息框出现时可见的基本形状(形状对象).但是,如果没有消息框,则在等待单击按钮时不会暂时中断代码,因此可见的漂亮图像对象会在窗体上生效.

所以我真的不需要消息框,只需要显示对象的临时中断.

谢谢!

Answer 1

A MsgBox是莫代尔.只有两个与模态相关的设置

• ApplicationModal
• 系统模式

因此,如果当前应用程序弹出了Msgbox,则在单击消息框上的按钮之前不会运行任何代码.

解决这个问题的方法是使用表单设计自己的消息框.您可以将其弹出并保持打开,然后您可以"点击"您想要的任何按钮.

如果您想要延迟,可以使用Win API来休眠

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Private Sub ApiSleep(SleepMilliseconds as Long)
    Sleep SleepMilliseconds 
End Sub