还是不可以，在导航的目录树单击的错码
LockBasemainform
Do until Canopen = True '等上一个窗口的代码运行完才能打开下一个窗口
Application.DoEvents
Loop
Functions.Execute("OpenWindow",winName) '打开窗口名为点击节点名称的窗口
UnLockBasemainform
上面Canopen是个全局变量，默认为true,打开窗口的函数第一行就将Canopen = false, 然后在函数最后一行再将Canopen = ture
目的就是必须Canopen = true时才能打开窗口。但为什么不行呢？
如果将代码直接改为
LockBasemainform
if Canopen = True then '等上一个窗口的代码运行完才能打开下一个窗口
Functions.Execute("OpenWindow",winName) '打开窗口名为点击节点名称的窗口
end if
UnLockBasemainform
同时在函数的最后一行再加个msgbox对话框如：
Canopen = true
msgbox(111) '加上这一句每个窗口打开时显示它好象暂停一下似的就可以，不加就不行
老师要怎么办呢?
加好友 
发短信
Post By：2016/5/7 22:27:00 [只看该作者]
此主题相关图片如下：qq截图20160507221001.png