第13讲VB界面设计

(4) Hide方法 该方法用来将窗体暂时隐藏起来，并没有从内 存中删除。其形式为：
[窗体名称]. Hide 其中：“窗体名称” 缺省时为当前窗口。 举例说明
【例6－8】设计一个有三个窗体组成的“古诗词欣 赏”应用程序。窗体1（form1窗体）为主界面，窗 体2（form2窗体）中显示宋词“丰乐庭游春”，窗体 3（form3窗体）中显示唐诗“山行”。
6.3 多重窗体
在实际的应用中，一个应用程序往往有多 个窗体构成。因此，VB提供了多重窗体的设计。 在多重窗体的应用程序中，每个窗体都可以有自己 的界面和程序代码，用以完成不同的功能。 一、 多重窗体界面设计 1. 窗体的添加 (1)操作方法：当你在一个工程中要添加一个窗体 时，可以选择“工程”菜单的“添加窗体”命令或单击 工具栏上的“添加窗体”按钮，创建一个新的窗体或 把一个属于其他工程的窗体添加到当前工程中。
出现的“添加窗体”对话框中选择“新建”选项卡，选中“窗体” 选项，单击“打开”按钮。设置窗体的Caption属性值为“丰 乐庭游春”，Fontsize属性值为18，Fontname属性值为“楷 体”。在窗体右下角添加一个“命令按钮”， 其Name属性值 为cmdreturn，窗体2界面如图 (b)。 ③创建窗体3
Visual Basic
程序设计教程
第十三讲
VB界面设计（2）
第13讲VB界面设计
本章教学内容
6.1 通用对话框 6.2 菜单 6.3 多重窗体
第13讲VB界面设计
本讲教学内容
介绍多窗体的添加和设置启动对象等， 还将介绍带有通用对话框、菜单和多 窗体的VB应用程序的设计方法。
第13讲VB界面设计
第13讲VB界面设计
Form2窗体事件过程代码： Private Sub Form_Activate()
Print Tab(6); "丰乐庭游春" Print Tab(6); "(宋)欧阳修" Print Print Tab(4); "红树青山日欲斜，" Print Βιβλιοθήκη Baiduab(4); "长郊草色绿无崖。" Print Tab(4); "游人不管春将老，" Print Tab(4); "来往庭前踏落花。" End Sub Private Sub cmdreturn_Click() Cls Form1.Show Form2.Hide End Sub
第13讲VB界面设计
3. 有关窗体的语句、方法
当一个窗体要显示在屏幕之前，该窗体必须先 “建立”，接着被装入内存(Load)，最后显示(Show) 在屏幕上。同样，当窗体暂时不需要时，可以从屏 幕上隐藏(Hide)，直至从内存中删除(UnLoad)。
下面是有关窗体的语句和方法
(1) Load语句
该语句把一个窗体装入内存。执行Load语句后， 可以引用窗体中的控件及各种属性，但此时窗体没 有显示出来。Load语句形式：
管理器”窗体中选择Form1窗体，单击“查看代码” 按钮，编写如下事件过程代码。 Private Sub cmd1_Click()
Form2.Show Form1.Hide End Sub Private Sub cmd2_Click() Form3.Show Form1.Hide End Sub Private Sub cmd3_Click() End End Sub
Load 窗体名称
第13讲VB界面设计
(2) Unload语句 该语句与Load语句的功能相反，它从内存中
删除指定的窗体。Unload语句形式： Unload 窗体名称 或 Unload Me
(3) Show方法 该方法用来显示一个窗体，他兼有加载和显示窗体两
种功能。其形式如下： [窗体名称].Show [模式] 其中：“模式”用来确定窗体的状态，有0和1两个值 。
选择“工程”菜单的“添加窗体”命令，再添加一个窗体。 设置窗体的Caption属性值为“山行”，Fontsize属性值为18， Fontname属性值为“隶书”。在窗体右下角添加一个“命令按 钮”， 其Name属性值为cmdreturn，窗体3界面如图 (c)。
第13讲VB界面设计
④编写各窗体的事件过程代码 Form1窗体事件过程代码：在“工程资源
2.设置启动对象 VB程序运行时，首先执行的对象称为启
动对象。缺省情况下，第一个创建的窗体被指定 为启动对象，即启动窗体。如要指定其他窗体为 启动窗体，则要使用工程菜单中的属性命令。
第13讲VB界面设计
具体方法为： ①选择“工程”菜单的“属性”命令，出现如图所示的 工程属性对话框。 ②单击“通用”按钮，选中“通用”选项卡。 ③单击“启动对象”列表框的向下按钮，选择作为启 动窗体的窗体名称。 ④单击“确定”按钮，启动窗口设置完毕。
第13讲VB界面设计
Form3窗体事件过程代码： Private Sub Form_Activate()
Print Tab(6); "山行" Print Tab(6); "(唐)杜牧" Print Print Tab(4); "远上寒山石径斜，" Print Tab(4); "白云生处有人家。" Print Tab(4); "停车坐爱枫林晚，" Print Tab(4); "霜叶红于二月花。" End Sub Private Sub cmdreturn_Click() Cls Form1.Show Form3.Hide End Sub
第13讲VB界面设计
(2)注意事项：当添加一个已有的窗体到当前工程 时，有两个问题要注意： ① 该工程内的每个窗体的Name属性不能相同，否 则不能将现存的窗体添加进来； ② 在该工程内添加进来的现存窗体实际上在多个 工程中共享，因此，对窗体所做的改变，会影响到 共享该窗体的所有工程。
第13讲VB界面设计
若“模式”为1，表示窗体是“模式型”（Modal）的，用户无 法将鼠标移到其他窗口，也就是说，只有在关闭该窗体后 才能对其他窗口进行操作。若“模式”为1，表示窗体是“非 模式型”（Modeless）的，可以对其他窗口进行操作。“模 式”的缺省值为0。“窗体名称” 缺省时为当前窗口。
第13讲VB界面设计
第13讲VB界面设计
设计步骤： ①创建窗体1。 新建一个工程。设置窗体的Caption属性值为“古诗 词欣赏”，按如图 (a)所示在窗体中添加1个“标签” 和三个“命令按钮”，其按钮的Name属性值为cmd1、 cmd2、cmd3。
第13讲VB界面设计
②创建窗体2 选择“工程”菜单的“添加窗体”命令，在随后