下面是一个可留言的文本框；
首次输入结果是保留在my.txt文件内了，但关闭系统后第二次打开软件，前面留言却无法显示在框内；
请问如何改进？先谢了
Private Sub Text1_DblClick()
Dim message, title, defaultValue As String
Dim myValue As String
message = "请输入你的留言" '设置提示信息
title = "InputBox Demo" '设置标题
defaultValue = "" '设置默认值
myValue = InputBox(message, title, defaultValue, 100, 100)
'显示输入对话框
If myValue = "" Then
MsgBox "没有输入任何内容！", vbInformation + vbOKOnly, "提示"
Else
Text1.Text = myValue
End If
Open App.Path & "\my.txt" For Output As #1
Print #1, Text1.Text
Close #1
End Sub

采用下面代码仍无法实现软件再启动后TEXT1框中出现的TXT文件内容（见图）；
请问高手如何改？
Private Sub Frame1_DragDrop(Source As Control, X As Single, Y As Single)
 Dim n%, a
Open "\my.txt" For Binary As Text1
a = StrConv(InputB(LOF(1), 1), vbUnicode)
Close Text1
b = Split(a, vbCrLf)
n = Val(InputBox("你想读取第几行?"))
If n < 0 Or n > UBound(b) + 1 Then
MsgBox "行数有问题!!"
Exit Sub
End If
Print b(n - 1)
End Sub[attach]66310[/attach]  
End Sub
[attach]66311[/attach][attach]66312[/attach]

[ 本帖最后由 jrs123 于 2012-11-15 10:48 编辑 ]

请问版主，具体代码如何写？
这个可以吗？
Open App.Path & "\my.txt" For Output As #1

百度里能查到很多关于VB6读TXT文本的内容，但没找到一个能用的代码，不知在这里能否找到

谢谢这位高手，可以了！

如页面上有四个留言栏，本人就做了如下复制，虽输入了四次内容，但只显示最后一个框的留言；（见图）
因为本人不会编程只会代码的DIY，所以不知错在何处？还请你指正；
[attach]66321[/attach][attach]66322[/attach]
Option Explicit 'ccwu2显示留言内容——1

Dim FN As String
Private Sub Command1_Click() 'ccwu2显示留言内容——2
    If Text1.Text <> "" Then
        Call outputData
        Text1.Text = ""
    End If
    If Text2.Text <> "" Then
        Call outputData
        Text2.Text = ""
    End If
    If Text3.Text <> "" Then
        Call outputData
        Text3.Text = ""
    End If
    If Text4.Text <> "" Then
        Call outputData
        Text4.Text = ""
    End If
End Sub

Private Sub outputData() 'ccwu2显示留言内容——3
Dim FileNum As Integer
    FileNum = FreeFile
    Open FN For Append As #FileNum
        Print #FileNum, Text1.Text
    Close #FileNum

    FileNum = FreeFile
    Open FN For Append As #FileNum
        Print #FileNum, Text2.Text
    Close #FileNum

    FileNum = FreeFile
    Open FN For Append As #FileNum
        Print #FileNum, Text3.Text
    Close #FileNum

    FileNum = FreeFile
    Open FN For Append As #FileNum
        Print #FileNum, Text4.Text
    Close #FileNum
End Sub

Private Function IsFileExist(strFileName As String) As Boolean 'ccwu2显示留言内容——3
Dim varFSO As Variant
    Set varFSO = CreateObject("Scripting.FileSystemObject")
    IsFileExist = varFSO.FileExists(strFileName)
    Set varFSO = Nothing
End Function

Private Sub Form_Initialize() 'ccwu2显示留言内容——4
    FN = App.Path & "\my1.txt"
    FN = App.Path & "\my2.txt"
    FN = App.Path & "\my3.txt"
    FN = App.Path & "\my4.txt"
End Sub

Private Sub Form_Load() 'ccwu2显示留言内容——5
    If IsFileExist(FN) = True Then
        Call LoadData
    End If
End Sub

Private Sub LoadData() 'ccwu2显示留言内容——6
Dim FileNum As Integer
Dim Temp As String
    FileNum = FreeFile
    Open FN For Input As #FileNum
        Do While Not EOF(FileNum)
            Line Input #FileNum, Temp
            If Temp <> "" Then Text1.Text = Temp
        Loop
 Close #FileNum


    FileNum = FreeFile
    Open FN For Input As #FileNum
        Do While Not EOF(FileNum)
            Line Input #FileNum, Temp
            If Temp <> "" Then Text2.Text = Temp
        Loop
 Close #FileNum


    FileNum = FreeFile
    Open FN For Input As #FileNum
        Do While Not EOF(FileNum)
            Line Input #FileNum, Temp
            If Temp <> "" Then Text3.Text = Temp
        Loop
 Close #FileNum


    FileNum = FreeFile
    Open FN For Input As #FileNum
        Do While Not EOF(FileNum)
            Line Input #FileNum, Temp
            If Temp <> "" Then Text4.Text = Temp
        Loop
 Close #FileNum
End Sub


[ 本帖最后由 jrs123 于 2012-11-15 20:07 编辑 ]

谢谢你的代码，简练了很多，请问TXET5何用？没通过，点击框不会弹出输入框
输入框的代码：
Private Sub text1_click()
Dim message, title, defaultValue As String
Dim myValue As String
message = "请输入你的留言" '设置提示信息
title = "InputBox Demo" '设置标题
defaultValue = "" '设置默认值
myValue = InputBox(message, title, defaultValue, 100, 100)
'显示输入对话框
If myValue = "" Then
MsgBox "没有输入任何内容！", vbInformation + vbOKOnly, "提示"
Else
Text1.Text = myValue
End If
Open App.Path & "\my.txt" For Output As #1
Print #1, Text1.Text
Close #1
End Sub

Private Sub Text2_click()
Dim message, title, defaultValue As String
Dim myValue As String
message = "请输入你的留言" '设置提示信息
title = "InputBox Demo" '设置标题
defaultValue = "" '设置默认值
myValue = InputBox(message, title, defaultValue, 100, 100)
'显示输入对话框
If myValue = "" Then
MsgBox "没有输入任何内容！", vbInformation + vbOKOnly, "提示"
Else
Text2.Text = myValue
End If
Open App.Path & "\my.txt" For Output As #2
Print #2, Text.Text
Close #2
End Sub

Private Sub Text3_click()
Dim message, title, defaultValue As String
Dim myValue As String
message = "请输入你的留言" '设置提示信息
title = "InputBox Demo" '设置标题
defaultValue = "" '设置默认值
myValue = InputBox(message, title, defaultValue, 100, 100)
'显示输入对话框
If myValue = "" Then
MsgBox "没有输入任何内容！", vbInformation + vbOKOnly, "提示"
Else
Text3.Text = myValue
End If
Open App.Path & "\my.txt" For Output As #3
Print #3, Text3.Text
Close #3
End Sub



Private Sub Text4_click()
Dim message, title, defaultValue As String
Dim myValue As String
message = "请输入你的留言" '设置提示信息
title = "InputBox Demo" '设置标题
defaultValue = "" '设置默认值
myValue = InputBox(message, title, defaultValue, 100, 100)
'显示输入对话框
If myValue = "" Then
MsgBox "没有输入任何内容！", vbInformation + vbOKOnly, "提示"
Else
Text4.Text = myValue
End If
Open App.Path & "\my.txt" For Output As #4
Print #4, Text4.Text
Close #4
End Sub






[ 本帖最后由 jrs123 于 2012-11-15 21:58 编辑 ]

主要是这一段出问题，总是显示最后一行的数据；
Private Sub Form_Initialize() 'ccwu2显示留言内容——4
    FN = App.Path & "\my1.txt"
    FN = App.Path & "\my2.txt"
    FN = App.Path & "\my3.txt"
    FN = App.Path & "\my4.txt" ‘显示最后一行
End Sub
请问同时显示四行内容应该如何改？

谢谢你的代码，不知为何未通过？
提示：变量未定义，请问应如何定义？

这是原码打包：