以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  全局变量保存  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=50568)
--  作者：发财
--  发布时间：2014/5/9 9:29:00
--  全局变量保存

AfterOpenProject

vars("aa")=GetConfigValue("aaaa","")
vars("bb")=GetConfigValue("bbbb","")
vars("kk")=GetConfigValue("kkkk","")
vars("ll")=GetConfigValue("llll","")
vars("ff")=GetConfigValue("ffff","")
vars("gg")=GetConfigValue("gggg","")

AfterSaveProject

Dim a As String = vars("aa")
Dim b As String = vars("bb")
Dim k As String = vars("kk")
Dim l As String = vars("ll")
Dim f As String = vars("ff")
Dim g As String = vars("gg")
SaveConfigValue("aaaa",a)
SaveConfigValue("bbbb",b)
SaveConfigValue("kkkk",k)
SaveConfigValue("llll",l)

每次重新打开，为什么不能保存？
SaveConfigValue("ffff",f)
SaveConfigValue("gggg",g)
--  作者：Bin
--  发布时间：2014/5/9 9:33:00
--  
你保存前,为之赋值了吗?

AfterSaveProject 中 弹出一下  a 看看值是什么
--  作者：发财
--  发布时间：2014/5/9 9:51:00
--  
用Messagebox，没显示，应该保存不起作用，什么原因？
--  作者：Bin
--  发布时间：2014/5/9 9:51:00
--  
不是保存没起作用,而是你没给全局变量赋值.当然就没值.
--  作者：发财
--  发布时间：2014/5/9 9:59:00
--  
在AfterSaveProject中加入Messagebox.Show("保存成功！")
但“保存成功！”不显示。
--  作者：Bin
--  发布时间：2014/5/9 10:01:00
--  
说明没有触发执行这个事件

你代码应该放到关闭项目事件去,而不是保存项目事件
--  作者：有点甜
--  发布时间：2014/5/9 11:35:00
--  

 那就写在beforeCloseProject里面

 

http://www.foxtable.com/help/topics/0668.htm