UC知道急 帮忙看看这段程序什么意思
来源：百度知道 编辑：UC知道 时间：2024/06/02 10:53:51
Private Sub munfilesave_Click()
CommonDialog1.Filter = "文本文档(*.txt)|*.txt|RTF文档(*.rtf)|*.rtf|所有文件(*.*)|*.*" 'CommonDialog1.Filter设定显示文件类项
CommonDialog1.ShowSave
FileType = CommonDialog1.FileTitle
FiType = LCase(Right(FileType, 3))
FileName = CommonDialog1.FileName
Select Case FiType
Case "txt"
RichTextBox1.SaveFile FileName, rtfText
Case "rtf"
RichTextBox1.SaveFile FileName, rtfRTF
Case "*.*"
RichTextBox1.SaveFile FileName
End Select
End Sub
CommonDialog1.Filter = "文本文档(*.txt)|*.txt|RTF文档(*.rtf)|*.rtf|所有文件(*.*)|*.*" 'CommonDialog1.Filter设定显示文件类项
CommonDialog1.ShowSave
FileType = CommonDialog1.FileTitle
FiType = LCase(Right(FileType, 3))
FileName = CommonDialog1.FileName
Select Case FiType
Case "txt"
RichTextBox1.SaveFile FileName, rtfText
Case "rtf"
RichTextBox1.SaveFile FileName, rtfRTF
Case "*.*"
RichTextBox1.SaveFile FileName
End Select
End Sub
这是一段事件（保存文件）处理代码：
Private Sub munfilesave_Click()
//设置文件过滤器，文件对话框显示.txt,.rtf,或所有类型的文件
CommonDialog1.Filter = "文本文档(*.txt)|*.txt|RTF文档(*.rtf)|*.rtf|所有文件(*.*)|*.*" 'CommonDialog1.Filter
//显示保存文件对话框
CommonDialog1.ShowSave
//获取当前要保存的文件的类型
FileType = CommonDialog1.FileTitle
FiType = LCase(Right(FileType, 3))
//获取对话框类输入的文件名
FileName = CommonDialog1.FileName
//多种选择语句，根据获取的文件类型，按照获取的文件类型进行保存
Select Case FiType
Case "txt"
RichTextBox1.SaveFile FileName, rtfText
Case "rtf"
RichTextBox1.SaveFile FileName, rtfRTF
Case "*.*"
RichTextBox1.SaveFile FileName
End Select
End Sub