新Visual Basic程序设计案例教程 湖南省教育科学“十一五”规划重点项目 教学课件 李勇帆 第17讲.pptVIP

Visual Basic 程序设计 第十七讲 2课时 教学目标及基本要求 了解多文档界面MDI的特性及应用 掌握工具栏和状态栏的创建及应用 使用画点的Pset方法、画直线和矩形的Line方法、画圆和椭圆的Circle方法绘制图形 教学重点 多文档界面MDI的创建及应用 工具栏的创建及应用 状态栏的创建及应用 图形设计的基础知识 教学难点 工具栏、状态栏及图形的设计； 教学内容 多文档界面的特性 创建和设计多文档界面 使用MDI窗体与子窗体 MDI应用程序中的菜单 多文档界面应用程序中的子窗体排列 工具栏设计 状态栏设计 图形设计中的坐标系统 图形设计中颜色的设置 图形处理 多文档界面设计 多文档界面的特性 设计阶段多文档界面的特性 运行期间MDI窗体的特性 多文档界面设计 创建和设计多文档界面 创建和设计MDI窗体 (1) 添加MDI窗体：执行“工程”菜单中的“添加MDI窗体”命令，会弹出“添加MDI窗体”对话框，选择“新建MDI窗体”或“现存”的MDI窗体，其名称为默认值MidiForm1。 (2) 设计MDI窗体：在MDI窗体上，可以创建菜单栏、工具栏和状态。 多文档界面设计 创建和设计多文档界面 创建和设计MDI子窗体 创建MDI子窗体：MDI子窗体是一个MDIChild属性为True的普通窗体。因此，要创建一个MDI子窗体，应先创建一个新的普通窗体，然后将它的MDIChild属性置为True。如果要创建多个子窗体，只须重复前面操作。在工程管理器窗口中可以看到MDI子窗体的图标与普通窗体的图标的不同。 设计MDI子窗体：MDI子窗体运行时包含在MDI窗体中，但界面设计与MDI窗体无关。通常，MDI子窗体主要用于显示应用程序的文档，因此，在该窗体上应有文本框或者有供用户输入和显示的文档（如RichTextBox），也可有子窗体菜单。 多文档界面设计 使用MDI窗体与子窗体 设置活动子窗体和活动控件 在NewClient子过程中的语句 MDIForm1.ActiveForm.Text1.Text =name + vbCrLf 即表示为MDIForm1父窗体中最后一个获得焦点的子窗体的文本框设置Text属性值。 同样，当在一个窗体上显示的控件不止一个时，可以通过ActiveControl属性得到或指定哪一个控件为得到焦点的控件。当访问ActiveForm属性时，至少应有一个MDI子窗口被加载或可见，否则会返回一个错误。 多文档界面设计 使用MDI窗体与子窗体 保存子窗体中文档的内容 在决定退出MDI应用程序时，必须保存文档内容。因而必须时刻记录自上次保存以来窗体中的数据是否有改变。此功能可通过在子窗体中声明一个公共变量来实现，例如： Public FLChange AS Boolean 这样窗体中的RichTextBox1控件的Text属性每一次改变时，Change事件就会将FLChange设置为Ture，表示自上次保存以来RichTextBox1的内容已经改变，即 Private Sub RichTextBox1_Change() FLChange=True End Sub 多文档界面设计 相反，用户每次保存子窗体的内容时，就必须将FLChange 设置为False，以指示RichTextBox1内容不再须要保存。 Sub Msave_Click() FileSaveProc 调用保存RichTextBox1内容到文件 FLChange=False 设置状态变量 End Sub Public Sub FileSaveProc() MDIForm1.ActiveForm.RichTextBox1.SaveFile D:\TSGL\TT.txt, rtfText 将控件中的文档保存在D盘的TSGL子目录的TT.txt文件中 End Sub 多文档界面设计 同样，当关闭当前活动子窗体时，应该判断FLChange的状态，来决定是否存盘 Private Sub MClose_Click() if FLChange Then FileSaveProc End Sub 多文档界面设计 使用MDI窗体与子窗体 用QueryUnload卸载MDI窗体 为了避免随着父窗体的关闭而使所有的子窗体结束，造成子窗体内容的丢失，VB提供了QueryUnload事件。当MDI窗体被卸载时，QueryUnload事件首先为MDI窗体调用，然后再为每一个打开的子窗体调用。由于Qu