Visual Basic 6.0可视化编程与实训 教学课件 作者 于泽 主编 项目六 菜单与工具栏设计.pptVIP

项目六 菜单与工具栏设计 Windows应用程序的窗口菜单一般包括主菜单和子菜单 【案例6.1】建立下拉菜单 设计如图所示的窗体和菜单 【案例6.1】建立下拉菜单 1. 建立窗体：本案例的程序窗体只有一个文本框控件。窗体和文本框控件属性设置如表所示。 【案例6.1】建立下拉菜单 2．设计菜单：用鼠标单击工具栏上菜单编辑器图标或选择“工具”菜单下的“菜单编辑器”菜单项 【案例6.1】建立下拉菜单 3．按照上表所示建立菜单，为每个菜单项输入标题、名称，设置快捷键，并使用“←”、“→”按钮建立级联符号。 【案例6.1】建立下拉菜单 【案例6.2】 为菜单项单击事件编写程序代码 1.在窗体中添加“通用对话框”控件 2.在窗体设计器中单击设计窗体的子菜单项，打开代码窗口，光标在菜单项对应单击事件中，为对应菜单项事件编写代码。 【案例6.2】 为菜单项单击事件编写程序代码 【案例6.3】完善菜单系统 要求：在【案例6.2】的基础上添加新的菜单项，并编写“格式”菜单中“字体”菜单项的程序代码。 【案例6.3】完善菜单系统 1．打开菜单编辑器，在原有基础上继续添加新菜单项。新菜单项属性参考下表 【案例6.3】完善菜单系统 2.在窗体设计器中单击窗体“格式”菜单中的“字体”子菜单项，进入代码窗口编写代码。 知识2 弹出式菜单 PopupMenu方法是弹出菜单的方法。其具体格式是 PopupMenu 菜单名 鼠标按下事件MouseDown过程的形式是： MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) 知识2 弹出式菜单 MouseDown过程的过程参数说明如表 ： 【案例6.4】 弹出式菜单 要求： 在窗体上建立弹出式菜单，实现对文本框中文字进行字体和字号设置 【案例6.4】 弹出式菜单 1.建立窗体界面：本窗体只有一个文本框控件。文本框控件属性设置如表所示。 【案例6.4】 弹出式菜单 2.建立本案例要求的菜单。菜单项属性设置如表所示。 【案例6.4】 弹出式菜单 3. 为各菜单项编写代码：由于“字体”主菜单项的“可见性”为不可见，所建菜单项不能显示在窗体上，所以不能通过单击菜单项打开代码窗口。可以双击窗体先进入代码窗口，然后通过代码窗口的“对象”下拉列表框选择菜单名称，再在对应事件过程中输入代码。 【案例6.4】 弹出式菜单 4.在“对象”下拉列表框中选择“Form”,在代码窗口的“事件”下拉列表框中选择“MouseDown”事件，为窗体的鼠标按下事件编写如下代码。 Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 2 Then PopupMenu Tfont End If End Sub 【案例6.4】 弹出式菜单 5.运行程序结果如图 【案例6.5】 文本框弹出式菜单 要求：为文本框建立弹出式菜单，对文本框中的文字进行颜色的设置，如图所示 【案例6.5】 文本框弹出式菜单 1. 单击工具栏的菜单编辑器图标，打开菜单编辑器，在【案例6.4】菜单基础上继续编辑新的菜单项。菜单项属性如表 【案例6.5】 文本框弹出式菜单 2.建立过程如图所示。 【案例6.5】 文本框弹出式菜单 3. 双击文本框控件，打开代码窗口，在“事件”下拉列表框中选择鼠标按下事件“MouseDown”,编写如下代码： Private Sub Text1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 1 Then PopupMenu Tcolor End If End Sub 知识3 工具栏设计 WINDOWS系统工具栏如图 【案例6.6】 建立工具栏 要求：为窗体建立工具栏，如图所示。 【案例6.6】 建立工具栏 1.添加部件：单击“工程”菜单中的“部件”菜单项，单击“控件”标签，在“控件”列表中选择“Microsoft Windows Common Controls 6.0(sp6)”,如图所示，单击“确定”按钮。 【案例6.6】 建立工具栏 2.在通用工具栏中添加了一些控件工具按钮图标如图所示。建立工具栏使用其中的图像列表控件(ImageList)和工具栏控件（ToolBar）。 【案例6.6】 建立工具栏 3.建立图像列表：双击“图像