Question

vb编程：保存文本框的内容，一次用户打开时文本框显示保存后的内容，用一个按钮控制。

最好加注释，
文本框：text1
按钮：anniu1
文本框文字输入完毕后，单机按钮文本将被保存，下次打开还有文字。欢迎回答，感激不尽！

Answer 1

代码如下，通过测试：

Private Sub anniu1_Click() '按钮anniu1点击
Open "c:\aa.txt" For Output As #1 '打开文件
Print #1, Text1 '写入text1控件内容
Close #1 '关闭文件
End Sub
Private Sub Form_Load()
On Error GoTo Err '不存在或错误，不读
Dim strLine As String '定义变量
Open "c:\aa.txt" For Input As #1 '打开文件
Do Until EOF(1) '不为空执行
   Line Input #1, strLine ' '读出内容到变量
   Text1 = strLine 'Text1设置为变量值
Loop
Close #1 '关闭文件
Err:
End Sub

Answer 2

提供一实例:

Option Explicit

Private Sub Command1_Click() '保存文件
    Open App.Path & "\wenjian.txt" For Output As #1
        Print #1, Text1
    Close #1
End Sub

Private Sub Form_Load()
    Text1 = ""
    On Error GoTo Err
    Dim strSj As String
    '打开文件
    Open App.Path & "\wenjian.txt" For Input As #1
    Do Until EOF(1)
        Line Input #1, strSj
        Text1 = Text1 & strSj & vbCrLf
    Loop
    Close #1
Err:
End Sub

Answer 3

说清楚点啊