第九章菜单多重窗体多重文档

第九章菜单多重窗体多重文档第1页，课件共16页，创作于2023年2月菜单的设计多重窗体的设计多重文档界面的设计本章主要内容第2页，课件共16页，创作于2023年2月9.1VB菜单设计VB中常用的菜单有：下拉式菜单弹出式菜单。第3页，课件共16页，创作于2023年2月下拉式菜单设计VB中设计下拉式菜单时，主要设计两个部分：菜单栏，即主菜单，它包含多个菜单项。设计各级子菜单，子菜单可以是可执行的菜单命令，或弹出下级子菜单，或是分隔条。VB“菜单编辑器”窗口一般分为三个部分：属性区编辑区显示区第4页，课件共16页，创作于2023年2月菜单主要属性属性名属性值说明标题(Caption)字符型菜单项显示字符串名称(Name)字符型菜单控件名称索引整型指定菜单控件数组序号快捷键字符型指定菜单命令的快捷键复选逻辑型是否允许菜单项设置复选框有效逻辑型指定菜单项是否可操作可见逻辑型是否将菜单项显示在菜单上显示窗口列表逻辑型在MDI中指定是否有子窗体列表第5页，课件共16页，创作于2023年2月分隔线：在标题栏中填入“-”，则在菜单中显示一条分隔线。键盘选择：在菜单项标题某字母前加“&”字符，可使该字符成为访问键（按Alt+该字符，可以选择相应的菜单项）。第6页，课件共16页，创作于2023年2月例9-1PrivateSubAdd_Click()Label1.Caption="+"Label2.Caption="="&(Val(Text1.Text)+Val(Text2.Text))EndSubPrivateSubSub_Click()Label1.Caption="-"Label2.Caption="="&(Val(Text1.Text)-Val(Text2.Text))EndSubPrivateSubExit_Click()EndEndSub第7页，课件共16页，创作于2023年2月菜单的增减Load菜单项控件数组(Index):从菜单控件数组中添加一个新的菜单项。UnLoad菜单项控件数组(Index):从菜单控件数组中删除一个菜单项。 参见例9-2第8页，课件共16页，创作于2023年2月弹出式菜单弹出式菜单：是一种独立于菜单栏而显示在窗体上的浮动菜单。创建弹出式菜单：与下拉式菜单方法一样，只是一般将其最高一级的“可见”设置为False。弹出式菜单的一般调用： <Object>.PopupMenu<菜单名>

参见例9-3第9页，课件共16页，创作于2023年2月9.2多重窗体VB中允许应用程序有多个窗体，每个窗体有自己的代码和不同的操作，从而实现复杂的功能。有关语句：Load<窗体名>:将窗体载入内存，但并不显示。UnLoad<窗体名>:将窗体从内存中消除。<窗体名>.Show[模式]:显示窗体，模式取0（非模态）或1（模态），默认模式为0。<窗体名>.Hide:隐藏窗体（并不从内存中消除）。第10页，课件共16页，创作于2023年2月多重窗体设计多重窗体设计与单重窗体设计一致，大致可分为三步：建立界面编写代码运行程序参见例9-4指定启动窗体：在“工程/工程属性/通用”中可以根据需要指定应用程序的启动窗体。第11页，课件共16页，创作于2023年2月9.4多重文档界面多重文档界面（MDI）：在一个窗体中包含多个子窗体，可以同时显示多个文档，每个文档都有自己的显示窗体。MDI具有以下特点：所有子窗体均显示在MDI中，且可以移动、改变大小，但不能起越MDI边界。子窗体被最小化时，图标显示在MDI内，而非Windows的任务栏上。子窗体最大化时，子窗体的标题栏与MDI的标题栏组合在一起，显示在MDI的标题栏上。活动子窗体的菜单显示在MDI上，而非子窗体上。第12页，课件共16页，创作于2023年2月9.3模块VB中主要有三种模块：标准模块：由全局变量声明、模块层声明及通用过程等组成，所以也叫全局模块或总模块。窗体模块：每个窗体都有一个对应的窗体模块，通常包括声明、通用过程及事件过程三部分。SubMain过程：通常设置为启动对象，主要用于应用程序的初始化工作；该过程必须建立在标准模块中，一个程序中可以有多个标准模块，但最多只能有一个SubMain模块。第13页，课件共16页，创作于2023年2月与MDI有关的常用属性、事件和方法属性MdiChild:该窗体作为MDI的子窗体。方法Dim<对象名>As[New]<对象名><对象类型>:增加MDI子窗体。其中<对象名>为已存在的对象。其中<对象类型>为以前未指定的新对象。事件QueryUnload:当关闭MDI时，MDI父窗体首先触发该事件，然后所有子窗体触发该事件。该事件用于在关闭程序前提出询问，以防止窗体中还有未完成任务被意外中止。第14页，课件共16页，创作于2023年2月建立MDI应用程序的一般步骤 创建MDI窗体创建子窗体：即创建普通窗体，并将其MDIChild属性设置为True。创建