下面是一段留言栏的代码,单击该栏,会弹出对话框,输入留言,问题是点击该对话框的"确定"钮,无法保存所输入的留言,当系统退出留言也就消失.
请问如何才能保住留言到下一次重新输入为止?
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
End Sub

save file

open app.path & "\my.txt" for output as #1
print #1,text1.text
close #1

上面代码可以存为一个my.txt的文本文件,但再次启动运行软件后,该文本文件并未将其内容显示在文本框内,不知何故?

那你可以在Load Event里写个code...
Open App.Path & "\my.txt" For Input As #1
Dim strLine As String
Line Input #1,strLine
text1.Text = strLine
Close

//上面代码只是举例说明...详细..请自行加上..

谢谢上面两位版主,留言已经成功,代码如下:(总觉得内容有些多了,因为在一个窗体上有十几张图片,每个图片下有一个短留言栏,就是说,下面的代码同样的要编十几个.有没有更简单的代码呢?)
Private Sub Text1_load()
my.Show
End Sub
Private Sub Form_Load()
Open App.Path & "\my.txt" For Input As #1
Dim strLine As String
Line Input #1, strLine
Text1.Text = strLine
Close
End Sub
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