所以，我的做法是在每个activate里写下面的句子
if !empty(this.tag)
    retu
endif

this.tag=‘1’
...

这样的话，就不糟糕了

你的代码可以保证你写的代码只执行一次。

但是判断的是否为一次的代码会执行无数次。。。

在Activate事件里处理无非就是想在用户控制表单之前显示点东西看看。
Activate看似是异步消息事件，应该与show方法无关。
随便在截图前中断一下再继续就无问题。
简单测试结果：
1、messagebox()中断，肯定无问题
2、inkey(x)中断，要看延时，本测试inkey(0.1)无问题
3、this.cls 中断，无问题

这些都不错，2、3都行，虽然都要闪一下。

也许是吧，但就本例而言，do打开表单、拍个照、release释放表单，期间人为不操作任何东西。