《VB菜单和窗体.ppt》由会员分享，可在线阅读，更多相关《VB菜单和窗体.ppt（52页珍藏版）》请在金锄头文库上搜索。
1、第10章 菜单和工具栏,10.1 菜单设计 10.2 创建工具栏 10.3 Windows界面样式及创建SDI程序界面 10.4 创建MDI程序界面,10.1 菜单设计,10.1.1 菜单组成 10.1.2 菜单编辑器 10.1.3 下拉菜单的设计 10.1.4 弹出式菜单 10.1.5 菜单控件数组,返回目录,10.1.1 菜单组成,在Windows环境下，菜单分为下拉式菜单和弹出式菜单。 下拉式菜单的菜单条显示在窗体标题栏的下面，它含有一个或者多个菜单标题。当单击某一菜单标题时，将打开一个含有菜单项的列表。菜单项也可以是子菜单标题，当单击子菜单标题时，将显示其下的子菜单项。分隔条用于将菜单
2、项按功能分组。 弹出式菜单又称为“上下文菜单”或“快捷菜单”，是一种可以显示在窗体任何位置并独立于菜单栏的浮动式菜单。一般通过在某一区域单击鼠标右键的方式激活特定的弹出式菜单。鼠标单击的区域不同，弹出的菜单内容一般也不同。,10.1.2 菜单编辑器,可以通过以下几种方式启动菜单编辑器： （1）执行“工具”菜单中的“菜单编辑器”命令。 （2）单击工具栏中的“菜单编辑器”按钮。 （3）在要建立菜单的窗体空白处右击鼠标，在快捷菜单中选择“菜单编辑器”命令。,10.1.2 菜单编辑器,10.1.2 菜单编辑器,1. 菜单控件区 菜单控件区用来设置菜单控件的属性。 （1）标题：设置菜单控件的Captio
3、n属性，其值是显示在菜单中的文本。如果要在菜单中加入一条分隔线，则只需输入减号（-）即可；如果要为菜单控件指定访问键，则在作为访问键的字符前面加一个“&”字符。程序运行时该字符下端会出现下划线，使用Alt+字符即可打开菜单或执行相应的菜单命令。 （2）名称：设置菜单控件的Name属性，在程序代码中用于访问该菜单控件。建议使用mnu作为前缀来标识是菜单控件。 （3）索引：设置菜单控件数组中各元素的下标。,10.1.2 菜单编辑器,（4）快捷键：设置快捷访问键，使用户在不打开菜单的情况下就可以通过键盘操作实现同样的功能。 （5）复选：设置菜单控件的Checked属性，决定是否在菜单控件前面出现复选
4、标记（），以便表示菜单控件的开关状态。 （6）有效：设置菜单控件的Enabled属性，决定菜单控件是否可用。如果清除“有效”复选框，则Enabled属性值为False，此时相应的菜单控件将变成无效，以灰色显示。它既不能响应Click事件，也无法用快捷键访问。如果某一菜单标题无效，则其下的所有菜单项都将无效。,10.1.2 菜单编辑器,（7）可见：设置菜单控件的Visible属性，决定菜单控件是否可见。如果清除“可见”复选框，则Visible属性值为False，该菜单控件不可见。当菜单控件不可见时，菜单中的其余控件会上移以填补空出的位置；如果控件位于菜单条上，则菜单条上其余的控件会左移以填补相应
5、的空间。菜单控件不可见时，还会导致其无效；如果菜单标题不可见，则其下的所有菜单项均无效。,10.1.2 菜单编辑器,2. 菜单项显示区 菜单项显示区列有当前窗体的所有菜单控件，并通过它们所在的位置显示出对应的层次关系。可通过鼠标单击选中某个菜单控件，此时上端的菜单控件区显示的即为该菜单控件的对应属性。 （1）位于列表框中与左侧边框平齐的菜单控件将作为菜单标题显示在菜单条中。 （2）前面有一个内缩符号（.）的菜单控件是前导菜单标题的菜单项。 （3）前面有二个内缩符号（）的菜单控件是前导菜单项的子菜单项，前导菜单项又称为子菜单标题。依此类推。,10.1.2 菜单编辑器,3. 编辑区 编辑区用来对当
6、前选中的菜单控件进行编辑。 （1）、：取消或产生内缩符号，从而改变菜单控件在菜单中的层次级别。 （2）、：改变菜单控件在菜单中的位置。 （3）下一个：选中当前菜单控件的下一个菜单控件。 （4）插入：在当前菜单控件的上方加入一个新的菜单控件。 （5）删除：删除当前选中的菜单控件。,10.1.3 下拉菜单的设计,【例10-1-1】 设计一个具有算术运算（、）及清除功能的菜单。通过键盘输入两个数，利用菜单命令计算出它们的和、差、积、商，并显示出来。要求每个菜单命令都有对应的快捷键。 （1）设计用户界面 （2）菜单设计：根据题意，建立两个菜单标题，分别完成设置和计算功能。“设置”菜单中含有清除和退出两
7、个菜单项；“计算”菜单中含有加法、减法、乘法和除法四个菜单项。,Private Sub cheng_Click() Label1.Caption = cheng.Caption Text3.Text = Val(Text1.Text) * Val(Text2.Text) End Sub Private Sub chu_Click() Label1.Caption = chu.Caption Text3.Text = Val(Text1.Text) / Val(Text2.Text) End Sub Private Sub jia_Click() Label1.Caption = jia.Cap
8、tion Text3.Text = Val(Text1.Text) + Val(Text2.Text) End Sub Private Sub jian_Click() Label1.Caption = jian.Caption Text3.Text = Val(Text1.Text) - Val(Text2.Text) End Sub,10.1.3 下拉菜单的设计,（3）编写Click事件过程：如果希望单击某个菜单项就可以执行对应的操作，需要编写菜单控件的Click事件过程，这是除分隔条以外其它菜单控件唯一可以识别的动作。当用户单击菜单标题时，通常是将其下的菜单项显示出来，所以可以不必为菜单
9、标题的Click事件过程编写代码。 首先，关闭菜单编辑器，在窗体上显示所创建的菜单。从窗体上选择一个菜单控件，将在代码编辑器中显示相应的Click事件过程，等待输入程序代码。,10.1.4 弹出式菜单,弹出式菜单可以根据单击鼠标右键时的位置灵活改变弹出的菜单内容，使用户操作更快捷，所以弹出式菜单又称为快捷菜单。任何至少有一个菜单项的菜单，都可以在运行时作为弹出式菜单来显示，弹出式菜单的设计也是使用菜单编辑器，如果弹出式菜单不需要显示在菜单条中，则需要将顶级菜单项设置成隐藏。创建弹出式菜单的步骤如下： （1）使用菜单编辑器设计菜单。 （2）设置顶层菜单项为隐藏，即不选中菜单编辑器里的“可见”选项
10、。,创建弹出式菜单,创建弹出式菜单,按Ctrl+E键，弹出菜单编辑器。在那里面可以编辑菜单。 标题：等同于Command的Caption属性，就是用来显示菜单上的文字。 名称：等同于Command的Nane属性,指定菜单的名称。 索引：菜单数组的下标。 复选：以复选框的样式显示菜单。 有效：Enabled 可见：Visible 先输入菜单第一项的标题“文件“和名称“file“，按你的要求，程序运行时不显示，那么就把它的“可见“勾上。 再输入菜单第二项的标题“打开“和名称“open“,因为它是在“文件“菜单的下一级,所以按一下“按钮“ 最后输入菜单第三项的标题“保存“和名称“save“,不用按按
11、“按钮“.确定完成菜单的编辑.,创建弹出式菜单,调出菜单. Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 2 Then PopupMenu file 1为左键,2为右键 PopupMenu 弹出菜单 End Sub 点击代码窗口中控件下拉列表,选择save 或 open 可以对它们进行事件的编程,10.1.4 弹出式菜单,（3）编写与弹出式菜单相关联的MouseUp(释放鼠标)或MouseDown(按下鼠标)事件过程。其中必须使用Popu
12、pMenu方法，PopupMenu方法语法格式为： 对象名.PopupMenu , flags,x,y,boldcommand 对象名.表示要显示弹出式菜单的窗体名称，默认为当前窗体。 参数是要显示的弹出式菜单名称。 参数flags定义弹出式菜单的位置，可指明位置常数与行为常数。位置常数和行为常数分别如表10-1-3和表10-1-4所示。如果要同时指定这两个常数，可用逻辑运算符or进行组合，如4 or 2。,10.1.4 弹出式菜单,（4）参数x 与y定义弹出式菜单相对于指定窗体的显示位置。若省略，则显示在鼠标指针的当前位置。 （5）参数boldcommand用于指定在弹出式菜单中要以粗体显示
13、的菜单控件的名称。若省略，则菜单中没有以粗体显示的菜单控件。 注意：显示弹出式菜单后，用户必须从菜单中进行选择或者取消菜单，否则调用Popupmenu方法后的代码不会执行。,10.1.5 菜单控件数组,与控件数组类似，菜单控件数组是指同一菜单上共享相同名字与事件过程的一个或者多个菜单项。 菜单控件数组中的每个元素都由唯一的索引值来标识，索引值由Index属性确定。 Index属性值可以从菜单编辑器的“索引”文本框来指定。 当菜单控件数组的某个元素识别Click事件时，系统将其索引值作为参数传递给Click事件过程。 Click事件过程根据传进来的索引值判断出选中的是哪一个菜单项。 注意：菜单控
14、件数组中的各个元素在菜单项显示区中必须是连续的，而且必须是在同一缩进级上。若含有分隔条，则它也要作为数组元素包含到菜单控件数组中。,Private Sub js_Click(Index As Integer) Select Case Index Case 1 Label1.Caption = js(Index).Caption Text3.Text = Val(Text1.Text) + Val(Text2.Text) Case 2 Label1.Caption = js(Index).Caption Text3.Text = Val(Text1.Text) - Val(Text2.Text)
15、 Case 3 Label1.Caption = js(Index).Caption Text3.Text = Val(Text1.Text) * Val(Text2.Text) Case 4 Label1.Caption = js(Index).Caption Text3.Text = Val(Text1.Text) / Val(Text2.Text) End Select End Sub,10.2 创建工具栏,10.2.1 ImageList控件 10.2.2 ToolBar控件,返回目录,10.2.1 ImageList控件,要在窗口中加入工具栏，需要用到ToolBar控件和ImageL
16、ist控件。通常情况下，这两个控件并没有显示在工具箱中，需要用户手动将它们添加到工具箱中。方法如下： （1）从“工程”菜单中选取“部件”命令，打开“部件”对话框。 （2）在“部件”对话框的“控件”选项卡中，选中“Microsoft Windows Common Controls 6.0”，使它前面的复选框中出现“”，如图10-2-1所示。 （3）单击“确定”按钮，此时一些常用控件就被加入到工具箱中，其中包括ToolBar控件和ImageList控件。,10.2.1 ImageList控件,ImageList控件用于存放需要在工具栏上显示的按钮图片。使用方法： （1）在窗体中添加一个ImageList控件。其大小固定，运行时不可见。 （2）右击ImageList控件，选择“属性”，打开“属性页”对话框。 （3）选择“图像”选项卡，单击“插入图片”按钮，逐个向ImageList控件中加入图片；如果需要删除多余的图片，选中后点击“删除图片”按钮。,10.2.2 ToolBar控件,使用ToolBar控件具体创建一个工具栏。首
