用vb写文件菜单的“保存”和“另存为”的代码有什么不一样呢?
在代码上区别在哪里呢?请把“保存”和“另存为”的代码都写出来。注意,我不是不知道它们功能上的区别,而是我想在一个软件上用到它们,怎样写代码?...
在代码上区别在哪里呢?请把“保存”和“另存为”的代码都写出来。注意,我不是不知道它们功能上的区别,而是我想在一个软件上用到它们,怎样写代码?
展开
4个回答
展开全部
这是我以前写记事本程序时的保存和另存为的代码,你看下就明白了:
Private Sub mnusave_Click() '保存
Set fs = CreateObject("Scripting.FileSystemObject")
CommonDialog1.InitDir = "c:\"
CommonDialog1.Filter = "文本文件|*.txt"
If fs.fileexists(FileName) = False Then
CommonDialog1.ShowSave
End If
FileName = CommonDialog1.FileName
RichTextBox1.SaveFile FileName, rtfText
Me.Caption = "Easy Notebook -" & FileName
End Sub
Private Sub mnuanother_Click() '另存为
CommonDialog1.InitDir = "c:\"
CommonDialog1.Filter = "文本文件|*.txt"
CommonDialog1.ShowSave
FileName = CommonDialog1.FileName
RichTextBox1.SaveFile FileName, rtfText
Me.Caption = "Easy Notebook -" & FileName
End Sub
其中FileName是一个Public变量
Private Sub mnusave_Click() '保存
Set fs = CreateObject("Scripting.FileSystemObject")
CommonDialog1.InitDir = "c:\"
CommonDialog1.Filter = "文本文件|*.txt"
If fs.fileexists(FileName) = False Then
CommonDialog1.ShowSave
End If
FileName = CommonDialog1.FileName
RichTextBox1.SaveFile FileName, rtfText
Me.Caption = "Easy Notebook -" & FileName
End Sub
Private Sub mnuanother_Click() '另存为
CommonDialog1.InitDir = "c:\"
CommonDialog1.Filter = "文本文件|*.txt"
CommonDialog1.ShowSave
FileName = CommonDialog1.FileName
RichTextBox1.SaveFile FileName, rtfText
Me.Caption = "Easy Notebook -" & FileName
End Sub
其中FileName是一个Public变量
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
2008-12-14
展开全部
保存:是直接存盘。
另存为:要显示一个选择存放路径和文件名的对话框,并返回存放的文件名(含路径)
另存为:要显示一个选择存放路径和文件名的对话框,并返回存放的文件名(含路径)
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
保存:就是保存到默认目录
另存为:可以自己选位置
就这么简单
另存为:可以自己选位置
就这么简单
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
你没有过系统的记事本啊,这个都不懂 “I 服了 YOU "
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询