Visual Basic程序设计教程 邱李华 郭全 vb第09章

《Visual Basic程序设计教程 邱李华 郭全 vb第09章》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、第9章界面设计9.1菜单的设计9.2工具栏的设计9.3对话框的设计19.1菜单的设计菜单可以分成两种基本类型：下拉式菜单，通常通过单击菜单标题打开。弹出式菜单，通常通过在某对象上单击鼠标右键打开。29.1.1下拉式菜单1．下拉式菜单的结构（1）主菜单：包括若干个主菜单标题。放在主菜单栏中，一般用于对要执行的操作按功能进行分组。不同功能的操作划分在不同的主菜单标题下。每一个主菜单标题可以下拉出下一级菜单，称为子菜单。3（2）子菜单：菜单项可以直接执行——菜单命令菜单项再下拉出一级菜单——子菜单标题。分隔条——对子菜单项进行分组。子菜单可以逐级下拉，在

2、屏幕上依次打开，当执行了最底层的菜单命令之后，这些子菜单会自动从屏幕上消失。主菜单栏主菜单标题子菜单标题菜单命令分隔条子菜单子菜单42．下拉式菜单的设计可以把每个菜单项看成一个控件。和普通控件一样，每个菜单控件都有其属性、事件和方法。与其他控件不同的是，下拉式菜单的设计需要通过“菜单编辑器”来完成。首先选择要在其上设计菜单的窗体，然后打开菜单编辑器，在菜单编辑器中完成对整个菜单结构的设计。注意，菜单总是建立在窗体上的，所以，只有当某个窗体为当前活动窗体时，才能打开菜单编辑器。如果当前窗口为代码窗口，则不能打开菜单编辑器。5属性区编辑区菜单列表区（1

3、）属性区用于设置或修改菜单项的属性。标题：即菜单控件的Caption属性，用于输入要在菜单项中显示的文字，如“文件”、“编辑”、“查看”等。6可以在一个字母前插入&符号，给菜单项定义一个访问键。例如，定义某菜单标题为“文件(&F)”，则在菜单中显示为“文件(F)”，F即为访问键。名称：即菜单控件的Name属性。索引：即菜单控件的Index属性。可以将若干个菜单控件取成相同的名称，定义成一个控件数组。Index属性即菜单控件数组的下标。快捷键：即菜单控件的Shortcut属性，用于为当前的菜单项指定一个快捷键。快捷键从下拉列表中选择，如“Ctrl+A

4、”、“Ctrl+K”等。7复选：即菜单控件的Checked属性。该属性用来设置菜单项的左边是否带复选标记√。在菜单编辑器中选择该属性时，相应的菜单项的旁边会带有一个√符号，而在代码中通过设置菜单项的Checked属性值为True或False。有效：即菜单控件的Enabled属性。该属性用来决定是否让菜单项对事件做出响应。可见：即菜单控件的Visible属性。该属性用来决定菜单项是否显示。8（2）编辑区共有7个按钮，用于添加、删除菜单项，调整菜单项的位置及等级。“”按钮：单击该按钮把在菜单列表区中选定的菜单向下移一个等级，在菜单列表中显示一个内缩符

5、号（....）。“”按钮：单击该按钮把在菜单列表区中选定的菜单向上移一个等级。“”按钮：单击该按钮把在菜单列表区中选定的菜单项在同级菜单内向上移动一个位置。“”按钮：单击该按钮把在菜单列表区中选定的菜单项在同级菜单内向下移动一个位置。9“下一个”按钮：开始一个新的菜单项。“插入”按钮：在菜单列表区中的当前选定行上方插入一行，用于插入一个新菜单项。“删除”按钮：删除当前在菜单列表区中选定的行。（3）菜单列表区用于显示菜单项的分级列表。子菜单项以缩进方式显示它们的等级。在菜单编辑器中完成了各菜单项的设置之后，单击“确定”按钮关闭菜单编辑器，这时在

6、窗体的顶部就可以看到设计的菜单结构。注意，在设计时单击菜单项不是执行菜单项的功能，而是打开菜单项的Click事件过程代码窗口。10【例9-1】设计菜单界面，11在菜单编辑器中完成了各菜单项的设置之后，单击“确定”按钮关闭菜单编辑器。完成菜单设计。向窗体上添加一个文本框Text1，录入适当的文字。以下是“编辑”菜单下的各子菜单项的Click事件过程：PrivateSubtxtCopy_Click()'复制Clipboard.Clear'清除剪贴板Clipboard.SetTextText1.SelText'将文本框中选择的文本放到剪贴板中EndSub

7、12PrivateSubtxtCut_Click()'剪切Clipboard.Clear'清除剪贴板Clipboard.SetTextText1.SelText'将文本框中选择的文本放到剪贴板中'删除在文本框中选择的文本Text1.SelText=””EndSubPrivateSubtxtPaste_Click()'粘贴s=Clipboard.GetText'获取剪贴板的文本'将剪贴板的文本加到文本框的当前位置Text1.SelText=SEndSub13下面是“格式”菜单下的其他菜单项的Click事件过程：PrivateSubtxtleft_Cl

8、ick()'左对齐Text1.Alignment=0EndSubPrivateSubtxtCenter_Click()'居