如何用VB把所有变量写入在一个文件中,在运行时自动读取变量值且应用到窗体上!
把窗体上的i,q,w等变量写在一个文件中,在下次运行时自动读取相应变量值到窗体上,谢谢各位大侠!其实就相当于游戏的存档!回答好的加分!...
把窗体上的i,q,w等变量写在一个文件中,在下次运行时自动读取相应变量值到窗体上,谢谢各位大侠!其实就相当于游戏的存档!
回答好的加分! 展开
回答好的加分! 展开
展开全部
有两种方法:
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的默认值")
'其中默认值是你自己定的
注意:
这样做的好处 - 不受权限影响、存取方便、有默认值
这样做的坏处 - 迁移性不好,即想要备份信息困难,但是可以用输出一个注册表文件来弥补
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的默认值")
'其中默认值是你自己定的
注意:
这样做的好处 - 不受权限影响、存取方便、有默认值
这样做的坏处 - 迁移性不好,即想要备份信息困难,但是可以用输出一个注册表文件来弥补
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询