高校问答范思哲爱洛斯香水简介:vb 小小问题???
来源：百度文库 编辑：高校问答 时间：2024/04/27 23:06:12
求"保存"全代码.(保存对象为文本).如记事本,第一次"保存"跳出通用showopen对话框,第二次"保存"直接覆盖掉上一次保存的内容
Private Sub Command1_Click() '保存
On Error GoTo cuowu '按下取消时
If Me.Caption = "无标题 - 记事本" Then '未保存过时弹出对话框
CommonDialog1.Filter = "文本文档 (*.txt)|*.txt|所有文件 (*.*)|*.*"
CommonDialog1.InitDir = "D:\" '默认路径 CommonDialog1.Flags = &H2 Or &H4 Or &H8 Or &H800 Or &H1000 '文件存在警告;隐藏"只读"复选框;对话框当前目录为对话框打开时的目录;输入非法路径警告;输入不存在的文件名警告
CommonDialog1.ShowSave
Filename = CommonDialog1.Filename
End If
RichTextBox1.SaveFile Filename, rtfText'保存
Me.Caption = Filename & " - 记事本"
cuowu:
End Sub
以上代码是我写的记事本中保存的主要代码。注意，以上代码使用的是富文本框控件RichTextBox而非通用文本框TEXT，代码判断是否保存过文件是通过窗口标题栏来识别的。
如果使用TEXT控件，请把保存一行改为：
Open Filename For Output As #1: print #1,text1.text:Close #1