以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  什么情况?  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=162999)

--  作者:hb8888
--  发布时间:2021/4/20 12:52:00
--  什么情况?
大师:2020-1-19版本,vars变量赋值false可以,怎么2020-5-18版本怎么不行了??
--  作者:有点蓝
--  发布时间:2021/4/20 13:33:00
--  
测试没有问题
vars("a") = False
Output.Show(vars("a"))

--  作者:hb8888
--  发布时间:2021/4/20 15:28:00
--  
那自定义的过程,怎么不可用引用全局变量了?
--  作者:有点蓝
--  发布时间:2021/4/20 15:31:00
--  
请举例说明
--  作者:hb8888
--  发布时间:2021/4/20 16:06:00
--  
比如:
……
vars("todo") = true
Do
    If FindFileData.cFileName.Equals(".") OrElse FindFileData.cFileName.Equals("..") Then Continue Do
    If  searchOption = io.SearchOption.AllDirectories AndAlso ((FindFileData.dwFileAttributes And io.FileAttributes.Directory) = io.FileAttributes.Directory) Then
        EnumerateFiles(io.Path.Combine(path, FindFileData.cFileName))
    Else
        _list.add(io.Path.Combine(path, FindFileData.cFileName))
    End If
    Application.Doevents
Loop While FindNextFile(hFind, FindFileData) AndAlso vars("todo")
if vars("todo")= false then return

停止按钮代码
vars("todo") = false

不过这样为了响应消息循环,搜索会更慢


--  作者:hb8888
--  发布时间:2021/4/20 16:07:00
--  
以前版本vars("todo") = false 变量传送可以,现在不行?
--  作者:有点蓝
--  发布时间:2021/4/20 16:13:00
--  
停止按钮代码
vars("todo") = false
Application.Doevents

do里面的代码如果已经在执行,肯定要等执行完一遍

--  作者:hb8888
--  发布时间:2021/4/20 18:59:00
--  
就是不行,老版本可以,新版本就不行,停止不了??

--  作者:有点蓝
--  发布时间:2021/4/20 20:28:00
--  
不是全局变量的问题,而是按钮不响应,我反馈一下
--  作者:hb8888
--  发布时间:2021/4/20 21:47:00
--  
命令及代码窗口精灵也有问题,有的属性方法不显示。
如:dim a as new process
     dim b as new api.process   \'---自己定义的
老版本可以,新版本精灵就不行了。
所以说,根本不敢更新!