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

《VisualBasic程序设计第10章菜单与工具栏设计》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、VisualBasic程序设计第10章菜单与工具栏设计2009年月日计算机学院教师：傅茂洺10.1菜单编辑器提要10.2下拉式菜单10.3弹出式菜单10.4制作工具栏一个完整的菜单通常由：主菜栏、子菜单、菜单项、访问键、快捷键、分隔符等组成。10.1菜单编辑器为了创建菜单，VB提供了一个设计菜单的工具，即“菜单编辑器”。可在VB的“工具”菜单下选择“菜单编辑器”命令，则可打开“菜单编辑器”窗口。属性设置区显示区编辑区“菜单编辑器”的组成属性设置区窗口的上部分用于设置每个菜单项的基本属性编辑区窗口的中部有7个按钮，用于编辑菜单中的各菜单项菜单项编

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

3、一个菜单项的编辑插入一个空白菜单项删除当前菜单项“菜单编辑器”中的显示区与对应的菜单项“菜单编辑器”显示区显示的菜单项目窗体运行时对应的菜单显示效果10.2下拉式菜单“下拉式菜单”一般通过单击菜单栏中的菜单项的方式打开。在下拉式菜单系统中，一般有一个主菜单，称为“菜单栏”建立菜单的步骤（1）打开“菜单编辑器”设置各项菜单项（2）为相应的菜单命令编写事件过程注意：①菜单项控件只包含一个事件，即Click事件。②菜单标题而非菜单命令的菜单项，无需添加代码。【例10-1】设计一个简单的下拉式菜单。窗体设计界面窗体执行界面设计步骤如下：在“菜单编辑器”

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

5、单下的2个菜单项的Click事件代码：PrivateSubmenu121_Click()Label1.Caption="你选择了蛙泳"EndSubPrivateSubmenu122_Click()Label1.Caption="你选择了仰泳"EndSub……1.设置快捷键为菜单设置热键与对应的菜单项为它们设置快捷键将会大大提高操作速度。例如，Ctrl+C可代表复制，Ctrl+V可代表粘贴。2.增加确认标记在菜单中，靠近命令的确认标志表示该命令项已经被选择。需要在菜单中使用缺省选择时，则可以设置确认标志。当“菜单编辑器”中的“复选”复选框设置为选

6、中时，在相应的菜单项左旁会被加上“√”记号。在“菜单编辑器”中设置了的确认标志，也可以使用代码将其删除或加上，如：menu11.Checked=False‘使“足球”菜单项的“√”记号去除menu11.Checked=True‘在“足球”菜单项加上“√”记号。4.菜单项的隐藏要使菜单项消失而不可见，当“菜单编辑器”中的“可见”复选框设置为不可选时，其相应的菜单项将被隐藏起来。也可以在代码中使一个菜单项隐藏，如：menu11.Visible=False‘使“足球”菜单项隐藏3.菜单项的有效性控制有时候，某些菜单命令暂时毫无意义，可以根据程序的运行

7、状态，动态的进行调整，暂时将它模糊，表示该菜单项不可选（呈灰色），如：menu11.Enabled=False‘使“足球”菜单项不起作用【例10-2】设计一个简单的文本编辑器，利用输入对话框输入文本，通过菜单命令控制文本框中字体的外观。其中，部分菜单项具有在其旁加上或取消"√"标志、关闭或隐藏菜单项的功能，并设有快捷键和访问键功能，其执行界面如图所示。窗体上菜单的界面使用“菜单编辑器”，按照如下设置各菜单项标题名称快捷键文件(&F)File….输入信息InputCtrl+I….-Seprate1….退出(&X)Quit字体外观(&T)FontF

8、ace….粗体FontBCtrl+B….斜体FontICtrl+L….下划线FontUdCtrl+D….-Seprate2….模糊粗体命令Blur….