第8章 多重窗体与环境应用

计算机二级VB教案

第8章 多重窗体与环境应用 章8.1 8.2 8.3 8.4 建立多重窗体应用程序 多重窗体应用程序的执行与保存 VB工程结构 VB工程结构 闲置循环与Do Events语句 闲置循环与Do Events语句

计算机二级VB教案

8.1 建立多重窗体应用程序建立多重窗体应用程序,首先应该在工程中添加多个与用户 交互的窗体;然后再设计这多个窗体之间的调用关系,以及窗体 的加载,卸载,删除等操作;还包括各个窗体自身的功能实现.

8.1.1多重窗体的添加 多重窗体的添加添加窗体的方法有四种: 添加窗体的方法有四种: (1)单击"工程"菜单中的"添加窗体"命令,如图8-1. (2)直接点击工具栏的"添加窗体"按钮. (3)单击工具栏的"添加窗体"按钮旁边的下拉菜单箭头, 在出现的菜单中选择"添加窗体",如图8-2.

图8-1 通过菜单添加窗体

图8-2 通过工具栏添加窗体

计算机二级VB教案

(4)工程资源管理器中,单击鼠标右键弹出快捷菜单,选择 添加子菜单的"添加窗体"项,如图8-3所示.

图8-3 通过工程资源管理器添加窗体

任选这四种方法当中的一种操作,在出现的"添加窗 体"对话框中,选择"新建"选项卡中的"窗体",单击 "打开"按钮可以新建一个窗体,或者选择"现存"选项 卡浏览并加载其它已经存在的窗体,如图8-4.

计算机二级VB教案

图8-4 添加窗体

注意: 注意: (1)如果选择添加"现存"窗体,当出现多个窗体的名称相同 而提示不能加载时,可以改变窗体的名称再添加. (2)添加"现存"窗体实际是在工程中包含对该文件的引用, 多个工程共享窗体,对该窗体的修改将导致其它工程中该窗体的 变化,可以通过窗体"另存为"命令以不同的文件名保存该窗体 文件以取消共享.

计算机二级VB教案

8.1.2 多重窗体的设计1. 引例 学籍管理系统. 系统启动,显示登录窗体如图8-5 ,输入用户名和口令点击"确定 "按钮,如果用户名和口令均正确,将显示如图8-6的学籍管理系 统主窗体,同时卸载登录窗体.

图8-5 登录窗体

图8-6 学籍管理系统主窗体

计算机二级VB教案

在主窗体中,选择点击修改密码菜单项,将弹出修改密 码窗体,如图8-7.

图8-7 修改密码窗体

一般说来,多重窗体的设计可以按照以下步骤进行: (1)分析应用程序要求,划分功能模块. (2)分别创建各模块及其包含的各个窗体. (3)建立窗体之间的调用关系. (4)点击[工程]/[属性]菜单,在[启动对象]中选择系统运行时首 先执行的对象. (5)运行应用程序.

计算机二级VB教案

多窗体设计常用方法: Load <窗体名称 窗体名称> 窗体名称 装入窗体到内存.但并不显示该窗体. Unload <窗体名称 窗体名称> 窗体名称 从内存中卸载窗体.只移走窗体的可视部分,而不包 括窗体的命令和程序,和该窗体模块相关联的代码还保持 在内存中. [窗体名称 窗体名称].Show [模式 模式] 窗体名称 模式 显示一个窗体.如果指定的窗体在此之前已由Load装 载,则

显示之;如果调用Show方法时指定的窗体没有装载, VB将自动装载并显示该窗体. 模式可取值0(默认值)或1.当模式为0即显示无模式 窗体时,随后遇到的代码要执行,比如可以显示其它的窗 体.当模式为1即显示模式窗体时,则随后的代码直到该窗 体被隐藏或卸载时才能执行. [窗体名称 窗体名称].Hide 窗体名称 隐藏窗体,但并没有删除.

计算机二级VB教案

续前引例,在登录窗体输入用户名和口令,单击"确定"按钮的 代码Private Sub CmdOk_Click()… '声明变量 … '校验用户名和口令 If 用户名或密码错误 Then MsgBox "无此用户或密码错误,请重新输入!", vbCritical, "错误" Else FrmMain.Show '载入主窗体 Unload Me '从内存删除登录窗体 End If End Sub

在学籍管理系统主窗体单击修改密码菜单项的代码:Private Sub mnuChangePsw_Click() '单击修改密码菜单项 frmChangePsw.Show '显示修改密码窗体 End Sub

在修改密码窗体单击"取消"按钮的代码:Private Sub CmdCancel_Click() Unload Me '从内存删除修改密码窗体 End Sub

计算机二级VB教案

8.1.3 多文档界面指在一个父窗体下面可以同时打开多个子窗体,同时显示多个文 档. 1. 创建和设计 创建和设计MDI窗体及其子窗体 窗体及其子窗体 新建一个VB工程,选择"工程"菜单的"添加MDI窗体"子菜单, 在"添加MDI窗体"对话框中选择新建"MDI窗体"图标,单击 "打开"按钮在工程中添加一个MDI窗体,如图8-8.

图8-8 添加MDI窗体

MDI窗体的子窗体就是一般的标准窗体,但是必须把MDIChild 属性置为True.

计算机二级VB教案

2. MDI窗体与子窗体的交互 窗体与子窗体的交互 MDI窗体的两个属性:ActiveForm和ActiveControl. MDI应用程序运行时,任何时候只有一个子窗体是激活的,这个 子窗体具有输入焦点. ActiveForm返回活动窗体. 例如:Unload ActiveForm语句指关闭当前活动子窗体. ActiveControl返回拥有焦点的控件. 例如:ActiveForm.ActiveControl.SelText引用MDI子窗体的活动控 件中的文本. QueryUnload事件卸载MDI窗体. QueryUnload事件是在任一个卸载之前在所有窗体中发生,它提 供了停止窗体卸载的机会,在关闭一个应用程序之前确保包含在 该应用程序中的窗 …… 此处隐藏：2026字，全部文档内容请下载后查看。喜欢就下载吧 ……