VB课件第3章顺序结构43.docx

1、VB课件第3章顺序结构434.3、多重窗体对于简单程序，单一窗体就能满足了。对于较复杂程序，可使用多重窗体（MultiForm）。在多重窗体设计中，每个窗体都有自己的事件程序，可完成不同的操作。一、 有关语句和方法1、 Load语句格式：Load 窗体名功能：装载一个窗体到内存中，可以引用该窗体中的控件功能。2、 Unload语句格式：Unload 窗体名功能：卸载内存中指定窗体，关闭相关对象的文件等操作。3、 Show方法格式：窗体名Show 0 | 1功能：（1）将窗体装入内存； （2）显示该窗体其中，0 非模态型：操作所有窗体（默认） 1 模态型：仅对该窗体操作4、Hide方法格式：窗体

2、名Hide功能：仅隐藏窗体，不卸载。例 3_4_5 设计计算成绩程序（三个窗体文件）程序：Form1程序Public s_t As LongPrivate Sub Command1_Click()Form2.Show 1End SubPrivate Sub Command2_Click()Form1.HideForm3.ShowEnd SubPrivate Sub Command3_Click()EndEnd SubForm2程序Private Sub Command1_Click()s_m = Val(Text1)s_e = Val(Text2)s_c = Val(Text3)s_p = V

3、al(Text4)Form1.s_t = s_m + s_e + s_c + s_pForm2.HideForm1.ShowEnd SubForm3程序Private Sub Command1_Click()Form3.HideForm1.ShowEnd SubPrivate Sub Form_Activate()Text1.Text = Form1.s_t / 4Text2.Text = Form1.s_tEnd Sub二、 多重窗体程序的执行和保存1、 设置VB规定，对于多窗体程序，必须指定一个窗体为启动窗体。如果没有指定，则系统默认第一个设计的窗体为驱动窗体。可以用下面办法选择启动窗体：

4、“工程”“工程属性”“通用”“启动对象”确定只有启动窗体开始可以看到，其它窗体必须通过Show方法看到。2、 应用程序结束时，应卸载全部窗体及资源。可以用End语句，也可以用Unload方法一一释放。3、 多重窗体程序存取1、 保存文件：“保存工程”或“工程另存为”，系统提示用户保存工程各文件 .Vbp（工程文件），.Frm（窗体文件），.Bas（模块文件）等2、 装载文件：“打开工程”自动装载工程所有文件。5、控件介绍5. 1、标签（Label）和文本框（TextBox）共同点：均可以显示文本信息不同点：1、标签中的文本内容是只读文本，不能直接修改。2、文本框中文本内容可编辑，例如：选择、删

5、除、复制、剪切、粘贴等操作。一、标签常用属性：CaptionAlignmentBackstyleBordestyleAutosizeWrdwrap（1） Caption （标题）字符型。 用于显示文本。（2）Alignment（标题对齐方式）数值型。 0 Left Justfy ：左对齐 （缺省值）1 Right Justify ：右对齐2 - Center：居中（3）BackStyle （背景风格）布尔型。0 Transparent ：透明 1 Opaque ：不透明。可设置BackColor色彩（缺省值）（4） BorderStyle （边界风格）数值型。 0 None ：无边框（缺省值）

6、 1 Fixed Single ：有边框（5） AutoSize （自动调整尺寸）布尔型。 根据文本尺寸调整标签宽度。 True:自动调整 False：保持设计时尺寸（缺省值）（6） WordWrap （文本绕回）布尔型。 与Autosize配合使用1 Autosize值为False时，标签不变。2 Autosize值为True时，WordWrap值为：True：标签水平方向不变，垂直方向变化以适应文本尺寸；False: 标签垂直方向不变，水平方向变化以适应文本尺寸（缺省值）例38 Autosize和Wordwrap例例33 “喜迎千禧年”的立体效果程序：Private Sub Command

7、1_Click()Label2.Visible = TrueLabel2.Left = Label1.Left - 80Label2.Top = Label1.Top - 80End Sub说明：对象的层的设置可使用“置前、后方法 ZOrder”格式：对象名. Zorder 0 | 1 其中： 0：置前 （缺省） 1：置后二 、文本框 （TextBox）1、常用属性：TextMaxLengthMultiLineScrollBars（1） Text （文本）字符型。格式：对象名Text字符串功能：返回、显示或编辑文本框中内容。例如：Text“程序设计” PrintText.Text（2）MaxL

8、ength （文本的最大字符个数）数值型。 0：可变长度（默认值） 大于0的值：最大字符数（3）MultiLine （多行文本）布尔型。 True：使用多行文本输入。 False: 仅能输入一行（默认值）（4） ScrollBars （滚动条）数值型。 0 None 没有滚动条（默认值） 1 Horizontal 水平滚动条 2 Vertical 垂直滚动条 3 Both 双向滚动条其中1、2、3仅当MultiLine为True时有效2、常用事件和方法ClickDblClickKeyPress KeyUp KeyDownChangeSetFocus方法GotFocusLostFocus（1）

9、Change 事件当文本框中信息发生变化时（当用户向文本框中输入新的信息或代码方式对Text属性赋值），触发Change事件。（2） SetFocus 方法格式：对象名. SetFocus功能：将焦点移到指定对象上，使对象获得焦点。所谓焦点是接收用户鼠标或键盘输入的能力。当对象具有焦点时，可接收用户的输入。Windows规定在同一时间只能有一个窗口、窗体、或控件对象具有处理键盘输入或接受鼠标输入的能力。例 3_5_1 Private Sub Text1_KeyPress(KeyAscii As Integer)If KeyAscii = 13 Then Text2.SetFocusEnd Su

10、bPrivate Sub Text2_KeyPress(KeyAscii As Integer)If KeyAscii = 13 Then Text3.SetFocusEnd SubPrivate Sub Text3_KeyPress(KeyAscii As Integer)If KeyAscii = 13 Then Text4.SetFocusEnd SubPrivate Sub Text4_KeyPress(KeyAscii As Integer)If KeyAscii = 13 Then Text1.SetFocusEnd Sub说明：1 当控件属性Visible或Enabled为Tru

11、e时，控件才能接收焦点；2 窗体、图片框、文本框、按钮、组合框、多选框、单选框可以接收焦点，图像框、标签、框架、计时器不具备焦点功能。3 当对象接收焦点时，触发GotFocus 事件，失去焦点时，触发LostFocus事件。4 程序运行时，还可以用下办法改变焦点： 用鼠标点击对象； Tab键或ShiftTab键 用户热键例 S312 计算零钱程序程序：Private Sub Command1_Click()x = Val(Text1.Text)y = x 100: Text2.Text = yx = x - 100 * yy = x 50: Text3.Text = yx = x - 50 *

12、 yy = x 10: Text4.Text = yx = x - 10 * yy = x 5: Text5.Text = yx = x - 5 * yy = x 2: Text6.Text = yx = x - 2 * y: Text7.Text = xEnd SubPrivate Sub Text1_Change()Text2.Text = Text3.Text = Text4.Text = Text5.Text = Text6.Text = Text7.Text = End Sub5.2 图片框（PictureBox）和图像框（Image）共同点：显示图片（BMP、ICO、GIF、JPG

13、）不同点：图片框是容器。能使用Print、Cls方法及绘图语句。 图像框仅能显示图片。仅介绍图片框的使用1、 常用属性PictureAutoSizeCurrent1 Picture 属性功能：用于接受图形信息。图形的加载方式： 属性 剪贴板 代码方式：使用LoadPicture 函数格式：对象名. PictureLoadpicture（“图形文件名” ）其中文件名指定路径，如果缺省为消除图形。例如：Picture=LoadPicture（）2 Autosize属性布尔型。 自动调整图片框尺寸以适应图像的大小说明：在图像框（Image）控件中，对应属性为：Stretch 功能：自动调整图像大小以

14、适应图像框的尺寸。3 Current X 和 Current Y 属性数值型。设置或返回下一次Print方法或绘图语句的输出项的X、Y坐标值，常用于打印机、窗体和图片框。例 3_5_2 打印阴影字。程序：Private Sub Command1_Click()ClsForeColor = QBColor(0)Me.CurrentX = 500Me.CurrentY = 100x = Me.CurrentXy = Me.CurrentYPrint 喜迎千禧年ForeColor = QBColor(15)Me.CurrentX = x + 50Me.CurrentY = y + 50Print 喜

15、迎千禧年End Sub例S36 程序：Private Sub Command1_Click()Dim a$, w%, h%, x%, y%Picture1.FontName = 隶书Picture1.FontSize = 60Picture1.ForeColor = QBColor(1) bluea = 喜迎千禧年w = Picture1.TextWidth(a) / 2h = Picture1.TextHeight(a) / 2Picture1.CurrentX = Picture1.Width / 2 - wPicture1.CurrentY = Picture1.Height / 2 -

16、 hx = Picture1.CurrentXy = Picture1.CurrentYPicture1.Print aPicture1.ForeColor = QBColor(6) yellowPicture1.CurrentX = x + 60Picture1.CurrentY = y + 60Picture1.Print aEnd SubPrivate Sub Command2_Click()Picture1.ClsEnd Sub说明：TextWidth和TextHeight方法分别返回文本行的宽和高。格式：对象名. TextWidth（字符串） 对象名. TextHeight（字符串）

17、5.4 Visual Basic代码方式下移动控件的两种办法 使用Move方法直接改变控件位置定义的属性1、Move方法格式 . Move ,功能 用于在程序中移动窗体和控件即改变它们的大小（除了时钟Timer和菜单Menu），单位：缇。对象名缺省为当前窗体。例：3_5_4 Form1.Move 800, 800, 3990, 2600 Text1.Move 200, 200, 1500, 800 text1的移动是以窗体为坐标的 Command1.Move 1800, 200, 1500, 800 Text1.FontSize = 20 Text1.Text = Moved说明：两种移动方式绝对移动 当对象在其容器中移动到指定坐标处时，就是绝对移动。例：将名为textl的控件，移动到坐标(100，200)处：text1.move 100,200相对移动 通过指定从当前位置应当移动的距离，使控件移动时，就是相对移动。将名为textl的控件移动到它当前位置向右和向下100缇处：Text1.move Text1.left+100,text1.top+1002、使用Left和Top属性 Left届性是控件左上角到窗体左边的距离。Top属性是控件左上角到窗体上边的距离。例： Text1.left=200 text1.top=300