关于vb文件写入的问题

来源：百度知道 编辑：UC知道 时间：2024/06/17 19:52:12
我想将用户每次输入的内容都保存下来，例如：
第一次用户输入 AAA
第二次用户输入 BBB

我就是想把AAA和BBB都分行，即在文本中显示如下：
AAA
BBB

下面是我的代码

Private Sub Command1_Click()
sj(0) = Text1.Text
Open "c:\test.txt" For Output As #1
Print #1, sj(0)
Close
Text1.Text = ""
End Sub

请问我应该怎样修改才能达到上述结果？
一楼的，可能你搞错了我的意思。
我是想在记录下用户每次提交的信息。而我按这个代码编辑后，当输入两次信息后，第一次的信息被第二次的信息覆盖掉。我是要保留第一次输入的信息和第二次输入的信息

我估计你要象qq登录的样子？
这个，就不要用文本框了。请使用combo

Private Sub Command1_Click()
Combo1.AddItem Combo1.Text
End Sub

Private Sub Form_Load()
Open App.Path & "用户名单.dat" For Input As #1
Do While Not EOF(1)
Line Input #1, 用户名
Combo1.AddItem 用户名
Loop
Close #1
Combo1.Text = ""
End Sub

Private Sub Form_Unload(Cancel As Integer)
Open App.Path & "用户名单.dat" For Output As #1
For i = 0 To Combo1.ListCount - 1
Print #1, Combo1.List(i)
Next i
Close #1
End Sub

Print #1, sj(0) & VBCRLF

VBCRLF就是换行