Question

vb中文本框内的数据如何保存

将text1文本框中的内容以txt的格式保存，给个例子吧，谢谢。最好有注释，我是VB菜鸟。另外，在存储时自己可以选择存储路径。

Answer 1

菜单栏中 工程--部件--添加一个microsoft common dialog control 6.0 控件
Private Sub Command1_Click()
CommonDialog1.Filter = "*.txt|*.txt"‘设置在对话框的类型列表框中所显示的过滤器
CommonDialog1.ShowSave ’打开保存文件对话框
If CommonDialog1.FileName <> "" Then '如果文件名不为空则执行保存
Open CommonDialog1.FileName For Output As #1
Print #1, Text1.Text ’内容写入
Close #1
End If
End Sub

Answer 2

private sub cmd_click（）
commondialog1.showopen '提示你选择保存文件的路径
open "commondialog1.filename " for output as#1
write#1,text1.text
close#1
end sub
COMMONDIALOG是通用对话框，这很常用，可以用来选择保存路径或者打开文件路径，这个控件得在vb的“工程”---“引用”里添加。
然后写入文件时用write语句，不懂再问我

追问

非常感谢，我再问一下，如果想要保存的内容还没保存，在单击窗口右上角的叉号的时候弹出来个对话框，提示你的内容还没保存，让你选择是否保存，如果需要保存，就按照刚才那种方法保存了，如不需要保存，直接放弃（如果已经保存过了，单击关闭按钮的时候直接关掉即可）。这个该怎么解决？谢谢。

追答

不好意思，修改一下：QueryUnload()事件，在退出窗体前发生
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
If MsgBox("你确定要关闭吗", vbYesNo, "关闭") = vbNo Then
Cancel = 1
open "commondialog1.filename " for output as#1
write#1,text1.text
close#1
End Sub

把这段代码加上去就可以了，呵呵

Answer 3

open app.path & “\1.txt” for output as #1
print text1.text, #1
close #1'上面的可以将text1.text里面的内容保存在程序同目录的文件夹1.txt里面

Answer 4

Private Sub Command1_Click()
open app.path & "\data.txt" for output as #1
print #1,text1.text
close #1
End Sub
直接将text1的内容保存到程序目录下的data.txt文件中！！！