Visual Basic程序设计 龚为琨 第9章 多窗体与多文档设计.pptVIP

第9章 多窗体与多文档设计 9.1 多窗体 9.2 多文档 9.3 小结 9.4 练习题 9.5 上机实习题 9.1 多 窗 体 9.1.1 多窗体应用举例 多窗体是指一个应用程序中有多个并行的普通窗体，每个窗体都可以有自己的界面和程序代码，完成各自不同的功能。有时，在一个程序中需要多个界面，如输入数据窗体、显示统计结果窗体等，这时就需要用到多窗体。 下面先来看一个多窗体的例子。 1) 创建窗体，添加控件 首先创建一个窗体，然后在窗体上添加控件并设置相应的属性。添加控件后的窗体如图9-1所示，控件的属性如表9-1所示。 其中，Command1、Command2的事件代码如下： Private Sub Command1_Click() a1 = Val(Text1.Text) a2 = Val(Text2.Text) a3 = Val(Text3.Text) a4 = Val(Text4.Text) Form1.Hide Form2.Show End Sub Private Sub Command2_Click() End End Sub 2) 添加窗体 通过菜单项“工程”→“添加窗体”命令或工具条上的添加窗体按钮来打开“添加窗体”对话框，选择“新建”选项卡新建一个窗体，系统就会自动向原有项目中添加一个窗体。 3) 添加控件 在新增加的窗体上放置一个CommandButton控件，将Caption属性设置为“继续”，它可以用来在卸载了新增窗体的同时显示原来的窗体。 添加控件后的新增窗体如图9-2所示。 Command1_Click()事件的代码如下： Private Sub Command1_Click() Unload Form2 Form1.Show Form1.Text1.Text = Form1.Text2.Text = Form1.Text3.Text = Form1.Text4.Text = End Sub 4) 添加说明模块 选择菜单项“工程”→“添加模块”，就会弹出如图9-3所示的对话框。 在模块的声明段中添加下列代码： 定义四个single型变量 Global a1 As Single Global a2 As Single Global a3 As Single Global a4 As Single 定义的四个全局变量分别用来存储四个季度的销售情况。 添加了模块和新窗体的工程资源窗口如图9-4所示。 5) 运行程序 将如下代码加入到窗体Form2的Form_load()事件中后，就可以运行程序了。 Private Sub Form_Load() Form2.AutoRedraw = True 自动重绘处于有效的状态 Form2.ForeColor = HFF0000 设置前景色 Line (100, 1500?a1)-(600, 1500), , BF Line (1000, 1500?a2)-(1500, 1500), , BF Line (1900, 1500?a3)-(2400, 1500), , BF Line (2800, 1500?a4)-(3300, 1500), , BF 绘制季度销售方框 End Sub 运行初始画面如图9-5所示。单击“图形”按钮，结果如图9-6所示。 9.1.2 多窗体设计方法 上节的例子中，用到了在多窗体设计过程中经常要用的四种方法：Load、Unload、Show和Hide方法，下面分别予以介绍。 1) Load方法 格式：Load 窗体名称 该方法把一个窗体装入内存。执行该语句后，可以引用窗体中的控件及其属性，但此时窗体并没有显示出来。 2) Unload方法 格式：Unload 窗体名称 该方法的功能与Load相反，它是将指定窗体从内存中删除。最常用的语句是：Unload M