《VisualBasic程序设计菜单与工具栏设计课件》由会员分享，可在线阅读，更多相关《VisualBasic程序设计菜单与工具栏设计课件（33页珍藏版）》请在金锄头文库上搜索。
1、Visual BasicVisual BasicVisual BasicVisual Basic程序设计程序设计程序设计程序设计第第第第10101010章章章章 菜单与工具栏设计菜单与工具栏设计菜单与工具栏设计菜单与工具栏设计200920092009200920092009年年年年年年 月月月月月月 日日日日日日计算机计算机学院学院教师：傅茂洺教师：傅茂洺教师：傅茂洺教师：傅茂洺教师：傅茂洺教师：傅茂洺Visual Basic程序设计程序设计/第第10章章 菜单与工具栏设计菜单与工具栏设计 2/3310.1 10.1 菜单菜单编辑器编辑器提提 要要10.2 10.2 下拉式菜单下拉式菜单10.
2、3 10.3 弹出式菜单弹出式菜单10.4 10.4 制作工具栏制作工具栏Visual Basic程序设计程序设计/第第10章章 菜单与工具栏设计菜单与工具栏设计 3/33一个完整的菜单通常由：主菜栏、子菜单、菜单项、访一个完整的菜单通常由：主菜栏、子菜单、菜单项、访问键、快捷键、分隔符等组成。问键、快捷键、分隔符等组成。10.1 菜单编辑器菜单编辑器Visual Basic程序设计程序设计/第第10章章 菜单与工具栏设计菜单与工具栏设计 4/33 为了创建菜单，为了创建菜单，VBVB提供了一个设计菜单的提供了一个设计菜单的工具，即工具，即“菜单编辑器菜单编辑器”。 可在可在VBVB的的“工具
3、工具”菜菜单下选择单下选择“菜单编辑器菜单编辑器”命令，则可打开命令，则可打开“菜菜单编辑器单编辑器”窗口。窗口。属性设置区属性设置区显示区显示区编辑区编辑区Visual Basic程序设计程序设计/第第10章章 菜单与工具栏设计菜单与工具栏设计 5/33“菜单编辑器菜单编辑器”的组成的组成属性设置区属性设置区 窗口的上部分用于设置每个菜单项的基本属性窗口的上部分用于设置每个菜单项的基本属性 编辑区编辑区 窗口的中部有窗口的中部有7个按钮，用于编辑菜单中的各菜单项个按钮，用于编辑菜单中的各菜单项 菜单项编辑区菜单项编辑区 窗口的下方区域，用于显示输入的菜单项，编辑好的窗口的下方区域，用于显示输
4、入的菜单项，编辑好的菜单会立刻在编辑区中显示出来，并通过内缩符号表明菜菜单会立刻在编辑区中显示出来，并通过内缩符号表明菜单项的层次单项的层次Visual Basic程序设计程序设计/第第10章章 菜单与工具栏设计菜单与工具栏设计 6/33“菜单编辑器菜单编辑器”中的菜单项主要属性中的菜单项主要属性标题标题 (Caption)设置菜单项显示的标题设置菜单项显示的标题名称名称 (Name)设置菜单项的名称设置菜单项的名称索引索引 (Index)设置菜单控件数组的下标设置菜单控件数组的下标快捷键快捷键 (Shortcut)为菜单项选择一个快捷键为菜单项选择一个快捷键复选复选 (Checked)设置某
5、一菜单项是否可选设置某一菜单项是否可选有效有效 (Enabled)设置菜单项是否可用设置菜单项是否可用可见可见 (Visible)设置菜单项是否可见设置菜单项是否可见“菜单编辑器菜单编辑器”中的编辑按钮中的编辑按钮用于调整菜单项的级别。单击一次用于调整菜单项的级别。单击一次“”“”按钮，产生一个内缩符号按钮，产生一个内缩符号“. ”用于调整菜单项的上下位置用于调整菜单项的上下位置进入下一个菜单项的编辑进入下一个菜单项的编辑插入一个空白菜单项插入一个空白菜单项删除当前菜单项删除当前菜单项Visual Basic程序设计程序设计/第第10章章 菜单与工具栏设计菜单与工具栏设计 7/33“菜单编辑器
6、菜单编辑器” 中的显示区与对应的菜单项中的显示区与对应的菜单项 “菜单编辑器菜单编辑器” 显示区显示的菜单项目显示区显示的菜单项目窗体运行时对应的菜单显示效果窗体运行时对应的菜单显示效果Visual Basic程序设计程序设计/第第10章章 菜单与工具栏设计菜单与工具栏设计 8/3310.2 下拉式菜单下拉式菜单“下拉式菜单下拉式菜单”一般通过单击菜单栏中的菜单项的方式打开。一般通过单击菜单栏中的菜单项的方式打开。在下拉式菜单系统中，一般有一个主菜单，称为在下拉式菜单系统中，一般有一个主菜单，称为“菜单栏菜单栏”建立菜单的步骤建立菜单的步骤（1）打开）打开“菜单编辑器菜单编辑器”设置各项菜单项
7、设置各项菜单项（2）为相应的菜单命令编写事件过程）为相应的菜单命令编写事件过程 注意：注意： 菜单项控件只包含一个事件，即菜单项控件只包含一个事件，即Click事件。事件。 菜单标题而非菜单命令的菜单项，无需添加代码。菜单标题而非菜单命令的菜单项，无需添加代码。Visual Basic程序设计程序设计/第第10章章 菜单与工具栏设计菜单与工具栏设计 9/33【例【例10-1】设计一个简单的下拉式菜单。设计一个简单的下拉式菜单。 窗体设计界面窗体设计界面窗体执行界面窗体执行界面Visual Basic程序设计程序设计/第第10章章 菜单与工具栏设计菜单与工具栏设计 10/33设计步骤如下：设计步
8、骤如下：1)在在“菜单编辑器菜单编辑器”中建立如下菜单中建立如下菜单标题标题(Caption)名称名称(Name)说明说明体育体育menu1主菜单项主菜单项.足球足球menu11菜单命令菜单命令.游泳游泳menu12子菜单项子菜单项.蛙泳蛙泳menu121菜单命令菜单命令.仰泳仰泳menu122菜单命令菜单命令.-menu13分隔符分隔符.关闭关闭menu14菜单命令菜单命令军事军事menu2主菜单项主菜单项.陆军陆军menu21菜单命令菜单命令.海军海军menu22菜单命令菜单命令.空军空军menu23菜单命令菜单命令Visual Basic程序设计程序设计/第第10章章 菜单与工具栏设计菜
9、单与工具栏设计 11/332)2)为相应的菜单命令编写事件过程为相应的菜单命令编写事件过程编写编写“足球足球”菜单项的菜单项的ClickClick事件代码：事件代码：Private Sub menu11_Click()Private Sub menu11_Click() Label1.Caption = Label1.Caption = 你选择了足球你选择了足球 End SubEnd Sub编写编写“游泳游泳”子菜单下的子菜单下的2 2个菜单项的个菜单项的ClickClick事件代码：事件代码：Private Sub menu121_Click()Private Sub menu121_Cli
10、ck() Label1.Caption = Label1.Caption = 你选择了蛙泳你选择了蛙泳 End SubEnd SubPrivate Sub menu122_Click()Private Sub menu122_Click() Label1.Caption = Label1.Caption = 你选择了仰泳你选择了仰泳 End SubEnd Sub Visual Basic程序设计程序设计/第第10章章 菜单与工具栏设计菜单与工具栏设计 12/331. 设置快捷键设置快捷键为菜单设置热键与对应的菜单项为菜单设置热键与对应的菜单项 为它们设置快捷键将会大大提高操作速度。例如，为它们
11、设置快捷键将会大大提高操作速度。例如，Ctrl+CCtrl+C可代表复制，可代表复制，Ctrl+VCtrl+V可代表粘贴。可代表粘贴。Visual Basic程序设计程序设计/第第10章章 菜单与工具栏设计菜单与工具栏设计 13/332. 增加确认标记增加确认标记 在菜单中，靠近命令的确认标志表示该命令项已经被选在菜单中，靠近命令的确认标志表示该命令项已经被选择。需要在菜单中使用缺省选择时，则可以设置确认标志。择。需要在菜单中使用缺省选择时，则可以设置确认标志。当当“菜单编辑器菜单编辑器”中的中的“复选复选”复选框设置为选中时，在相复选框设置为选中时，在相应的菜单项左旁会被加上应的菜单项左旁会
12、被加上“”“”记号。记号。 在在“菜单编辑器菜单编辑器”中设置了的确认标志，也可以使用代中设置了的确认标志，也可以使用代码将其删除或加上，如：码将其删除或加上，如：menu11.Checked = Falsemenu11.Checked = False使使“足球足球”菜单项的菜单项的“”“”记号去除记号去除menu11.Checked = Truemenu11.Checked = True 在在“足球足球”菜单项加上菜单项加上“”“”记号。记号。 Visual Basic程序设计程序设计/第第10章章 菜单与工具栏设计菜单与工具栏设计 14/334. 菜单项的隐藏菜单项的隐藏 要使菜单项消失而
13、不可见，当要使菜单项消失而不可见，当“菜单编辑器菜单编辑器”中的中的“可见可见”复选复选框设置为不可选时，其相应的菜单项将被隐藏起来。也可以在代码中框设置为不可选时，其相应的菜单项将被隐藏起来。也可以在代码中使一个菜单项隐藏，如：使一个菜单项隐藏，如：menu11.Visible = False 使使“足球足球”菜单项隐藏菜单项隐藏3. 菜单项的有效性控制菜单项的有效性控制 有时候，某些菜单命令暂时毫无意义，可以根据程序的运行状态，有时候，某些菜单命令暂时毫无意义，可以根据程序的运行状态，动态的进行调整，暂时将它模糊，表示该菜单项不可选（呈灰色），动态的进行调整，暂时将它模糊，表示该菜单项不可
14、选（呈灰色），如：如：menu11.Enabled = Falsemenu11.Enabled = False 使使“足球足球”菜单项不起作用菜单项不起作用Visual Basic程序设计程序设计/第第10章章 菜单与工具栏设计菜单与工具栏设计 15/33【例10-2】设计一个简单的文本编辑器，利用输入设计一个简单的文本编辑器，利用输入对话框输入文本，通过菜单命令控制文本框中字对话框输入文本，通过菜单命令控制文本框中字体的外观。其中，部分菜单项具有在其旁加上或体的外观。其中，部分菜单项具有在其旁加上或取消取消标志、关闭或隐藏菜单项的功能，并设标志、关闭或隐藏菜单项的功能，并设有快捷键和访问键功
15、能，其执行界面如图所示。有快捷键和访问键功能，其执行界面如图所示。 窗体上菜单的界面窗体上菜单的界面Visual Basic程序设计程序设计/第第10章章 菜单与工具栏设计菜单与工具栏设计 16/33使用使用“菜单编辑器菜单编辑器”，按照如下设置各菜单，按照如下设置各菜单项项标题标题名称名称快捷键快捷键文件文件(&F)File.输入信息输入信息InputCtrl+I. -Seprate1.退出退出(&X)Quit字体外观字体外观(&T)FontFace.粗体粗体FontBCtrl+B.斜体斜体FontICtrl+L.下划线下划线FontUdCtrl+D. -Seprate2.模糊粗体命令模糊粗
16、体命令Blur.隐藏斜体命令隐藏斜体命令Imm. -Seprate3.刷新刷新RefurCtrl+RVisual Basic程序设计程序设计/第第10章章 菜单与工具栏设计菜单与工具栏设计 17/3310.3 弹出式菜单弹出式菜单 弹出式菜单（又称弹出式菜单（又称“快捷菜单快捷菜单”），只需用户在窗体上），只需用户在窗体上单击某一鼠标键（一般为鼠标右键）就立即弹出菜单。单击某一鼠标键（一般为鼠标右键）就立即弹出菜单。 快捷菜单可以根据用户单击鼠标键时的位置，动态地调快捷菜单可以根据用户单击鼠标键时的位置，动态地调整菜单项的显示位置，同时也改变菜单项显示的内容，为整菜单项的显示位置，同时也改变菜
17、单项显示的内容，为用户提供了更加便利的操作。用户提供了更加便利的操作。Visual Basic程序设计程序设计/第第10章章 菜单与工具栏设计菜单与工具栏设计 18/33 设计弹出式菜单的方法设计弹出式菜单的方法（1 1）使用）使用“菜单编辑器菜单编辑器”窗口建立一个顶层菜单（主菜单项）。窗口建立一个顶层菜单（主菜单项）。（2 2）设置弹出式菜单的显示方式。使用）设置弹出式菜单的显示方式。使用PopupMenuPopupMenu方法显示弹出式菜单。方法显示弹出式菜单。 PopupMenu PopupMenu方法的语法格式是：方法的语法格式是： 窗体名窗体名. PopupMenu . Popup
18、Menu , Flags , X, Y , Flags , X, Y其中：其中： “菜单项菜单项”是指要弹出的菜单名称（一般是主菜单项或子菜单项是指要弹出的菜单名称（一般是主菜单项或子菜单项的名称）。的名称）。 X、Y是菜单显示的位置。是菜单显示的位置。 Flags参数指定弹出式菜单的行为。参数指定弹出式菜单的行为。Visual Basic程序设计程序设计/第第10章章 菜单与工具栏设计菜单与工具栏设计 19/33【例【例10-310-3】在例在例10-210-2中，将中，将“文件文件”菜单作为弹出菜单作为弹出式菜单显示。式菜单显示。 运行效果如图所示。运行效果如图所示。 只需在例只需在例10
19、-210-2中增加窗体的中增加窗体的MouseDownMouseDown事件代码事件代码Private Sub Form_MouseUp (Button As Integer, Shift As Integer, X As _ Single, Y As Single) If Button = 2 Then 单击鼠标右键时（单击鼠标右键时（Button=2），条件成立），条件成立 PopupMenu File 将将“文件文件”菜单中的各菜单项设定为弹出式菜单中的各菜单项设定为弹出式 End If End Sub 程序启动后，在窗体上单击程序启动后，在窗体上单击鼠标右键时，即可弹出鼠标右键时，即可
20、弹出“文件文件”快捷菜单。快捷菜单。Visual Basic程序设计程序设计/第第10章章 菜单与工具栏设计菜单与工具栏设计 20/3310.4 制作工具栏制作工具栏 工具栏往往由一系列的按钮（或形象化的图标按工具栏往往由一系列的按钮（或形象化的图标按钮）组成，每个按钮对应一个常用的菜单命令。钮）组成，每个按钮对应一个常用的菜单命令。在在VB中可以通过两种方法建立工具栏：中可以通过两种方法建立工具栏： 手工方式（在图片框控件上加入一些工具按钮控件）手工方式（在图片框控件上加入一些工具按钮控件） 工具栏控件方式（使用工具栏控件）。工具栏控件方式（使用工具栏控件）。Visual Basic程序设计
21、程序设计/第第10章章 菜单与工具栏设计菜单与工具栏设计 21/33 使用使用ToolBar与与ImageList制作工具栏制作工具栏（1 1）添加）添加ToolBarToolBar与与ImageListImageList控件。控件。（2 2）在窗体上）在窗体上ToolBarToolBar与与ImageListImageList。（3 3）设置控件的属性。）设置控件的属性。（4 4）编写代码。）编写代码。 用手工方式制作工具栏用手工方式制作工具栏（1）在窗体中添加一个图片框）在窗体中添加一个图片框Picture控件控件（2）选定图片框，在图片框中添加任何想在工具栏中显示的控件）选定图片框，在图
22、片框中添加任何想在工具栏中显示的控件（3）设置控件的属性）设置控件的属性（4）编写代码）编写代码 一般都是在其按钮的一般都是在其按钮的Click事件代码中调用对应的菜单命令。事件代码中调用对应的菜单命令。 Visual Basic程序设计程序设计/第第10章章 菜单与工具栏设计菜单与工具栏设计 22/33【例【例10-410-4】在例在例10-310-3中，增加一个自定义的工具栏。中，增加一个自定义的工具栏。 在例在例10-3的基础上作修改：的基础上作修改：1）修改应用程序用户界面）修改应用程序用户界面 在在窗窗体体上上增增加加一一个个图图片片框框Picture1Picture1，然然后后在在
23、图图片片框框中中增增加加 按按 钮钮 数数 组组 Command1(0)Command1(0)Command1(1)Command1(1)和和 复复 选选 框框 数数 组组Check1(0)Check1(0)Check1(2)Check1(2)1. 用手工方式制作工具栏用手工方式制作工具栏Visual Basic程序设计程序设计/第第10章章 菜单与工具栏设计菜单与工具栏设计 23/332）设置新增对象属性：设置新增对象属性：对象对象属性属性属性值属性值说明说明Picture1Align1-Align Top使图片框位于窗体的顶部使图片框位于窗体的顶部Command1()Caption清空清空
24、Style1-Graphical图形按钮图形按钮Picturexg1.bmp、xg2.bmp分别选分别选2个不同的图形个不同的图形Check1()Caption清空清空Style1-Graphical图形按钮图形按钮PictureBld.bmp、Itl.bmp、Undrln.bmp分别选分别选3个不同的图形个不同的图形3）面向工具栏上的控件编写事件驱动代码面向工具栏上的控件编写事件驱动代码Visual Basic程序设计程序设计/第第10章章 菜单与工具栏设计菜单与工具栏设计 24/332.使用使用ToolBar与与ImageList制作工具栏制作工具栏 工工具具栏栏控控件件并并不不在在默默认
25、认的的工工具具箱箱中中，需需要要另另外外从从VB的的“工工具具”/“部部 件件 ”菜菜 单单 命命 令令 ， 打打 开开 的的 “部部 件件 对对 话话 框框 ”中中 选选 择择“Microsoft Windows Common Controls 6.0”，添加到工具箱来。，添加到工具箱来。工具箱中增加的控件组工具箱中增加的控件组Visual Basic程序设计程序设计/第第10章章 菜单与工具栏设计菜单与工具栏设计 25/33ToolbarToolbar控件的控件的 “ “通用通用” ” 选项卡选项卡Toolbar控件的主要设置：控件的主要设置： 在添加有在添加有Toolbar 控件的窗体上
26、，用鼠标右键单击控件的窗体上，用鼠标右键单击Toolbar控件，在控件，在弹出的快捷菜单中选择弹出的快捷菜单中选择“属性属性”，可以打开，可以打开“属性页属性页”对话框。对话框。与之对应的图像列表控件与之对应的图像列表控件 “通用通用”选项卡通选项卡通常需要设置的是：常需要设置的是：“图像列表图像列表”属性属性选项，它将被用来选项，它将被用来与图像列表与图像列表(ImageList)控件建控件建立关联立关联 Visual Basic程序设计程序设计/第第10章章 菜单与工具栏设计菜单与工具栏设计 26/33ToolbarToolbar控件的控件的 “ “按钮按钮”选项卡选项卡 “按钮按钮”选项
27、卡需要设置：选项卡需要设置：“索引索引”、“图像图像”等属等属性性第第2个按钮个按钮的索引值的索引值选选ImageList控件图片库中控件图片库中的第的第2张图片张图片按钮的提按钮的提示文本示文本Visual Basic程序设计程序设计/第第10章章 菜单与工具栏设计菜单与工具栏设计 27/33ImageList 控件的主要设置：控件的主要设置： 工具栏中的按钮习惯上以图形按钮方式出现，而工具工具栏中的按钮习惯上以图形按钮方式出现，而工具栏控件本身没有栏控件本身没有PicturePicture属性。需要通过图像列表控件来属性。需要通过图像列表控件来实现工具栏按钮图片的载入。实现工具栏按钮图片的
28、载入。向向ImageListImageList控件添加图像控件添加图像已插入了已插入了3个图片个图片Visual Basic程序设计程序设计/第第10章章 菜单与工具栏设计菜单与工具栏设计 28/33【例【例10-5】使用工具栏控件和图像列表控件，重新设计例使用工具栏控件和图像列表控件，重新设计例10-4的工具栏，窗口设计界面如图所示。的工具栏，窗口设计界面如图所示。ToolBar 控件控件ImageList 控件控件此处留有间隔此处留有间隔Visual Basic程序设计程序设计/第第10章章 菜单与工具栏设计菜单与工具栏设计 29/33设计步骤：设计步骤：1） 在窗体上添加在窗体上添加To
29、olBar和和ImageList控件控件2）设置）设置ImageList控件属性控件属性插入图片插入图片Visual Basic程序设计程序设计/第第10章章 菜单与工具栏设计菜单与工具栏设计 30/333）设置ToolBar控件属性选择图选择图像列表像列表Visual Basic程序设计程序设计/第第10章章 菜单与工具栏设计菜单与工具栏设计 31/33设置按设置按钮图片钮图片设置按钮设置按钮提示信息提示信息Visual Basic程序设计程序设计/第第10章章 菜单与工具栏设计菜单与工具栏设计 32/334）编写工具栏按钮的事件代码）编写工具栏按钮的事件代码Private Sub Tool
30、bar1_ButtonClick (ByVal Button As_ MSComctlLib.Button) n = Button.Index Select Case n Case 1 对第对第1个按钮个按钮 Text1.Text = InputBox(请输入一段文字信息请输入一段文字信息, 输入输入) Text1.Visible = True Case 2 对第对第2个按钮个按钮 End Case 4 对第对第4个按钮个按钮 Text1.FontBold = Button.Value End SelectEnd Sub注意：索引值为注意：索引值为3的第的第3个按钮是只起间隔作用，无需编写代码个按钮是只起间隔作用，无需编写代码Visual Basic程序设计程序设计/第第10章章 菜单与工具栏设计菜单与工具栏设计 33/33欢迎提问！欢迎提问！
