第七章多窗体.ppt

应用程序窗体设计 多窗体程序设计 1.添加窗体 “工程|添加窗体” 新建 现存 3.设置启动窗体 5.窗体方法 Show方法：显示一个窗体（当窗体没有Load，自动Load） 形式： [窗体名称].Show [模式] 其中：模式可以取以下两种值 0 － Modeless，可以对其它窗体进行操作。 1 － Modal：关闭才能对其它窗体进行操作。 Hide方法：隐藏窗体，没有Unload删除 [窗体名称.] Hide 例：输入学生成绩，计算总分、平均分并显示。 Private Sub Command1_Click() Form1.Hide Form2.Show End Sub Private Sub Command2_Click() Form1.Hide Form3.Show End Sub Private Sub Command3_Click() End End Sub Private Sub Command1_Click() math = Val(Text1) english = Val(Text2) chinese = Val(Text3) computer = Val(Text4) Form2.Hide Form1.Show End Sub Private Sub Command1_Click() Form3.Hide Form1.Show End Sub Private Sub Form_Activate() Text1 = Str(math + chinese + english + computer) Text2 = Str(Text1 / 4) End Sub 多文档界面(multiple document interface) 显示MDI窗体及其子窗体显示任何窗体的方法为show,还有有关规则：加载子窗体时，其父窗体会自动加载并显示；反之则无。MDI窗体有AutoShowChildren属性，决定是否自动显示子窗体 4、在菜单编辑器中，为MDIForm1建立菜单，如下 Caption 名称 类别 文件（F） mnuFile 主菜单 新建(N) mnuFileNew 子菜单 5、在MDIForm1窗口添加代码 Private Sub mnuFilenew_Click() ‘建立Form1的一个新实例，名为vnewdoc Dim newdoc As New Form1 newdoc.Show End Sub 6、在Form1窗口中添加代码 Private Sub Form_Resize() ‘扩展文本框，使它充满子窗体的内部区域 Text1.Height = ScaleHeight Text1.Width = ScaleWidth End Sub * * 多窗体程序设计 多文档界面的程序设计 添加“现存”窗体时要注意： 防止多个窗体的Name相同而不能添加； 添加的窗体实际是将其它工程中已有的窗体加入，多个工程共享窗体； 通过“另存为”命令以不同的窗体文件名保存，断开共享。 2.保存窗体 一个工程中有多个窗体，应分别取不同文件名保存在磁盘上，VBP工程文件中记录了该工程的所有窗体文件名。 设置启动对象 4.窗体语句 Load语句：装入窗体到内存但没有显示窗体 形式： Load 窗体名称 Unload语句：从内存删除窗体 形式： Unload 窗体名称 6.不同窗体间数据的存取 存取控件的属性 另一窗体名.控件名.属性 例如： Text1=Val(Form2.Text1.text)+Val(Form2.Text2.text) 存取变量的值 另一窗体名.全局变量名 Form1代码： Form2代码： Form3代码： 在标准模块中声明： Public math!, chinese!, english!, computer! 每当一个窗体变成活动窗体时，就触发该事件。 MDI窗体的特点： 1. MDI窗体是子窗体的容器； 2. MDI窗体可以有自己的菜单，子窗体的菜单被迁移到父窗体； 3. 在MDI窗体添加带有Align属性的控件； 4. 最大化MDI子窗体时，子窗体的标题显示在MDI窗体的标题。 5