1.3 对象的容器--窗体

VB中的窗体和控件统称为对象。作为面向对象的基本要素，窗体和控件都具有自己的属性、事件和方法。窗体（Form）是所有控件的容器，也就是说，窗体是所有控件的父对象。这个称谓非常形象地说明，当需要使用其它窗体中的控件时，必须在控件对象的前面说明其所在窗体的名称，即父对象的名称。

执行VB应用程序时，桌面上的窗口就是窗体。新建工程时VB系统会自动创建一个窗体，默认名称为Form1，在保存工程时，窗体也要作为文件保存在磁盘上，其扩展名为.frm。

下面我们通过一个实例来帮助同学们理解、掌握窗体的属性、事件和方法。

【例】通过编写窗体的Load事件代码设置窗体属性。

项目说明：在窗体的相关事件中编写代码，实现窗体的初始设置，并在窗体上输出文字。当单击窗体时，窗体的位置和大小将改变，单击命令按钮时，窗体更换背景图片。初始窗体运行界面如3.1所示，更换背景后窗体界面如图3.2所示。

图3.1窗体初始运行界面

（1）创建界面：在窗体上添加一个命令按钮，所有属性设置均在程序代码中实现。

（2）编写代码：

Private Sub Form_Load()

    Form1.Caption = "Visual Basic window" '设置窗体标题栏

    Form1.Width = 8000               '设置窗体宽度

    Form1.Height = 2500               '设置窗体高度

    Form1.Left = 0                   '设置窗体到屏幕的左边距

    Form1.Top = 0                   '设置窗体到屏幕的上边距

    Form1.BackColor = &HFFFFFF         '设置窗体Form1的背景色为白色

    Form1.ForeColor = &HFF0000           '设置窗体Form1的前景色为蓝色

    Form1.FontName = "roman"

    Form1.FontSize = 20

    Command1.Left = 3000

    Command1.Top = 1200

End Sub

Private Sub Form_Activate()

    Form1.Print "单击窗体改变窗体位置及大小"

    Form1.Print "单击按钮改变窗体背景"

End Sub

Private Sub Command1_Click()

    Form1.Picture = LoadPicture("1.jpg")     '加载当前工程文件夹内的一幅背景图片 

End Sub

Private Sub Form_Click()

    Form1.Move 1000, 1000, Form1.Width + 1000, Form1.Height + 1000  '移动窗体，改变其大小

    Command1.Move Command1.Left + 500, Command1.Top + 500       '移动命令按钮

End Sub

图3.2窗体更换背景后运行界面

=============================================================

阅读下面资料：窗体的常用属性事件和方法.doc(下载附件 71 KB)

扩展学习：扩展学习1.3.doc(下载附件 27.5 KB) -窗体的其它属性

案例：案例1.3.doc(下载附件 565 KB)  -窗体的移动和扩大

===========================================================