第3章顺序结构4.3.docVIP

§4.3、多重窗体 对于简单程序，单一窗体就能满足了。对于较复杂程序，可使用多重窗体（Multi—Form）。在多重窗体设计中，每个窗体都有自己的事件程序，可完成不同的操作。 有关语句和方法 Load语句 格式：Load 〈窗体名〉 功能：装载一个窗体到内存中，可以引用该窗体中的控件功能。 Unload语句 格式：Unload 〈窗体名〉 功能：卸载内存中指定窗体，关闭相关对象的文件等操作。 Show方法 格式：［〈窗体名．〉］Show [0 | 1] 功能：（1）将窗体装入内存； （2）显示该窗体 其中，0 非模态型：操作所有窗体（默认） 1 模态型：仅对该窗体操作 4、Hide方法 格式：［〈窗体名．〉］Hide 功能：仅隐藏窗体，不卸载。 例 3_4_5 设计计算成绩程序（三个窗体文件） 程序： Form1程序 Public s_t As Long Private Sub Command1_Click() Form2.Show 1 End Sub Private Sub Command2_Click() Form1.Hide Form3.Show End Sub Private Sub Command3_Click() End End Sub Form2程序 Private Sub Command1_Click() s_m = Val(Text1) s_e = Val(Text2) s_c = Val(Text3) s_p = Val(Text4) Form1.s_t = s_m + s_e + s_c + s_p Form2.Hide Form1.Show End Sub Form3程序 Private Sub Command1_Click() Form3.Hide Form1.Show End Sub Private Sub Form_Activate() Text1.Text = Form1.s_t / 4 Text2.Text = Form1.s_t End Sub 多重窗体程序的执行和保存 设置 VB规定，对于多窗体程序，必须指定一个窗体为启动窗体。如果没有指定，则系统默认第一个设计的窗体为驱动窗体。可以用下面办法选择启动窗体： “工程”—“工程属性”—“通用”—“启动对象”—确定 只有启动窗体开始可以看到，其它窗体必须通过Show方法看到。 应用程序结束时，应卸载全部窗体及资源。可以用End语句，也可以用Unload方法一一释放。 多重窗体程序存取 保存文件：“保存工程”或“工程另存为”，系统提示用户保存工程各文件 .Vbp（工程文件），.Frm（窗体文件），.Bas（模块文件）等 装载文件：“打开工程”自动装载工程所有文件。 §5、控件介绍 §5. 1、标签（Label）和文本框（TextBox） 共同点：均可以显示文本信息 不同点： 1、标签中的文本内容是只读文本，不能直接修改。 2、文本框中文本内容可编辑，例如：选择、删除、复制、剪切、粘贴等操作。 一、标签 常用属性： Caption Alignment Backstyle Bordestyle Autosize Wrdwrap Caption （标题） 字符型。 用于显示文本。 （2）Alignment（标题对齐方式） 数值型。 0：左对齐 （缺省值） 1：右对齐 2：居中 （3）BackStyle （背景风格） 布尔型。 True：透明 False：不透明。可设置BackColor色彩（缺省值） BorderStyle （边界风格） 数值型。 0：无边框（缺省值） 1：有边框 AutoSize （自动调整尺寸） 布尔型。 根据文本尺寸调整标签宽度。 True:自动调整 False：保持设计时尺寸（缺省值） WordWrap （文本绕回） 布尔型。 与Autosize配合使用 Autosize值为False时，标签不变。 Autosize值为True时，WordWrap值为： True：标签水平方向不变，垂直方向变化以适应文本尺寸； False: 标签垂直方向不变，水平方向变化以适应文本尺寸（缺省值） Wordwrap仅适用于双字节文本（汉字、全角字符） 例3－8 Autosize和Wordwrap例 例3－3 “喜迎千禧年”的立体效果 程序： Private Sub Command1_Click() Label2.Visible = True Label2.Left = Label1.Left - 80 Label2.Top = Label1.Top - 80 End Sub 说明：对象的层的设置可使用“置前、后方法 ZOrder” 格式：［〈对象名〉. ］Zorder [0 | 1