第8章 菜单与工具栏设计VB

Click to edit Master text styles,Second level,Third level,Fourth level,Fifth level,*,Click to edit Master title style,菜单与工具栏设计,主讲,:,李晓岚,8.1 菜单设计,什么是菜单？,菜单的功能？,人机对话界面，方便使用者选择应用系统的各种功能,通过菜单可以管理应用系统，控制应用程序各种功能模块的运行,菜单的类型,下拉式,弹出式,属性,定义其外观和操作,Caption、Enable、Visible、Checked,事件,Click,事件,菜单是控件,使用菜单编辑器设计菜单,菜单编辑器,数据区,编辑区,显示区,属 性,说,明,标题,Caption,该内容显示在菜单条或菜单之中,名称,Name,菜单项的标识符，仅用于访问代码中的菜单项,索引,Index,设置菜单控件数组的下标,快捷键,允许为每个命令选定快捷键，即通过键盘来选择某个菜单项,复选,Checked,当,复选,属性设置为,True,时，在相应的菜单项旁加上,以表明该菜单项处于活动状态,有效,Enable,当该属性设置为,False,时，相应的菜单项呈灰色，表明不会相应用户事件,可见,Visible,不可见的菜单项时不能被执行的,协调位置,决定是否及如何在容器窗体中显示菜单,显示窗口列表,在,多文档应用,程序中使用,1 数据区,用来输入或修改菜单项，设置属性。,2.编辑区,编辑区由 7 个按钮组成,右箭头,把选定的菜单向右移一个等级。,左箭头,把选定的菜单向上移一个等级。,上箭头,把选定的菜单项在同级菜单内向上移动一个位置。,下箭头,把选定的菜单项在同级菜单内向下移动一个位置。,下一个,将开始一个新的菜单项。,插入,将在某个菜单项前插入一个新的同级空白菜单项。,删除,将删除选定的菜单项。,3.菜单项显示区,菜单编辑器相关说明,菜单项包括4个方面的信息,菜单标题、菜单命令、分隔线和子菜单,内缩符号用于表示菜单项所在层次，最多可以有5个内缩符号,分隔线,在“标题”栏中输入“-”,菜单中除了分隔线外，每个菜单项都可以接收,Click,事件,在输入菜单项标题时，加上,&字母,，则可以通过,Alt+,字母,执行相应菜单命令,应用菜单进行程序设计，主要经历三个步骤，分别是：,（1）界面设计,主要任务是在窗体设计器中创建控件，设置控件的相应属性。,（2）菜单设计,利用菜单编辑器创建菜单界面。,（3）代码设计,为窗体中的控件编写事件过程，为子菜单项编写单击事件过程,8.1.4 菜单控件数组,菜单控件数组的作用,简化编程过程，用一段代码处理多个菜单项,动态增加或删除菜单项,一段代码处理多个菜单项,Private Sub,file,_Click(,Index,As Integer),Select Case Index,Case 0,Text1.Text = new,Case 1,Text1.Text = open,End Select,End Sub,动态增删菜单项,在主菜单下插入一个子菜单,caption:,清单,name: list,index: 0,visible: False,代码部分,增加菜单项:,load,list(1),List(1).visible = true,List(1).caption = “,添加一个菜单项”,删除菜单项:,unload,list(1),8.1.6 弹出菜单,弹出菜单是独立于菜单栏的浮动菜单，其在窗体上的显示位置由单击鼠标时指针的位置决定。,在,VB,中，使用,PopupMenu,方法来显示弹出菜单。,PopupMenu,方法的语法为：,对象,.,PopupMenu,菜单名，标志，,x,，,y,表,9-8,用于“标志,”,的设置值,常数位置,值,描述,vbPopupMenuLeftAlign,0,缺省值。弹出式菜单的左边定位于,x,。,vbPopupMenuCenterAlign,4,弹出式菜单以,x,为居中心。,vbPopupMenuRightAlign,8,弹出式菜单的右边定位于,x,。,常数行为,值,描述,vbPopupMenuLeftButton,0,缺省值。,仅当使用鼠标左按钮时，,弹出式菜单中的项目才响应鼠标单击。,vbPopupMenuRightButton,2,不论使用鼠标右按钮还是左按钮，,弹出式菜单中的项目都响应鼠标单击。,【例8-3】在例8-1中实现弹出式菜单，在文本显示区域单击右键可以设置字体格式。,编辑标签的,MouseDown,事件过程,Private Sub output_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single),If Button = 2 Then,PopupMenu popformatEnd If,End Sub,为每个子菜单项编写事件过程代码。,Private Sub popBold_Click(),output.FontBold = True,End Sub,Private Sub popItalic_Click(),output.FontItalic = True,End Sub,Private Sub popUndrli_Click(),output.FontUnderline = True,End Sub,Private Sub font20pt_Click(),output.FontSize = 20,End Sub,Private Sub fontLs_Click(),output.FontName = ,隶书,End Sub,Private Sub Qit_Click(),End,End Sub,9-1 建立弹出菜单，应使用的方法是(【9】)。,【9】,A) MenuTo,B) SetMenuTo,C) PopupMenu,D) PopMenu,9-2,在菜单设计窗口，如果希望菜单项的某一字母为热键，则可在该字母前加的符号是(【9】)。,【9】,A) ,B) #,C) ,D) &,9-5 菜单控件中不包含(【9】)属性。,【9】,A) caption,B) checked,C) visible,D) Value,9-6 Visual Basic 6.0,可以建立下拉式菜单，最多可达(【9】)层。,【9】,A) 3,B) 4,C) 5,D) 6,10-1 以下叙述中错误的是(【10】)。,【10】,A),在同一窗体的菜单项中，不允许出现标题相同的菜单项,B),在菜单的标题栏中，“&”所引导的字母表示该字母为热键,C),菜单的,Visible,属性可以在程序运行过程中重新设置,D),弹出式菜单也在菜单编辑器中定义,10-2 一个菜单项是不是一个分隔条，是由(【10】)属性决定的。,【10】,A),名称,B),标题,C),有效,D),可见,