VB 赋值问题

来源：百度知道 编辑：UC知道 时间：2024/06/20 10:50:30
第一次打开程序的时候为变量a设置一个值(假设为1)
关闭程序
再次打开程序的时候，变量a还是为1，而不是初始化
我不会用注册表，也不会INI文件，说详细点

窗体上放一个text1
Private Sub Form_Load()
On Error Resume Next
Open "C:\1.txt" For Input As #1
Input #1, t$
Text1.Text = t$
Close
End Sub

Private Sub Form_Unload(Cancel As Integer)
On Error Resume Next
Open "C:\1.txt" For Output As #1
Print #1, Text1.Text
Close
End Sub

Dim a As Integer

Private Sub Command1_Click()
a = 1
End Sub

Private Sub Form_Load()
Dim str1 As String
str1 = GetSetting("MyAPP", "MySection", "MyValue")
a = Val(str1)
Debug.Print "a="; a
End Sub

Private Sub Form_Unload(Cancel As Integer)
SaveSetting "MyAPP", "MySection", "MyValue", CStr(a)
End Sub

在form.unload事件中用open创建一个文件，把要保存的值print到里面，程序再次加载时，把文件读出来。
或着用vb操作ini文件，原理都一样。

每次打程序将这个变量累加写入注册表就可以了