VisualBasic程序设计第10章菜单与工具栏设计课件

VisualBasic第10章菜单与工具栏设计2009年月日学院教师：傅茂洺10.1菜单编辑器提要10.2下拉式菜单10.3弹出式菜单10.4制作工具栏一个完整的菜单通常由：主菜栏、子菜单、菜单项、访问键、快捷键、分隔符等组成。10.1菜单编辑器“菜单编辑器”的组成属性设置区窗口的上部分用于设置每个菜单项的基本属性编辑区窗口的中部有7个按钮，用于编辑菜单中的各菜单项

菜单项编辑区窗口的下方区域，用于显示输入的菜单项，编辑好的菜单会立刻在编辑区中显示出来，并通过内缩符号表明菜单项的层次“菜单编辑器”中的菜单项主要属性标题(Caption)设置菜单项显示的标题名称(Name)设置菜单项的名称索引(Index)设置菜单控件数组的下标快捷键(Shortcut)为菜单项选择一个快捷键复选(Checked)设置某一菜单项是否可选有效(Enabled)设置菜单项是否可用可见(Visible)设置菜单项是否可见“菜单编辑器”中的编辑按钮用于调整菜单项的级别。单击一次“→”按钮，产生一个内缩符号“….”用于调整菜单项的上下位置进入下一个菜单项的编辑插入一个空白菜单项删除当前菜单项“菜单编辑器”中的显示区与对应的菜单项

“菜单编辑器”显示区显示的菜单项目窗体运行时对应的菜单显示效果【例10-1】设计一个简单的下拉式菜单。

窗体设计界面窗体执行界面设计步骤如下：在“菜单编辑器”中建立如下菜单标题(Caption)名称(Name)说明体育menu1主菜单项….足球menu11菜单命令….游泳menu12子菜单项……..蛙泳menu121菜单命令……..仰泳menu122菜单命令….-menu13分隔符….关闭menu14菜单命令军事menu2主菜单项….陆军menu21菜单命令….海军menu22菜单命令….空军menu23菜单命令为相应的菜单命令编写事件过程编写“足球”菜单项的Click事件代码： PrivateSubmenu11_Click() Label1.Caption="你选择了足球" EndSub编写“游泳”子菜单下的2个菜单项的Click事件代码： PrivateSubmenu121_Click() Label1.Caption="你选择了蛙泳" EndSub PrivateSubmenu122_Click() Label1.Caption="你选择了仰泳" EndSub……

2.增加确认标记

在菜单中，靠近命令的确认标志表示该命令项已经被选择。需要在菜单中使用缺省选择时，则可以设置确认标志。当“菜单编辑器”中的“复选”复选框设置为选中时，在相应的菜单项左旁会被加上“√”记号。在“菜单编辑器”中设置了的确认标志，也可以使用代码将其删除或加上，如：menu11.Checked=False‘使“足球”菜单项的“√”记号去除menu11.Checked=True

‘在“足球”菜单项加上“√”记号。

4.菜单项的隐藏要使菜单项消失而不可见，当“菜单编辑器”中的“可见”复选框设置为不可选时，其相应的菜单项将被隐藏起来。也可以在代码中使一个菜单项隐藏，如：menu11.Visible=False‘使“足球”菜单项隐藏3.菜单项的有效性控制

有时候，某些菜单命令暂时毫无意义，可以根据程序的运行状态，动态的进行调整，暂时将它模糊，表示该菜单项不可选（呈灰色），如：menu11.Enabled=False

‘使“足球”菜单项不起作用【例10-2】设计一个简单的文本编辑器，利用输入对话框输入文本，通过菜单命令控制文本框中字体的外观。其中，部分菜单项具有在其旁加上或取消"√"标志、关闭或隐藏菜单项的功能，并设有快捷键和访问键功能，其执行界面如图所示。窗体上菜单的界面10.3弹出式菜单

弹出式菜单（又称“快捷菜单”），只需用户在窗体上单击某一鼠标键（一般为鼠标右键）就立即弹出菜单。快捷菜单可以根据用户单击鼠标键时的位置，动态地调整菜单项的显示位置，同时也改变菜单项显示的内容，为用户提供了更加便利的操作。设计弹出式菜单的方法（1）使用“菜单编辑器”窗口建立一个顶层菜单（主菜单项）。（2）设置弹出式菜单的显示方式。使用PopupMenu方法显示弹出式菜单。PopupMenu方法的语法格式是：[窗体名.]PopupMenu<菜单项>[,Flags[,X[,Y]]]其中：①“菜单项”是指要弹出的菜单名称（一般是主菜单项或子菜单项的名称）。②X、Y是菜单显示的位置。③Flags参数指定弹出式菜单的行为。【例10-3】在例10-2中，将“文件”菜单作为弹出式菜单显示。运行效果如图所示。

只需在例10-2中增加窗体的MouseDown事件代码PrivateSubForm_MouseUp(ButtonAsInteger,ShiftAsInteger,XAs_Single,YAsSingle)IfButton=2Then‘单击鼠标右键时（Button=2），条件成立PopupMenuFile‘将“文件”菜单中的各菜单项设定为弹出式

EndIfEndSub程序启动后，在窗体上单击鼠标右键时，即可弹出“文件”快捷菜单。使用ToolBar与ImageList制作工具栏（1）添加ToolBar与ImageList控件。（2）在窗体上ToolBar与ImageList。（3）设置控件的属性。（4）编写代码。用手工方式制作工具栏（1）在窗体中添加一个图片框Picture控件（2）选定图片框，在图片框中添加任何想在工具栏中显示的控件（3）设置控件的属性（4）编写代码一般都是在其按钮的Click事件代码中调用对应的菜单命令。【例10-4】在例10-3中，增加一个自定义的工具栏。

在例10-3的基础上作修改：1）修改应用程序用户界面

在窗体上增加一个图片框Picture1，然后在图片框中增加按钮数组Command1(0)～Command1(1)和复选框数组Check1(0)～Check1(2)1.用手工方式制作工具栏2）设置新增对象属性：对象属性属性值说明Picture1Align1-AlignTop使图片框位于窗体的顶部Command1()Caption清空Style1-Graphical图形按钮Picturexg1.bmp、xg2.bmp分别选2个不同的图形Check1()Caption清空Style1-Graphical图形按钮PictureBld.bmp、Itl.bmp、Undrln.bmp分别选3个不同的图形3）面向工具栏上的控件编写事件驱动代码Toolbar控件的“通用”选项卡Toolbar控件的主要设置：

在添加有Toolbar控件的窗体上，用鼠标右键单击Toolbar控件，在弹出的快捷菜单中选择“属性”，可以打开“属性页”对话框。与之对应的图像列表控件“通用”选项卡通常需要设置的是：“图像列表”属性选项，它将被用来与图像列表(ImageList)控件建立关联

Toolbar控件的“按钮”选项卡“按钮”选项卡需要设置：“索引”、“图像”等属性第2个按钮的索引值选ImageList控件图片库中的第2张图片按钮的提示文本设计步骤：1）在窗体上添加ToolBar和ImageList控件2）设置ImageList控件属性插入图片3）设置ToolBar控件属性选择图像列表设置按钮图片设置按钮提示信息4）编写工具栏按钮的事件代码PrivateSubToolbar1_ButtonClick(ByValButtonAs_MSComctlLib.Button)n=Button.IndexSelectCasenCase1‘对第1个按钮

Text1.Text=InputBox("请输入一段文字信息","输入")

Text1.Visible=True