Question

怎样使VB中的TXT文本中的内容保持上一次输入的内容

比如我在文本框里面输入192.168.0.1，然后关闭程序后，下次打开这个程序，这个文本框里面仍然保持192.168.0.1
额 我的意思是我的Text1.text是存放ip的，Text2.Text是存放端口号的，然后每次打开程序后希望这2个textbox里面保持上一次输入的数据。

Answer 1

Private Sub Form_Load()
Open "1.txt" For Input As 1
Do While Not EOF(1)
Line Input #1, a
If Asc(a) > 0 Then
b = Len(a)
Text1.Text = Mid$(a, 2, b - 2)
End If
Loop
Close
End Sub

Private Sub Text1_LostFocus()
Open "1.txt" For Output As #1
Write #1, Text1.Text
Close
End Sub
大体意思是把文本框中的内容放入1.txt中，在下次打开的时候，再把1.txt中的内容装载给文本框（load）
用output是为了每次都把上一次的内容覆盖
（如有问题请留言）

Answer 2

你可以在关闭时保存为文件或写进注册表 加载程序时读入 注册表的话可以简单的 在注册区中添加一些设置值。
Private Sub Form_Unload()
SaveSetting "MyApp","Text", "Ip", 192.168.0.1
End Sub

Private Sub Form_Load()
text1=GetSetting( SaveSetting "MyApp","Text", "Ip")
End Sub

文件的方法就是那个顺序读写啊

哎 还是改详细一些吧 充当一种方法也好

Answer 3

你必须建立一个txt文件将你上次输入的信息记录下来
下次打开程序时在Form_Load中将这条信息读出来
Private Sub Form_Unload()
Open App.path & "\IP.txt" for Output As #1
Print #1,Text1.Text
Close #1
End Sub

Private Sub Form_Load()
Open App.path & "\IP.txt" for Input As #1
Input #1,Text1.Text
Close #1
End Sub

Answer 4

可以
在关闭程序时要将文本保存为磁盘文件（编个代码）
然后在打开时在自动加载里编写代码读取上次保存的文件中的记录即可

Answer 5

HappyQ6
这个语法用错了
Input #1,Text1.Text
Close #1
这样才可以
Input #1,a$
Text1.Text =a$
Close #1