新Visual Basic.NET程序设计教程 工业和信息化普通高等教育“十二五”规划教材立项项目 教学课件 兰顺碧 第七章.pptVIP

9．在工具箱中找到“保存文件”对话框控件的图标“ ”，为窗体添加一个SaveFileDialog控件，该控件主要用来弹出Windows中标准的“保存文件”对话框。 10．编写一个名为“SaveAs”的通用过程， 代码如下。 该过程弹出“另存为”对话框，供用户选择或输入要保存的文件名，并把RichTextBox1中的文本保存到该文件中去。 7.2 菜单 7.2.1创建下拉式菜单 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：该属性用来获取或设置控件中当前选定的