（4）保存和运行应用程序。 1.8 窗体与基本控件 1.8.1 窗体应用实例
实例1.3 设计一个唐诗欣赏应用程序，用来显示唐诗《望庐山瀑布（李白）》。 【实例说明】 （1）该程序只有一个窗体，名称为frmDisp；窗体上有三个命令按钮，名称分别为cmdPrt、cmdCls、cmdEnd。
（2）窗体加载时，将标题属性设置为“唐诗欣赏”，背景添加一幅图片（在“实例1.3”文件夹中），窗体上文字颜色为蓝色。
（3）单击窗体时，将背景图片删除，背景色设为白色；双击窗体时，回复原来的背景图片。
（4）单击cmdPrt按钮，在坐标（1200，400）处显示“望庐山瀑布（李白）”，字体为楷体、20号、加粗；在其下方显示“日照香炉生紫烟，遥看瀑布挂前川。”和“飞流直下三千尺，疑是银河落九天。”两行文字，字体为黑体、14号。
（5）单击cmdCls按钮，清除全部文字。 （6）单击cmdEnd按钮，结束程序运行。 （7）程序运行效果如图1.27所示。（这两个图文字描述不是很清楚，作用是什么？）
图1.27a 有背景显示唐诗 图1.27a 无背景显示唐诗
【实例分析】
该程序应用了窗体的很多属性、事件和方法，通过它使用户掌握和理解窗体的基本操作方法，以便设计满足用户需求的窗口界面。 1.8.2 窗体
窗体是设计应用程序图形用户界面的基本平台，也是其他控件的载体或容器，界面所需的全部控件都要放置到窗体上。窗体本身是一个对象，它也有自己的属性、事件和方法，用来控制窗体的外观和行为。
大多数应用程序都是从窗体开始执行的。程序运行时，每个窗体对应一个窗口，对于简单程序，一个窗体就足够了；但复杂的应用程序，可能需要若干个窗体。
1. 窗体的属性
窗体属性决定了窗体的外观和行为。窗体被创建后，系统自动为其设置默认属性值，窗体及其属性窗口如图1.28所示。
在设计程序时，窗体属性的设置既可以直接在其属性窗口中手动操作，也可以在程序运行时由代码来实现。有少数属性只能在属性窗口（设计模式下）设置或只能利用代码（运行模式下）设置。
窗体属性很多，下面介绍一些常用的属性，如表1.11所示。
图1.28 窗体及其属性窗口 表1.11 窗体的常用属性
属性
Name（名称）
说明
设置窗体的名称。默认名称为Form1，添加窗体时，依次为Form2、Form3??。该属性只能在属性窗口设置。
Caption 设置窗体标题栏中显示的文本。 AutoRedraw 控制屏幕图像的重建。 BackColor 设置窗体的背景颜色。 BorderStyle 设置窗体的边框样式，是否显示标题栏，是否可以调整大小等。 ControBox 控制是否显示窗体的控制菜单图标和状态控制按钮。 MaxButton和MinButton 设置窗体的最大化和最小化按钮是否可用。 Picture 设置窗体的背景图片。 Height和Width 设置窗体的高度和宽度。 Left和Top 决定窗体的位置，即窗体距离屏幕左上角的位置。 Icon 设置控制菜单的图标。 Moveable 决定窗体是否可以移动。 Enabled 决定是否响应用户事件，即是否允许操作窗体。 Visable 设置窗体在运行时是否可见。 Font 决定窗体上文本的样式、大小、效果等。 WindowState 设置窗体运行时的显示状态。 其中BorderStyle属性有6种取值，每个值对应一种外观，如表1.12所示；Font属性可以直接在属性窗口单击其右侧按钮，在“字体”对话框中设置，也可以在代码中进行处理，字体属性包含很多内容，如表1.13所示；WindowState有3种属性值，如表1.14所示。
表1.12 BorderStyle属性的取值 属性取值 0-None
1-Fixed Single
说明
窗体无边框和标题栏，且窗体不能移动、不能改变大小。 窗体有可见边框和标题栏，无最小化和最大化按钮，不能改变大
2-Sizable
3-Fixed Dialog
4-Fixed ToolWindows 5-Sizable ToolWindows 属性取值 FontName FontSize FontBold FontItalic FontStrikethru FontUnderline FontTransParent 属性取值 0-Normal 1-Minimized 2-Maximized
小。
默认值，窗体的大小和位置均可调整。 窗体可移动，但不能改变大小。
有标题栏，无控制菜单图标，且标题栏较窄，无最大化和最小化按钮，不能调整大小。
与4类似，但不能调整大小。
表1.13 Font字体属性
说明
字体名称。
字体大小，即字号。 文字是否为粗体。 文字是否为斜体。 文字是否添加删除线。 文字是否添加下划线。
确定显示的信息是否与背景重叠。
表1.14 WindowState属性取值 说明
正常窗口状态，有窗口边界。 最小化状态，以图标方式运行。
最大化状态，无边框，充满整个屏幕。
实例1.3中，在属性窗口只对窗体和三个按钮的名称属性、三个按钮的Caption属性做了设置，按实例说明中的要求设置。在程序代码中对BackColor、ForeColor、FontName、FontSize、FontBold、CurrentX、CurrentY、Picture属性进行了设置。
2. 窗体的事件
窗体作为对象，能够对事件做出响应。窗体事件过程的一般格式为： Private Sub Form_事件名([参数列表]) ?
End Sub 【提示】
不管窗体名称如何更改，在事件过程中只能使用Form。在过程内对窗体对象进行引用时要用该窗体名称。
窗体最常用的事件有三个：Click（单击）、DblClick（双击）和Load（加载）。另外还有很多鼠标和键盘触发的以及系统自动产生的事件，具体事件名称和功能说明如表1.15所示。
表1.15 窗体常用事件及其功能说明 事件 Load
功能说明
当加载窗体时，系统自动触发的事件。使用Load语句调用该窗体，或者在其他窗体引用该窗体的控件，都会触发Load事件。常用来进行初始化设置。
当窗体成为活动窗体时触发Activate事件，而窗体不是活动窗体时触发Deactivate事件。单击窗体或在程序中执行Show方法都可以把窗体变为活动窗体。 当改变窗体大小时自动触发该事件。
Activate和Deactivate
Resize
Paint
Click DblClick KeyPress
KeyDown和KeyUp MouseMove
MouseDown和MouseUP Unload
窗体的AutoRedraw属性被设置为False，当首次显示窗体、窗体被移动或改变大小、窗体被其他窗体覆盖时，将触发该事件。 当用户用鼠标单击窗体时触发该事件。 当用户用鼠标双击窗体时触发该事件。 当按下键盘上的某个按键时触发该事件。
按下键盘上的某个按键时触发KeyDown事件，释放按键时触发KeyUp事件。
鼠标在窗体上移动时触发该事件。
按下鼠标按键时触发MouseDown事件，释放按键时触发MouseUP事件。
当卸载窗体时触发该事件。使用Unload语句或关闭窗体时都会触发该事件。
【提示】
双击鼠标时系统触发Click和DblClick两个事件，先触发Click事件，再触发DblClick。 窗体的事件过程中有些含有参数，有些不含参数，下面介绍两个带有参数的事件过程格式。
KeyPress事件过程的格式为：
Private Sub Form_KeyPress(KeyAscii As Integer) ?
End Sub
其中，参数KeyAscii返回所按按键的ASCII码值。 MouseMove事件过程的格式为：
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
?
End Sub
其中，参数Button用来判断用户按下的是鼠标的哪个键，参数Shift用来判断是否按下Shift、Ctrl或Alt键构成的组合状态，参数X和Y用来返回指针所在位置。
实例1.3中调用了窗体的Load事件、Click事件和DblClick事件。事件过程代码如下：
Private Sub Form_Load() frmDisp.Caption = \唐诗欣赏\ frmDisp.Picture = LoadPicture(App.Path + \ frmDisp.ForeColor = vbBlue End Sub Private Sub Form_Click() frmDisp.Picture = LoadPicture(\ frmDisp.BackColor = vbWhite End Sub Private Sub Form_DblClick() frmDisp.Picture = LoadPicture(App.Path + \End Sub 除此之外，还调用了三个命令按钮的Click事件，其代码如下：
Private Sub cmdCls_Click() Cls End Sub Private Sub cmdEnd_Click() End End Sub Private Sub cmdPrt_Click() frmDisp.FontName = \楷体_GB2312\ frmDisp.FontSize = 20 frmDisp.FontBold = True CurrentX = 1200 CurrentY = 400 Print \望庐山瀑布（李白）\ frmDisp.FontName = \黑体\ frmDisp.FontSize = 14 Print Print Spc(5); \日照香炉生紫烟，遥看瀑布挂前川。\ Print Print Spc(5); \飞流直下三千尺，疑是银河落九天。\End Sub 3. 窗体的方法
窗体常用的方法如表1.16所示。
表1.16 窗体常用方法 方法 Print Show Hide Cls Move
说明
用于在窗体上输出数据。 快速显示一个窗体。 将窗体隐藏起来。
清除运行时窗体上显示的文本或图形。 移动并改变窗体的位置和大小。
（1）Print方法的一般格式为： [对象名.]Print 表达式
其中，表达式可以是数值也可以是字符串。对于数值表达式，先计算表达式的值，然后输出；字符串必须用双引号括起来，按原样输出。没有表达式，则输出一个空行。
对象名可以省略，表示在当前窗体上输出。
实例1.3中的cmdPrt_Click()事件过程中调用了Print方法。 （2）Cls方法的一般格式为： [对象名.]Cls
实例1.3中的cmdCls_Click()事件过程中调用了Cls方法。 （3）Move方法的一般格式为：
[对象名.]Move Left，[Top]，[Width]，[Height]
其中，参数Left和Top表示被移动对象的目标位置的X、Y坐标，参数Width和Height表示被移动对象的宽度和高度。 1.8.2命令按钮
实例1.4 设计一个应用程序，通过命令按钮可以控制窗体的大小。 【实例说明】
（1）程序只有一个窗体，窗体上有三个命令按钮（所有对象名称自行设置）。
（2）单击“窗体变大”按钮时，可以将窗体变大；单击“窗体变小”按钮时，可以将窗体变小；单击“退出”按钮时，结束程序。