Question

VB中，如何做到关闭程序后变量的值仍然保留？

Answer 1

“API”中专门提供了处理注册表的函数，不用说也知道，它们肯定功能强大（因为它们是API），但是它们的难度也是不小的。如果你是一个入门者的话，这大概会令你头痛一阵子。不过VB本身还提供了几个函数，专门用来处理注册表，相对来说它们就简单多了，所以我只对它们做一下说明：
SaveSetting
appname,
section,
key,
value
这句话的作用是将应用程序的信息存入注册表中。其中四个参数都是必要的，其含义分别为：应用程序名，区段，键，值。比如我们要为我们的程序（名为“测试”）的主窗体的位置进行存储，就可以写成：
SaveSetting
“测试”,”main”,”
top”,frmMain.Top
SaveSetting
“测试”,”main”,”
Left”,frmMain.Left
SaveSetting
“测试”,”main”,”
Width”,frmMain.Width
SaveSetting
“测试”,”main”,”
Height”,frmMain.Height
这样，就把当前的主窗体的位置进行了记录，在下次打开这个窗体的时候，我们就可以在把这些值取出来。那么如何才能把我们所存储的值取出来呢？这就要用到另一个函数：GetSetting，它的语法是：
GetSetting(appname,
section,
key[,
default])
该函数的各部分的意义均和上面的函数的意义相同，所不同的是多了一个default而少了一个value。这个函数最后返回的结果即value值，而default指的是如果所指定的键不存在时，则以default指定的值为返回结果。如果没指定default，则default的默认值是””，即0长度的字符串。接上例，在程序刚开始的时候，我们应该取出上一次所存储的主窗体的位置，可以写成：
frmMain.Top
=
GetSetting
(“测试”,”main”,”top”)
frmMain.Left
=
GetSetting
(“测试”,”main”,”Left”)
frmMain.Height
=
GetSetting
(“测试”,”main”,”Height”)
frmMain.Width
=
GetSetting
(“测试”,”main”,”Width”)
好了，到此为止，可以暂且告一段落，让我们打开注册表，看一看我们把信息是记录在什么地方了。按照下面的路径打开：
HKEY_CURRENT_USERSoftwareVB
And
VBA
Program
Settings
你会看到你的“测试”就在里边放着。
当你的应用程序最终被卸载时，你应该考虑（而且你应该这样做）把你写入注册表中的内容清除掉，因为离开了你的应用程序，它们无疑就是一推垃圾而已。要想将它们删掉，我们可以用函数：DeleteSetting，它的语法如下：DeleteSetting
appname,
[section[,
key]]
在几个参数中，只有appname是必须地，其它两项均可选。比如我们要删除窗体的“高”这键，则可以写成：DeleteSetting
“测试”,”main”,”Height”如果我们要将”main”这个段整个去掉，则可以写成DeleteSetting
“测试”,”main”
如果我们再彻底一些，想将整个应用程序去掉的话，就干脆直接写成：
DeleteSetting
“测试”
这种方法的不足之处是只能把信息记录在指定的位置，即
HKEY_CURRENT_USERSoftwareVB
And
VBA
Program
Settings
如果要写入到别的地方，就要借助于API了。
这两个函数要注意2点：
1.要控制好函数中变量的出、入的类型；
2.getsetting的默认值一般情况下最好设一下，这样当注册表中没有内容时也好保证程序的正常运行，当然也要注意类型。

Answer 2

可以把这个值写入注册表，文档或数据库。程序关闭后，变量肯定会被清空的

Answer 3

可以将变量保存在一个文件中（txt、ini、xml、mdb)中或注册表里
在程序启动的时候读取，关闭的时候保存。
数据比较多建议使用数据库，如果少使用文本文件就可以。
下面是使用文本文件来保存你的数据
打开程序的时候读取数据
Static
a
As
Integer
Open
App.Path
&
"\counter.txt"
For
Input
As
#1
Line
Input
#1,
a
Close
#1
a
=
a
+
1
退出程序的时候如下代码：
Open
App.Path
&
"\home.txt"
For
Output
As
#1
Print
#1,
a
Close
#1

Answer 4

写入到文件中去。没办法的。一定得要个地方保存这个东西。
追忆已经回答的很明确了。