Visual Basic.NET程序设计教程 教学课件 作者 兰顺碧 第七章.pptVIP

Private Sub SaveAs() SaveFileDialog1.Filter = 文本文件(*.txt)|*.txt|RTF格式文件(*.RTF)|*.RTF SaveFileDialog1.FilterIndex = 1 设置当前文件过程器 SaveFileDialog1.Title = 保存文件 设置对话框的标题 SaveFileDialog1.InitialDirectory = Application.StartupPath 初始目录设为启动路径 SaveFileDialog1.RestoreDirectory = True 自动恢复初始目录 SaveFileDialog1.ShowDialog() 弹出另存为对话框 Fname = SaveFileDialog1.FileName 获取保存的文件名 If (Fname ) Then 如果输入了文件名 If (SaveFileDialog1.FilterIndex = 1) Then 如果是文本文件 RichTextBox1.SaveFile(Fname, RichTextBoxStreamType.PlainText) 文本文件 FExtName = txt Else RichTextBox1.SaveFile(Fname, RichTextBoxStreamType.RichText) RTF文件 FExtName = rtf End If Me.Text = Fname + -简单文件编辑器 设置标题 End If RichTextBox1.Modified = False 保存后把RichtextBox1.Modified属性值变为False StatusBar1.Panels(1).Text = 已保存 End Sub 7.2 菜单 7.2.1创建下拉式菜单 说明： （1）请参考语句后的说明，体会“另存为对话框”控件各属性的含义。 （2）该过程实现类似于“另存为…”菜单的功能。在保存文件且需要指定文件名的情况下可调用该过程。 （3）本例调用了RichTextBox控件的SaveFile方法，使用了RichTextBox控件的 Modified属性。RichTextBox是一种既可以输入文本、又可以编辑文本的文字处理 控件。与TextBox控件相比，RichTextBox控件的文字处理功能更加丰富，不仅可以设定文字的颜色、字体，还具有字符串检索功能。另外，RichTextBox控件还可以打开、编辑和存储.rtf格式文件、ASCII文本格式文件及Unicode编码格式的文件。 7.2 菜单 7.2.1创建下拉式菜单 说明： 下面详细介绍一下该控件的常用属性和方法。 ①RichTextBox控件的常用属性 前面介绍的TextBox控件所具有的属性，RichTextBox控件基本上都具有，除此之外，该控件还具有一些其它属性。 RightMargin：用来设置或获取右侧空白的大小，单位是像素。通过该属性可以设置右侧空白，如希望右侧空白为50像素，可使用如下语句： RichTextBox1. RightMargin= RichTextBox1.Width-50; Rtf：该属性用来获取或设置 RichTextBox 控件中的文本，包括所有 RTF 格式代码。可以使用此属性将 RTF 格式文本放到控件中以进行显示，或提取控件中的RTF 格式文本。此属性通常用于在RichTextBox控件和其它 RTF 源（如Microsoft Word 或 Windows 写字板）之间交换信息。 7.2 菜单 7.2.1创建下拉式菜单 SelectedRtf：该属性用来获取或设置控件中当前选定的 RTF 格式的格式文本。此属性使用户得以获取控件中的选定文本，包括 RTF 格式代码。如果当前未选定任何文本，给该属性赋值，将把所赋的文本插入到插入点处。如果选定了文本，则给该属性所赋的文本值将替换掉选定文本。 SelectionColor：该属性用来获取或设置当前选定文本或插入点处的文本颜色。 SelectionFont：该属性用来获取或设置当前选定文本或插入点处文本的字体。 7.2 菜单 7.2.1创建下拉式菜单 ②常用方法 前面介绍的