《Visual Basic教程 教学课件 ppt 作者 陈明 第10章》由会员分享，可在线阅读，更多相关《Visual Basic教程 教学课件 ppt 作者 陈明 第10章（31页珍藏版）》请在金锄头文库上搜索。
1、第10章 界面设计,10.1 认识菜单 10.2 菜单编辑器 10.3 菜单的高级应用 10.4 弹出菜单和分隔条的设计 10.5 工具栏的设计,10.1 认识菜单,图10-1 菜单部件及名称,返回目录, 菜单条：出现在窗体标题栏的下面，包含每个菜单的标题。 菜单：包含命令列表或子菜单名。 菜单项：菜单中列出的每一项，类似命令。 子菜单：从某个菜单项分支出来的另外一个菜单。有子菜单的菜单项右边带有一个三角符号。 分隔条：分隔条是在菜单项之间的一条水平直线，用于修饰菜单，它也看作是一个菜单项。 弹出式菜单：弹出式菜单是另一种形式菜单，通常在单击鼠标右键时出现，是一个上下文相关的菜单。,10.2
2、菜单编辑器 10.2.1 启动菜单编辑器 先选中一个窗体，然后启动菜单编辑器，启动的方法有三种： （1）使用菜单“工具”/“菜单编辑器”。 （2）使用工具栏按钮工具栏快捷键 。 （3）键盘快捷键：Ctrl+E。,返回目录,“标题”项：在提供的文本输入框中可以输入菜单名或命令名，这些名字出现在菜单条或菜单之中。 “名称”项：在文本输入框中可以为菜单项输入控件名。 “索引”项：当几个菜单项使用相同的名称时，把它们组成控件数组。 “快捷键”项：允许为每个菜单项选择快捷键。 “帮助上下文 ID”项：在制作帮助菜单时，允许为 context ID 指定唯一数值。 “协调位置”项：允许选择菜单的 Nego
3、tiatePosition 属性。 “复选”项：允许在菜单项的左边设置复选标记。, “有效”项：决定菜单的有效状态，由此选项可决定是否让菜单项对事件做出响应，而如果希望该项失效并模糊显示出来，则也可清除事件。 “可见”项：决定菜单的可见状态，即是否将菜单项显示在菜单上。 “显示窗口列表”项：决定在使用多文档应用程序时，是否显示一个包含多文档文件子窗口的列表框。, 按钮：将选定移动到下一行。将光标移动到下一个菜单项。 按钮：在列表框的当前选定行上方插入一行。在当前位置插入一个菜单项。 按钮：删除当前选定行。删除菜单项。 “菜单列表”该列表框显示菜单项的分级列表。将子菜单项缩进以指出它们的分级位置
4、或等级。, “右箭头”：每次单击都把选定的菜单向右移一个等级。一共可以创建四个子菜单等级。 “左箭头”：每次单击都把选定的菜单向上移一个等级。一共可以创建四个子菜单等级。 “上箭头”：每次单击都把选定的菜单项在同级菜单内向上移动一个位置。 “下箭头”：每次单击都把选定的菜单项在同级菜单内向下移动一个位置。, “确定”：关闭菜单编辑器，并对选定的最后一个窗体进行修改。 “取消”：关闭菜单编辑器，取消所有修改。,10.2.2 编辑菜单 编辑菜单的步骤如下： （1）新建一个标准EXE工程，默认的窗体是Form1。 （2）单击菜单“工具”/“菜单编辑器”打开“菜单编辑器”。 （3）在“标题”框中输入“
5、文件”，“名称”框中输入“文件(&F)”(按Alt 和 F 键可访问该菜单)，单击 ，输入其他菜单项的标题和名称。 （4）使用“箭头”按钮调整各菜单的级别，从“菜单列表”中可以清楚地看到菜单共有几级，各级分别有哪些子项。,10.3 菜单的高级应用 10.3.1 菜单的有效属性 在下面的程序中将关闭“关闭”菜单项(“关闭”菜单项只在文件打开时才能使用)，将在后面的“新建”、“打开”菜单项的事件过程中的合适位置填加一条语句，使“关闭” 菜单项有效。,返回目录,（1）打开菜单编辑器，单击菜单列表中的“关闭”菜单项，该菜单项的所有属性显示在对话框中。 （2）单击“有效”复选框除去对它的选择，即它前面的
6、“”号被去掉。 （3）单击“确定”按钮关闭菜单编辑器。 （4）修改程序代码。 （5）保存文件，运行程序。,10.3.2 菜单的可见属性 在“文件”菜单中添加一个菜单项，每单击一次该菜单项，“字体”的“可见”属性就改变一次。下面是修改的步骤： （1）打开菜单编辑器，在菜单列表中选择“退出”菜单项，单击 按钮，在“退出”菜单项之前插入一个菜单项。 （2）设置该菜单项的标题为“字体不可见”，名称为“mnuFontVisible”，“有效”、“可见”属性都被选中。,（3）在“退出”之前再插入一分隔条，标题为“-”，名称为“mnuLine1”，“有效”、“可见”属性都被选中。 （4）单击“确定”按钮，退
7、出菜单编辑器。,（5）单击菜单“文件”/“字体不可见”，弹出代码编辑窗口，在mnuFontVisible_Click 事件中添加下面的代码： Private Sub mnuFontVisible_Click() mnuFont.Visible = Not mnuFont.Visible If mnuFont.Visible Then mnuFontVisible.Caption = “字体不可见“ Else mnuFontVisible.Caption = “字体可见“ End If End Sub （6）保存文件，运行程序。,10.3.3 创建菜单控件数组 菜单控件数组使用于： 在运行时要创
8、建一个新菜单项，它必须是菜单控件数组中的成员。 简化代码，对菜单控件数组中任意元素的事件触发都会共用一段代码。 其他控件也可以用这种方法创建控件数组。使用菜单数组和控件数组有以下优点： 可以用For 循环方便地访问每一个对象。 它们拥有各自的属性，却共享同一个事件。,10.3.4 菜单的复选(Checked)属性 在VB中可以用 Checked 属性来创建复选标志。通过选取被标记为 Checked 的复选框来设置菜单编辑器中的 Checked 属性的初始值。 复选属性既可以在设计中设置，也可以在运行中设置，在本章的示例中给菜单控件数组加入复选属性。,10.3.5 动态菜单 此文件菜单是一个典型
9、的动态菜单，菜单中列出了最近使用过的文件名，这部分内容是随着应用程序的运行而不断改变着的。 （1）打开工程文件MyMenu.vbp，选择窗体。 （2）打开菜单编辑器。 （3）在“字体不可见”的后面插入一个菜单项，菜单项的标题为“-”，名称为“mnuRecentFile”，“可见”属性的值为False，“索引”值为0。 （4）添加代码。 （5）保存文件，运行程序。,10.4 弹出菜单和分隔条的设计,1界面设计 首先启动一个新的项目，在屏幕上就会弹出一个如图10-18所示的弹出菜单设计窗口。,图10-18 弹出菜单的设计窗口,返回目录,2添加代码 双击窗体，在代码编辑窗口中找到窗体的Form_Mo
10、useDown()，并且在其中添加代码： Private Sub Form_MouseDown(Button As Integer，Shift As Integer，X As Single，Y As Single) 在窗体上按下鼠标 If Button = 2 Then 如果是右键 PopupMenu PopMenu 弹出菜单 End If End Sub,3运行程序,存储文件，运行程序。在屏幕上就会出现一个空白的窗体，在窗体上单击右键，就会弹出一个菜单，如图10-19所示。,图10-19 带分隔条的弹出菜单,10.5 工具栏的设计 10.5.1 利用应用程序向导创建工具栏,（1）在“新建工程
11、”对话框中选中“VB应用程序向导”后，单击“打开”命令按钮确认，如图10-20所示。,图10-20 选中“VB应用程序向导”,返回目录,（2）按向导导航单击“下一步”按钮，进入“界面类型”对话框，选中“多文档界面”，为工程取名为“MyApplication”，单击“下一步”确认。如图10-21所示。,图10-21 “界面类型”对话框,（3）如图10-22所示：进入“菜单”对话框，可以进行菜单设计，设计完成后，单击“下一步”按钮确认，进入“自定义工具栏”对话框。如图10-23所示。,图10-22 菜单对话框,图10-23 “自定义工具栏”对话框,（4）在“自定义工具栏”对话框中可以自行设计工具栏
12、，设计完成后，单击“完成”确认。,10.5.2 使用ToolBar控件创建工具栏,（1）首先从“部件”对话框中选中Microsoft Windows Common Controls6.0，确认后把ToolBar控件添加到工具箱中，它在工具箱中的图标是。 （2）如图10-25所示，将ToolBar控件添加到窗体上。,图10-25 添加ToolBar对象,（3）右键单击窗体上的ToolBar对象，在弹出的快捷菜单上单击“属性”选项，打开“属性页”对话框，选择“按钮”标签，单击“插入按钮”按钮，插入5个工具按钮，索引分别为1，2，3，4，5，如图10-26所示。,图10-26 ToolBar对象的属
13、性页,（4）在属性页上设置工具按钮的属性，各工具按钮的设计属性值如表10-5所示。,表10-5 工具按钮的设计属性,（5）左键双击工具栏对象，编写Click事件响应代码： Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button) Select Case Button.Index Case 1 mnuNew_Click Case 2 mnuOpen_Click Case 4 mnuBold_Click Case 5 mnuItalic_Click End Select End Sub,（6）保存工程后，运行程序，单击工具按钮执行相应的菜单项功能，如图10-28所示。,图10-28 使用工具栏按钮,
