查人人中国名人网郑州近15天天气预报:vb编程基础问题，送分啦
来源：百度文库 编辑：查人人中国名人网 时间：2024/05/07 19:47:16
怎样让用户选择文件菜单里的保存时，使text1.text里的文本，保存为在用户指定路径下的txt文件
现在我已经增加了一个通用对话框控件，能让它显示保存窗口，以及后缀只能是txt，怎样保存
现在我已经增加了一个通用对话框控件，能让它显示保存窗口，以及后缀只能是txt，怎样保存
Public Sub savepro()
On Error GoTo errtrap
CommonDialog1.CancelError = True
CommonDialog1.Filter = \"文本文件(*.txt)|*.txt\"
CommonDialog1.Flags = &H2
CommonDialog1.ShowSave
If CommonDialog1.FileName <> \"\" Then
fn = FreeFile
Open CommonDialog1.FileName For Output As fn
Print #fn, text1.Text
Close fn
end if
Exit Sub
errtrap:
end sub
先弹出对话框,然后在用FileName 获得文件名
CommonDialog1.ShowSave
If CommonDialog1.FileName <> "" Then
Text1.Text = CommonDialog1.FileName
End If
当然这个只是演示要想保存最简单的方法是用 RichTextbox 控件他带有 SaveFile 属性可以实现保存文件方法是:
RichTextBox1.SaveFile CommonDialog1.FileName, 1
参数最后一个如果是0则保存为RTF格式是1保存为TXT文本格式!