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

菜单与工具栏设计,主讲:李晓岚,8.1菜单设计,什么是菜单？菜单的功能？人机对话界面，方便使用者选择应用系统的各种功能通过菜单可以管理应用系统，控制应用程序各种功能模块的运行菜单的类型下拉式弹出式,属性定义其外观和操作Caption、Enable、Visible、Checked事件Click事件,菜单是控件,使用菜单编辑器设计菜单,菜单编辑器,数据区,编辑区,显示区,1数据区,用来输入或修改菜单项，设置属性。,2.编辑区,编辑区由7个按钮组成右箭头把选定的菜单向右移一个等级。左箭头把选定的菜单向上移一个等级。上箭头把选定的菜单项在同级菜单内向上移动一个位置。下箭头把选定的菜单项在同级菜单内向下移动一个位置。下一个将开始一个新的菜单项。插入将在某个菜单项前插入一个新的同级空白菜单项。删除将删除选定的菜单项。,3.菜单项显示区,菜单编辑器相关说明,菜单项包括4个方面的信息菜单标题、菜单命令、分隔线和子菜单内缩符号用于表示菜单项所在层次，最多可以有5个内缩符号分隔线在“标题”栏中输入“-”菜单中除了分隔线外，每个菜单项都可以接收Click事件在输入菜单项标题时，加上&字母，则可以通过Alt+字母执行相应菜单命令,应用菜单进行程序设计，主要经历三个步骤，分别是：（1）界面设计主要任务是在窗体设计器中创建控件，设置控件的相应属性。（2）菜单设计利用菜单编辑器创建菜单界面。（3）代码设计为窗体中的控件编写事件过程，为子菜单项编写单击事件过程,8.1.4菜单控件数组,菜单控件数组的作用简化编程过程，用一段代码处理多个菜单项动态增加或删除菜单项,一段代码处理多个菜单项,PrivateSubfile_Click(IndexAsInteger)SelectCaseIndexCase0Text1.Text=newCase1Text1.Text=openEndSelectEndSub,动态增删菜单项,在主菜单下插入一个子菜单caption:清单name:listindex:0visible:False,代码部分增加菜单项:loadlist(1)List(1).visible=trueList(1).caption=“添加一个菜单项”删除菜单项:unloadlist(1),8.1.6弹出菜单,弹出菜单是独立于菜单栏的浮动菜单，其在窗体上的显示位置由单击鼠标时指针的位置决定。,在VB中，使用PopupMenu方法来显示弹出菜单。PopupMenu方法的语法为：,对象.PopupMenu菜单名，标志，x，y,表9-8用于“标志”的设置值,【例8-3】在例8-1中实现弹出式菜单，在文本显示区域单击右键可以设置字体格式。编辑标签的MouseDown事件过程PrivateSuboutput_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)IfButton=2ThenPopupMenupopformatEndIfEndSub,为每个子菜单项编写事件过程代码。PrivateSubpopBold_Click()output.FontBold=TrueEndSubPrivateSubpopItalic_Click()output.FontItalic=TrueEndSubPrivateSubpopUndrli_Click()output.FontUnderline=TrueEndSubPrivateSubfont20pt_Click()output.FontSize=20EndSubPrivateSubfontLs_Click()output.FontName=隶书EndSubPrivateSubQit_Click()EndEndSub,9-1建立弹出菜单，应使用的方法是(【9】)。【9】A)MenuToB)SetMenuToC)PopupMenuD)PopMenu9-2在菜单设计窗口，如果希望菜单项的某一字母为热键，则可在该字母前加的符号是(【9】)。【9】A)B)#C)D)&,9-5菜单控件中不包含(【9】)属性。【9】A)captionB)checkedC)visibleD)Value9-6VisualBasic6.0可以建立下拉式菜单，最多可达(【9】)层。【9】A)3B)4C)5D)6,10-1以下叙述中错误的是(【10】)。【10】A)在同一窗体的菜单项中，不允许出现标题相同的菜单项B)在菜单的标题栏中，“&”所引导的字母表示该字母为热键