如何用VB把所有变量写入在一个文件中，在运行时自动读取变量值且应用到窗体上！

发布网友发布时间：2023-09-07 18:08

共1个回答

热心网友时间：2023-10-11 22:00

有两种方法：
1、文件存取
'读取
On Error Resume Next
Err.Clear
Open "record.dat" For Input As #1
If Err.Number = 0 Then
Input #1, i, q, w
'输入
Else
'其他初始化
End If
'然后输出到窗体上
Close #1
Err.Clear

'存入
On Error Resume Next
Err.Clear
Open "record.dat" For Output As #1
If Err.Number = 0 Then
Print #1, i, q, w
'输出
End If
Close #1
Err.Clear

注意：
这样做的好处 - 方便、一目了然，备份信息简单，只要复制record.dat即可
这样做的坏处 - 有的时候受权限影响

2、注册表存取

'存入
SaveSetting "我的程序","保存设置","i",i
SaveSetting "我的程序","保存设置","q",q
SaveSetting "我的程序","保存设置","w",w

'读取
i=GetSetting("我的程序","保存设置","i","i的默认值")
q=GetSetting("我的程序","保存设置","q","q的默认值")
w=GetSetting("我的程序","保存设置","w","w的默认值")
'其中默认值是你自己定的

注意：
这样做的好处 - 不受权限影响、存取方便、有默认值
这样做的坏处 - 迁移性不好，即想要备份信息困难，但是可以用输出一个注册表文件来弥补