以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  定义全局代码问题,请教老师  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=34337)

--  作者:mamuaiqing
--  发布时间:2013/6/5 17:37:00
--  定义全局代码问题,请教老师

想在窗口中做个按钮,将文本控件的值加入到全局代码中,代码要怎么写?

 

比如全局代码中已经写入 Public wo As String

 

窗口文本控件中的值为"未知|已知" ,点下按纽后 全局代码中  Public wo As String = "未知|已知"  并永久保存在 全局代码中  

 

这个代码要怎么写


--  作者:Bin
--  发布时间:2013/6/5 17:39:00
--  
wo = e.Form.Controls("TextBox1").Text
--  作者:mamuaiqing
--  发布时间:2013/6/5 17:47:00
--  
感谢Bin老师,这个的话在项目重新打开后就无效了,学生要的是在全局代码中"Public wo As String = "未知|已知" 这样的
--  作者:mamuaiqing
--  发布时间:2013/6/5 17:47:00
--  
就是直接在全局代码中写入这个值
--  作者:Bin
--  发布时间:2013/6/5 17:50:00
--  
你希望重新打开项目还有效 那么存在全局代码就没用...

利用SaveConfigValue  和GEtConfigValue 做吧


--  作者:don
--  发布时间:2013/6/5 17:54:00
--  

保存设置信息

一个完整的系统,通常会提供一些自定义的设置给用户,以便满足不同的用户需要。
Foxtable提供了一些函数,分别用于保存、读取和维护设置信息。

SaveConfigValue

保存设置信息

语法:

SaveConfigValue(Name, Value)

Name: 设置名称
Value: 设置值

设置信息经过加密储存,安全性比一般的方式更有保证。



GetConfigValue

读取设置信息。

语法:

GetConfigValue(Name, DefaultValue)

Name: 设置名称
DefaultValue:默认设置值,如果指定名称的设置不存在,则返回此值。


--  作者:mamuaiqing
--  发布时间:2013/6/5 18:01:00
--  
感谢 Bin 老师,原来还有这个功能