VB教案(2-4)

Visual Basic 教案
（2-4）
第4节多文档界面
⏹多文档界面
⏹错误处理
⏹应用举例
⏹上机练习
多文档界面
⏹MDI概述
⏹建立MDI的过程
⏹与MDI相关的属性、事件
MDI概述
⏹MDI是指在一个应用程序中打开多个相互独立的文档子窗口。

⏹VB中的3类窗体：
⏹MDI父窗体
⏹MDI子窗体
⏹标准窗体（可与MDI子窗体互相转换）
建立MDI的过程
(1)添加MDI窗体作为主窗体
工程菜单->添加MDI窗体
(2)将MDI窗体设为启动
工程菜单->工程属性->启动对象-> MDI窗体注意:一个工程只能有一个MDI窗体
(3)MDI子窗体
⏹MDI的子窗体就是标准窗体。

只要将标准窗体MDIChild=true即可
⏹MDI子窗体的载入(设form2是MDI子窗体) DIM NewFrm As New form2 NewFrm.Show‘载入并显示一个子窗体
‘可以反复载入多个独立的子窗体
与MDI相关的属性、事件
⏹MDIChild属性：是否为MDI子窗体。

⏹注意：不能在运行时修改！
⏹Arrange方法：子窗体的排列。

⏹Arrange 0 -层叠
⏹Arrange 1 -水平平铺
⏹Arrange 2 -垂直平铺
⏹Arrange 3 -最小化时，重新排列图标
与MDI相关的属性、事件
⏹MDI的菜单只出现在父窗体上；
⏹子窗体的菜单替代在父窗体上菜单；
⏹在顶行菜单中选中WindowList,可以自动在菜单中显示MDI子窗体
错误处理专题
⏹错误处理的步骤⏹错误处理方式⏹VB的ERR对象⏹应用举例
1.错误处理的步骤
（1）设置陷阱，准备捕捉错误；（2）编写错误处理程序；
（3）退出错误处理程序。

2.错误处理的方式
(1)用On Error Goto 语句捕捉错误：
示例代码
注：一般放在过程的开始！
2.错误处理的方式
(2)用Resume 语句继续程序运行：
⏹Resume : 返回错误语句重新执行，⏹Resume Next: 执行错误语句的下
一语句，
⏹Resume 行号: 转向特定的程序段
示例代码
3.VB的Err对象
⏹Number属性: 返回错误编号
⏹Description属性: 返回错误描述⏹Source属性: 返回错误来源
⏹示例代码
3. 应用举例
记事本的文件操作加入容错功能。

On Error Goto示例Private Sub ……
On Error Goto 行号‘指向行号……
Exit Sub
行号:‘行号
……‘错误处理程序
End Sub
Resume示例
Private Sub ……
On Error Goto 行号‘指向行号……
Exit Sub
行号‘行号
……‘错误处理程序Resume (Next)‘返回End Sub
Err对象示例
Dim str As String
On Error GoTo 10
str = Text1.Text
Open "d:\c.txt" For Input As #1 Input #1, str
Close #1
Exit Sub
10: MsgBox Err.Number
MsgBox Err.Description
MsgBox Err.Source
End Sub
3. 应用举例
MDI记事本功能。

4. 上机练习
完成MDI记事本功能
完。