VB制作如何存储信息

来源：百度知道 编辑：UC知道 时间：2024/06/17 05:56:55
比如说第一次开：

在TEXT1.TEXT（TEXT为空）输入111122223333
然后第二次开：
TEXT1.TEXT显示：111122223333
如何存储。解答后必有重赏！！！！！！

Private Sub Form_Load()
Text1.Text = GetSetting("VB", "SettingSave", "Text", "没有找到保存内容")
End Sub

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
SaveSetting "VB", "SettingSave", "Text", Text1.Text
End Sub

加入一个textBox控件
Private Sub Form_Activate()
Dim a As String
Dim strfile As String
strfile = Dir(App.Path & "/aa.txt") '判断文件是否存在
If strfile <> "" Then '如存在则把内容写入text

Open App.Path & "/aa.txt" For Input As #1
Do Until EOF(1)
Line Input #1, a
Text1.Text = Text1.Text + a + vbCrLf
Loop
Close #1
Else '如不存在则创建一个文件。
Open App.Path & "/aa.txt" For Output As #1
Close #1
End If
End Sub

Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer) '在输入完毕后写入文件内容