主题：[求助]代码执行问题(已解决）

设计了一等待窗口。令了一全局变量_FromIsOpened。两个函数：

打开等待窗口函数：

If _FromIsOpened = False Then '''如果等待窗口已关闭
   
    If Forms("等待响应").Opened = False Then Forms("等待响应").Open
    If Args.length = 1 Then Forms("等待响应").Controls("提示信息").text = Args(0)
    _FromIsOpened = True
End If

 

关闭等待窗口函数：

If _FromIsOpened = True Then  ''如果等待窗口已打开
    If Forms("等待响应").Opened = True Then Forms("等待响应").Close
    _FromIsOpened = False
End If

 

有两按钮，

按钮一代码：

Functions.Execute("打开等待窗口")

。。。。。查询加载数据的代码

Functions.Execute("关闭等待窗口")

 

按钮二代码：

Functions.Execute("打开等待窗口")

按钮一.PerformClick

Functions.Execute("关闭等待窗口")

 

 

单击按钮二，出现的问题：等待响应窗口显示2次，要实现只显示1次。

 

求助大家，谢谢

 

按钮二代码：

按钮一.PerformClick

我在描述问题时，少说了一个按钮。

实际为3个按钮，

 

按钮一代码：

Functions.Execute("打开等待窗口")

。。。。。查询加载数据的代码

Functions.Execute("关闭等待窗口")

 

按钮二代码：

Functions.Execute("打开等待窗口")

。。。。。查询加载数据的代码

Functions.Execute("关闭等待窗口")

 

按钮三代码：

Functions.Execute("打开等待窗口")

按钮一.PerformClick

按钮二.PerformClick

Functions.Execute("关闭等待窗口")

单击按钮三，出现的问题：等待响应窗口显示3次，要实现只显示1次。

1、把按钮代码搬到函数

等待窗口用到的地方很多，不可能将所按钮的代码都写到函数。

按我的理解，应该能实现的。

理由：_FromIsOpened初始为False，启动一等待窗口，值为true。当为True时，则不为执行打开窗口函数，直到为False时才会执行。

 

但测试时，就是无法实现。

各位老师，这个问题还没得到解决哟

看4楼，没有其它办法

 只管打开，关闭窗口，用一个计时器来关闭，判断变量的值即可。

5楼的分析有什么问题吗？