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

Visual Basic程序设计 第10章 菜单与工具栏设计,2009年 月 日,计算机 学院,教师：傅茂洺,10.1 菜单编辑器,提 要,10.2 下拉式菜单,10.3 弹出式菜单,10.4 制作工具栏,一个完整的菜单通常由：主菜栏、子菜单、菜单项、访问键、快捷键、分隔符等组成。,10.1 菜单编辑器,为了创建菜单，VB提供了一个设计菜单的工具，即“菜单编辑器”。 可在VB的“工具”菜单下选择“菜单编辑器”命令，则可打开“菜单编辑器”窗口。,属性设置区,显示区,编辑区,“菜单编辑器”的组成,属性设置区 窗口的上部分用于设置每个菜单项的基本属性 编辑区 窗口的中部有7个按钮，用于编辑菜单中的各菜单项 菜单项编辑区 窗口的下方区域，用于显示输入的菜单项，编辑好的菜单会立刻在编辑区中显示出来，并通过内缩符号表明菜单项的层次,“菜单编辑器”中的菜单项主要属性,“菜单编辑器”中的编辑按钮,“菜单编辑器” 中的显示区与对应的菜单项,“菜单编辑器” 显示区显示的菜单项目,窗体运行时对应的菜单显示效果,10.2 下拉式菜单,“下拉式菜单”一般通过单击菜单栏中的菜单项的方式打开。 在下拉式菜单系统中，一般有一个主菜单，称为“菜单栏”,建立菜单的步骤 （1）打开“菜单编辑器”设置各项菜单项 （2）为相应的菜单命令编写事件过程 注意： 菜单项控件只包含一个事件，即Click事件。 菜单标题而非菜单命令的菜单项，无需添加代码。,【例10-1】设计一个简单的下拉式菜单。,窗体设计界面,窗体执行界面,设计步骤如下： 在“菜单编辑器”中建立如下菜单,为相应的菜单命令编写事件过程 编写“足球”菜单项的Click事件代码： Private Sub menu11_Click() Label1.Caption = “你选择了足球“ End Sub 编写“游泳”子菜单下的2个菜单项的Click事件代码： Private Sub menu121_Click() Label1.Caption = “你选择了蛙泳“ End Sub Private Sub menu122_Click() Label1.Caption = “你选择了仰泳“ End Sub ,1. 设置快捷键,为菜单设置热键与对应的菜单项,为它们设置快捷键将会大大提高操作速度。例如，Ctrl+C可代表复制，Ctrl+V可代表粘贴。,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事件代码 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,程序启动后，在窗体上单击鼠标右键时，即可弹出“文件”快捷菜单。,10.4 制作工具栏,工具栏往往由一系列的按钮（或形象化的图标按钮）组成，每个按钮对应一个常用的菜单命令。,在VB中可以通过两种方法建立工具栏： 手工方式（在图片框控件上加入一些工具按钮控件） 工具栏控件方式（使用工具栏控件）。,使用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）设置新增对象属性：,3）面向工具栏上的控件编写事件驱动代码,使用ToolBar与ImageList制作工具栏,工具栏控件并不在默认的工具箱中，需要另外从VB的“工具”/“部件”菜单命令，打开的“部件对话框”中选择“Microsoft Windows Common Controls 6.0”，添加到工具箱来。,工具箱中增加的控件组,Toolbar控件的 “通用” 选项卡,Toolbar控件的主要设置：,在添加有Toolbar 控件的窗体上，用鼠标右键单击Toolbar控件，在弹出的快捷菜单中选择“属性”，可以打开“属性页”对话框。,与之对应的图像列表控件,“通用”选项卡通常需要设置的是：“图像列表”属性选项，它将被用来与图像列表(ImageList)控件建立关联,Toolbar控件的 “按钮”选项卡,“按钮”选项卡需要设置：“索引”、“图像”等属性,第2个按钮的索引值,选ImageList控件图片库中的第2张图片,按钮的提示文本,ImageList 控件的主要设置： 工具栏中的按钮习惯上以图形按钮方式出现，而工具 栏控件本身没有Picture属性。需要通过图像列表控件来 实现工具栏按钮图片的载入。,向ImageList控件添加图像,已插入了3个图片,【例10-5】使用工具栏控件和图像列表控件，重新设计例10-4的工具栏，窗口设计界面如图所示。,ToolBar 控件,ImageList 控件,此处留有间隔,设计步骤： 1） 在窗体上添加ToolBar和ImageList控件 2）设置ImageList控件属性,插入图片,3）设置ToolBar控件属性,选择图 像列表,设置按 钮图片,设置按钮 提示信息,4）编写工具栏按钮的事件代码 Private Sub Toolbar1_ButtonClick (ByVal Button As_ MSComctlLib.Button) n = Button.Index Select Case n Case 1 对第