《Visual Basic.NET程序设计 普通高等教育“十一五”国家级规划教材 教学课件 ppt 作者 柳青 严健武 第五章》由会员分享，可在线阅读，更多相关《Visual Basic.NET程序设计 普通高等教育“十一五”国家级规划教材 教学课件 ppt 作者 柳青 严健武 第五章（62页珍藏版）》请在金锄头文库上搜索。
1、第5章 菜单栏、工具栏、状态栏和对话框,本章导读 本章将学习工具箱中菜单和工具栏选项卡中的几个控件：ContextMenuStrip（右键快捷菜单，又称下文菜单）、MenuStrip（主菜单）、ToolStrip（工具栏）、StatusStrip（状态栏）。MenuStrip 相对于.NET之前的VB版本功能更强大，而且方便易用。原来需要大量API函数实现的功能，如添加菜单图标、改变菜单项背景颜色等，在VB.NET中只要设置相关属性即可轻易实现。 菜单栏、工具栏、状态栏与对话框是图形操作界面常用的基本控件，是程序界面中的重要组成部分。用户的许多操作命令都可以在菜单和工具栏中执行。 本章内容包括
2、：菜单栏控件、工具栏控件、状态栏控件和系统对话框控件的使用。,5.1 菜单栏（MenuStrip）控件的使用,案例5-1 设计一个简易的记事本，实现模拟Windows记事本文件菜单功能。,案例知识点 菜单栏控件的使用主要解决几个问题：建立菜单项；建立多级菜单；添加分隔线；添加快捷键；添加菜单项图标；编写菜单项的事件过程代码。 1添加菜单控件到窗体 从“工具箱”中拖动MenuStrip控件到窗体中，如图5-1、图5-2所示,图5-1 工具箱中的MainMenu控件,图5-2 将菜单栏控件拖动到窗体Form1,在“请在此处键入”处输入“操作”；或在菜单项进入编辑状态前按右键，选择插入“MenuIt
3、em”，然后输入“操作”作为菜单项显示的文本(Text属性)，主菜单如图5-3所示。 修改菜单项的Name属性，可以修改默认的菜单项名称。,输入 “-”号，将产生分隔线,输入 “-”号，将产生分隔线,图5-3 菜单项的建立过程,2建立多级菜单 在建立好的菜单项中单击，出现“黑三角”箭头时，可以继续输入下一级菜单。 3添加菜单项图标 每一个菜单项可当作Button控件使用，为菜单项添加图标，设置其Image属性即可。,图5-4 多级菜单的建立,4菜单项其它属性 菜单前打“”，表示当前该项功能正在使用。 Checked：设置菜单项是否被选中，true为选中，False为未选中。 CheckeSta
4、te： 获取菜单项选择的状态，取值为0未选中，1选中，2 三态。,将菜单项的名称（Name）该为：ToolStripMenuItem3,图5-5 设置菜单项的Checked属性,以下例子演示了如何动态改变“”符号： Private Sub ToolStripMenuItem3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem3.Click ToolStripMenuItem3.Checked = Not ToolStripMenuItem3.Checked En
5、d Sub 更简单的方法：设置CheckOnClick的属性值为True，不需要写任何代码。,5. 为菜单项添加快捷键,图5-6 设置ALT修饰符快捷键,图5-7 设置其他修饰符快捷键,6为菜单项编写事件响应代码 双击菜单项，自动进入响应菜单击事件过程。例如，双击“开始”菜单，为Click事件过程添加如下代码： Private Sub 开始ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 开始ToolStripMenuItem.Click MessageBox.
6、Show(“你点击了开始项“) End Sub 说明： 开始ToolStripMenuItem：假定是“开始”菜单项Name属性中默认的名称。,图5-8 快捷菜单示意图,图5-9 添加快捷菜单,7快捷菜单所谓快捷菜单，是用鼠标右键单击某个对象时弹出的菜单，又称右键菜单，如图5-8所示。 将ContexMenuStrip控件从工具箱拖放到窗口时，添加菜单项可以与窗体主菜单一样操作，如图5-9所示,快捷径菜单在某对象上右击时弹出，因而必须设置该对象与快捷菜单关联。例如，希望在窗体上右击时弹出快捷菜单，可以设置窗体的ContexMenuStrip属性，如图5-10所示。,图5-10 设置窗体与快捷菜
7、单关联的属性,程序运行时，在窗体上右击将弹出快捷菜单。快捷菜单事件响应过程与窗体菜单相同，不再赘述。,案例设计思路 模拟Windows记事本文件操作菜单功能，程序启动时，初始化为新建文件状态。 只要文本框有输入变化，认为文件内容已修改，需要设置修改状态。 新建：检查当前文件是否已保存，若无，先提示保存，同时初始化文件名。 保存：若文件内容有修改，则保存；若是初次保存，调用系统打开文件对话框，取得文件名。 打开：检查当前文件是否已保存，没有则提示保存，然后打开文件；同时，修改当前文件名为新文件名。 另存为：调用系统保存文件对话框，保存为另一个文本文件，修改当前文件名为新文件名。,界面布局 界面布
8、局如图5-11所示。控件设置见表5-1。,图 5.11 案例5-1的界面布局,表5-1 控件设置项,程序代码,代码说明 行1：导入 System.IO 命名空间，目的是使用File类读写文本文件的方法。程序中使用File类读写文件方法实现文本文件的快速保存和打开。（File类的其它方法见第7章）。 行4：定义变量，用于检测是否文本框内容是否被更新。只要文本框内容发生变化（行1316），认为文件已经修改，退出、新建文件或打开已存在文件时，需要提示保存当前文件内容。 行5：定义变量，保存当前文件的位置和文件名。如果为空，则在保存时弹出保存对话框。 行711：启动窗体时，设置变量值代表新建文件状态。
9、 行1723：单击新建菜单项，首先调用CheckSave() 函数判断当前文件是否需要保存；然后初始化文本框为空。同时，变量初始化为新建文件状态。 行2527：单击保存菜单项，首先通过hadUpdate变量判断文件是否被修改，如果已被修改，则调用SaveFile()方法保存文件；否则不需要再次保存。,行2931：单击打开菜单项，首先调用CheckSave() 函数判断当前文件是否需要保存；然后调用OpenFile（）方法读取文本文件。 行3335：单击另存为菜单项，调用SaveAsFile()将文件另存为新文件。 行39：建立系统打开文件对话框对象。（系统对话框在5.4节介绍）。 行40：设置
10、打开文件对话框只打开文本文件。 行41：显示打开对话框。 行42：判断用户是否选择了文件。 行44：调用File类的WriteAllText()方法，实现文件的建立和保存。 行59：调用File类的ReadAllText（）方法，读取文本文件所有的内容。 行65：建立系统保存文件对话框对象，使用方法与系统打开文件对话框类似。,5.2 工具栏控件的使用,图5-12是浏览器IE的工具栏。在VB.NET中，利用ToolStrip工具栏控件可以轻松地设计这样的工具栏。,图5-12 IE工具栏,案例5-2 制作图5-13所示工具栏，编写工具栏1中各项目的事件过程，提示检测到单击事件。编写代码，检测工具栏
11、2中选择的项目。,图5-13 案例5-2界面布局,案例知识点 使用ToolStrip的步骤： 1在“工具箱”中找到菜单与工具栏，将ToolStrip控件拖放到窗体。 2选择需要添加的工具栏项目类型，如图5-14所示。,图5-14 选择工具栏项目类型,3ToolStrip控件的主要属性 Image属性：显示在工具栏控件上的图象。 Text属性：显示的文字。 DisplayStyle属性：可以有以下取值。 None：显示空白，相当于占位符。 Text：仅显示Text属性设置的内容，不显示图象。 Image：不显示文字，仅显示Image属性设置的图象。 ImageAndText：:同时显示文字和图象
12、。 4ToolStrip控件的主要事件 工具栏中的每一个控件都可以当作该类型的一般控件使用，最常用的事件是对应一般类型常用的事件。,界面布局 界面布局如图5-13所示，图中标注说明如下： A：工具栏1，名称为ToolStrip1。 B：工具栏2，名称为ToolStrip2。 Button类型，名称为ToolStripButton1，设置Image属性，DisplayStyle属性为Image。 Button类型，名称为ToolStripButton2，设置Image属性，DisplayStyle属性为ImageAndText。 Button类型，名称为ToolStripButton3，设置Im
13、age属性，DisplayStyle属性为ImageAndText。 DropDownButton类型，名称为ToolStripDropDownButton1，添加两个菜单项和，名称分别为ToolBarMenu1和ToolBarMenu2。 Label类型，名称为ToolStripLabel1，Text属性为“地址”。 ComboBox类型，名称为ToolStripComboBox1。,程序代码 1. 工具栏1中Button类型的单击事件过程代码： Private Sub ToolStripButton1_Click(ByVal sender As System.Object, ByVal e
14、 As System.EventArgs) _ Handles ToolStripButton1.Click,ToolStripButton2.Click, ToolStripButton3.Click, _ ToolBarMenu1.Click, ToolBarMenu2.Click If TypeOf sender Is ToolStripButton Then Select Case CType(sender, ToolStripButton).Name Case “ToolStripButton1“ MessageBox.Show(“你点击了ToolStripButton1“) Cas
15、e “ToolStripButton2“ MessageBox.Show(“你点击了ToolStripButton2“) Case “ToolStripButton3“ MessageBox.Show(“你点击了ToolStripButton3“) End Select ElseIf TypeOf sender Is ToolStripMenuItem Then Select Case CType(sender, ToolStripMenuItem).Name Case “ToolBarMenu1“ MessageBox.Show(“你点击了ToolBarMenu1“) Case “ToolB
16、arMenu2“ MessageBox.Show(“你点击了ToolBarMenu2“) End Select End If End Sub,2. 工具栏2组合框选择变化的事件过程代码： Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load ToolStripComboBox1.Items.Add(“Http:/“) ToolStripComboBox1.Items.Add(“Http:/“) ToolStripComboBox1.Items.Add(“Http:/“) ToolStripComboBox1.SelectedIndex = 0 End Sub Private Sub To
