Question

vb中怎么保存变量

就是怎么把编好的程序中的变量保存，下次打开时调用上次保存的变量。

Answer 1

最简单的方法，用vb的SaveSetting和GetSetting对注册表进行读写
Public Sub SaveSetting( _
ByVal AppName As String, _
ByVal Section As String, _
ByVal Key As String, _
ByVal Setting As String _
) 参数
AppName
必需。String 表达式，该设置吵厅要应用到的应用程序或项目的名称。

Section
必需。String 表达式，注册表项设置要保存到的节的名称。

Key
必需。String 表达式，包含要保存的注册表项设置的名称。

Setting
必需。表达式，毁碰渣包纤悄含 Key 的设定值。

Public Function GetSetting( _
ByVal AppName As String, _
ByVal Section As String, _
ByVal Key As String, _
Optional ByVal Default As String = "" _
) As String 参数
AppName
必选。String 表达式，包含其键设置被请求的应用程序或项目的名称。

Section
必选。String 表达式，包含可在其中找到键设置的节的名称。

Key
必选。String 表达式，包含要返回的键设置的名称。

Default
可选。表达式，如果 Key 设置中没有设置值，则包含要返回的值。如果省略，则假定 Default 为零长度字符串 ("")。

Answer 2

我建议将变量写入INI文件中，下次再用时直接读取INI文件中变量的值。
比如一个登陆窗口需要输入用户名和密码，但是退出系统后再次登录时唯汪还需要选择或者输入用户名，这样很麻烦森正所以可以将上次登录的信息写入INI文件中，下次登录时直接读取INI文件。读写INI文件代码如下：
Attribute VB_Name = "读写INI文本模块"
Option Explicit

Public Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long
Public Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpString As Any, ByVal lpFileName As String) As Long

Public Sub MyWriteINI(ByVal strSectionName As String, ByVal strTopic As String, ByVal strContent As String, ByVal strINIfilename As String)
'*******************************************************
'功能：（建立）写入INI文件 2004-5-17
'参数： [strSectionName] ---要在其中写入新字符串的[小节名]
' strTopic ----小节中的要设置的项目标题,用vbNull String可删除这个小节的所有设置项.
' strContent ------指定为对应项目标题写入的字符串内容,用vbNull String可删除这个项目现有的字此山悔符串.
' strINIfilename------ .ini文件的(完整)名称,如果没有找到,函数会创建它.
'******************************************************
Dim lngSuccess As Long
lngSuccess = WritePrivateProfileString(strSectionName, strTopic, strContent, strINIfilename)
If lngSuccess = 0 Then
DisplayMessage "写入INI文件失败！"
End If
Exit Sub
End Sub
Public Function MyReadINI(ByVal strSectionName As String, ByVal strTopic As String, ByVal strINIfilename As String) As String
Dim lngRet As Long
Dim buff As String
buff = String(255, 0)
lngRet = GetPrivateProfileString(strSectionName, strTopic, "", buff, 256, strINIfilename)
If lngRet > 0 Then
MyReadINI = buff
End If
Exit Function
End Function

Answer 3

退出时候写到文件或注册表中
启动时候读取文件或注册表中的内容