《Visual Basic 6.0可视化编程与实训 教学课件 ppt 作者 于泽 主编 项目六 菜单与工具栏设计》由会员分享，可在线阅读，更多相关《Visual Basic 6.0可视化编程与实训 教学课件 ppt 作者 于泽 主编 项目六 菜单与工具栏设计（40页珍藏版）》请在金锄头文库上搜索。
1、项目六 菜单与工具栏设计,学习目标 下拉式菜单 为菜单项单击事件编写程序代码 弹出式菜单 工具栏设计,Windows应用程序的窗口菜单一般包括主菜单和子菜单,知识1 下拉式菜单,【案例6.1】建立下拉菜单,设计如图所示的窗体和菜单,【案例6.1】建立下拉菜单,1. 建立窗体：本案例的程序窗体只有一个文本框控件。窗体和文本框控件属性设置如表所示。,【案例6.1】建立下拉菜单,2设计菜单：用鼠标单击工具栏上菜单编辑器图标或选择“工具”菜单下的“菜单编辑器”菜单项,【案例6.1】建立下拉菜单,3按照上表所示建立菜单，为每个菜单项输入标题、名称，设置快捷键，并使用“”、“”按钮建立级联符号。,【案例6
2、.1】建立下拉菜单,【案例6.2】 为菜单项单击事件编写程序代码,1.在窗体中添加“通用对话框”控件 2.在窗体设计器中单击设计窗体的子菜单项，打开代码窗口，光标在菜单项对应单击事件中，为对应菜单项事件编写代码。,【案例6.2】 为菜单项单击事件编写程序代码,【案例6.3】完善菜单系统,要求：在【案例6.2】的基础上添加新的菜单项，并编写“格式”菜单中“字体”菜单项的程序代码。,【案例6.3】完善菜单系统,1打开菜单编辑器，在原有基础上继续添加新菜单项。新菜单项属性参考下表,【案例6.3】完善菜单系统,2.在窗体设计器中单击窗体“格式”菜单中的“字体”子菜单项，进入代码窗口编写代码。,知识2
3、弹出式菜单,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.建立本案例要求的
4、菜单。菜单项属性设置如表所示。,【案例6.4】 弹出式菜单,3. 为各菜单项编写代码：由于“字体”主菜单项的“可见性”为不可见，所建菜单项不能显示在窗体上，所以不能通过单击菜单项打开代码窗口。可以双击窗体先进入代码窗口，然后通过代码窗口的“对象”下拉列表框选择菜单名称，再在对应事件过程中输入代码。,【案例6.4】 弹出式菜单,4.在“对象”下拉列表框中选择“Form”,在代码窗口的“事件”下拉列表框中选择“MouseDown”事件，为窗体的鼠标按下事件编写如下代码。 Private Sub Form_MouseDown(Button As Integer, Shift As Integer,
5、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. 双击文本框控件，打开代码窗口，在“事件”下拉列表
6、框中选择鼠标按下事件“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 Wi
7、ndows Common Controls 6.0(sp6)”,如图所示，单击“确定”按钮。,【案例6.6】 建立工具栏,2.在通用工具栏中添加了一些控件工具按钮图标如图所示。建立工具栏使用其中的图像列表控件(ImageList)和工具栏控件（ToolBar）。,【案例6.6】 建立工具栏,3.建立图像列表：双击“图像列表”工具，在窗体上建立一个图像列表控件，如图所示，选择图像列表控件，单击鼠标右键打开快捷菜单，选择“属性”命令，打开“图像列表属性页”对话框。,【案例6.6】 建立工具栏,4.在打开的“图像列表属性页”对话框中选择“16 x 16 (1)”,确定工具栏图像的大小。如图所示。,【
8、案例6.6】 建立工具栏,5在打开的“图像列表属性页”对话框中单击“图像”选项卡，如图所示，为工具栏添加图片。,【案例6.6】 建立工具栏,6.单击“插入图片”按钮，在“C:Program FilesMicrosoft Visual StudioCommonGRAPHICSBITMAPSOFFCTLBRSMALLCOLOR”文件夹中有“BMP”格式的图片文件。选择“NEW.BMP”文件，单击“打开”命令按钮，添加一个图片。同样方法，再添加“OPEN.BMP”、“SAVE.BMP”、“PRINT.BMP”、“CUT.BMP”、“COPY.BMP”、“PASTE.BMP”等图片文件。,【案例6.6
9、】 建立工具栏,7.添加图片完成后的结果如图所示。注意其中索引号应与图片个数对应，均为“7”。单击确定按钮完成工具栏图片插入。,【案例6.6】 建立工具栏,8.在双击“工具栏”工具按钮，在窗体上添加一个空工具栏。如图所示。,【案例6.6】 建立工具栏,9.鼠标右键单击空工具栏，在控件菜单中选择“属性”，打开工具栏“属性页”对话框。如图所示。在“图像列表”下拉列表框中选择“ImageList1”。,【案例6.6】 建立工具栏,10.在“属性页”对话框中单击“按钮”选项卡，单击“插入按钮”按钮，此时索引文本框值从0变到1，在“工具提示文本(X)”文本框中输入按钮提示文字“新建”，在“图像(G)”文
10、本框中输入数字1（这个数字是此工具按钮图标在图像列表中对应的位置数字），结果如图所示的“按钮”选项卡。,【案例6.6】 建立工具栏,11.重复这一步骤，直到将7个工具按钮的提示文本输入并分别选择对应的图像，单击“确定”按钮结束。运行程序结果如图所示。,【案例6.7】 编写程序代码,要求：在【案例6.6】基础上。为“新建”、“打开”、“保存”工具栏编写程序代码。,【案例6.7】 编写程序代码,1.在窗体中添加“通用对话框”控件（具体方法请参阅第五章）。 2.在设计窗体中双击工具栏，在工具栏按钮单击事件过程中输入图所示代码。,本章小结,本章介绍了在Visual Basic系统中建立下拉式菜单、弹出式菜单、工具栏的方法。使应用程序的功能进一步完善。 菜单编辑器的使用及下拉式菜单的设计方法。 鼠标按下事件、弹出式菜单的设计和使用。 图像列表、工具栏等控件的添加方法。 工具栏的建立和使用方法。,
