Visual FoxPro中超时的消息

时间:2014-03-06 12:14:58

标签: foxpro visual-foxpro

我需要在等待窗口中显示一条超时消息。我已设法使用以下代码执行此操作:

wait window 'Message Here...' timeout 1

如果单击此窗口,则消息将消失。相反,我希望有类似的东西,但如果用户点击该消息,则不会发生任何事情并且消息将保持可见(即消息将仅在超时到期时关闭)。

有人可以帮帮我吗?我不介意有类似的东西(例如消息框)执行相同的功能。

2 个答案:

答案 0 :(得分:2)

尝试使用Visual FoxPro MessageBox()函数。此函数具有可选的超时参数。设置超时参数会使消息框在屏幕上停留大约一段时间,或直到用户单击消息框上的按钮。

Read more about it here

答案 1 :(得分:1)

听起来您想显示一条消息并让用户等待XX秒才能继续。如果是这种情况,那么你可以这样做。

LOCAL ltMessageTimeOut
m.ltMessageTimeOut = DATETIME() + 5

DO WHILE DATETIME() < m.ltMessageTimeOut
    WAIT WINDOW "Display Some Message" NOCLEAR TIMEOUT 1
ENDDO

WAIT CLEAR