《Visual Basic语言程序设计教程（第二版）》课件第3章 窗体

窗体的结构与Windows下的窗口十分类似，在程序运行前，即设计阶段，称为窗体；程序运行后也可以称为窗口。

3.1窗体的结构系统菜单窗体最小化按钮最大化按钮关闭按钮标题栏[窗体名.]Caption=字符串窗体的属性Name：设置窗体的名称。所有对象都具有该属性；在同一范围内不允许该属性值相同；该属性只能通过属性窗口设置，在代码窗口中不能改变。Caption：设置窗体标题栏上显示的内容。在代码窗口修改该属性值的语法格式为：注意Caption属性与Name属性的区别！3.2窗体的三要素NameCaptionCommand1.Caption="确定"对象名.属性名=属性值Sub对象名_事件名()对象名.方法[(参数)][窗体名].AutoRedraw={True|False}窗体的属性AutoRedraw：设置窗体被遮盖后是否要自动重绘窗体上的内容。语法格式为：BackColor、ForeColor：返回或设置窗体的背景颜色和前景颜色。属性值是一个16进制的常数；通常在编写代码时，常用Qbcolor或RGB函数为其设置颜色。3.2窗体的三要素Form1.BackColor=&HFF0000

'低字节到高字节依次表示红、绿和蓝的值Form1.BackColor=RGB(255,0,0)Form1.ForeColor=vbRedRGB颜色函数讲解

蓝红绿256等份256等份256等份Form1.BackColor=RGB(255,13,222)窗体的属性BorderStyle：设置窗体的边框样式。语法格式：3.2窗体的三要素窗体名.BorderStyle={0|1|2|3|4|5}属性值说明0-None窗体无边框1-FixedSingle含控制菜单、标题栏、最大、最小化按钮的固定单边框2-Sizable默认值，可调整的双线边框。3-FixedDouble含控制菜单、标题栏，无最大、最小化按钮、窗体大小固定的双线边框。4-FixedToolWindow只有关闭按钮、缩小的字体显示标题栏、窗体大小固定的工具窗口。5-SizableToolWindow只有关闭按钮，并用缩小的字体显示标题栏、窗体大小可变的工具窗口。注意：该属性只能在属性窗口中设置窗体的属性Enabled：设置窗体是否被响应。语法格式：当该属性值为True(默认值)时表示窗体有效，能响应用户或系统事件；为False时表示窗体无效，不能响应，并且窗体上的所以控件都无效。3.2窗体的三要素[窗体名.]Enabled={True|False}窗体的属性Font系列字体属性：设置窗体上文本的字体、字号、字形等样式。3.2窗体的三要素属性类型功能FontName字符型决定对象上正文的字体(缺省为宋体)FontSize整型决定对象上正文的字体大小FontBold逻辑型决定对象上正文是否是粗体FontItalic逻辑型决定对象上正文是否是斜体FontUnderline逻辑型决定对象上正文是否带下划线FontStrikeThru逻辑型决定对象上正文是否加一删除线窗体的属性Height、Width：分别决定窗体大小的高度和宽度。Top、Left：表示窗体到屏幕上边框和左边框的距离。3.2窗体的三要素TopHeightLeftWidth原点(0,0)xy窗体的属性ControlBox：取值为True或False，表示窗体左上角是否有控制菜单。Icon：返回或设置窗体左上角显示的图标或最小化时显示的图标，通常为.ICO格式的图标文件，仅当ControlBox属性值取True该属性才生效。MinButton

、MaxButton：设置窗体最小、最大化按钮是否有效。语法格式：

3.2窗体的三要素[窗体名.]

MinButton={True|False}[窗体名.]

MaxButton={True|False}窗体的属性Picture：设置窗体的背景图片。语法格式：Visible：设置窗体在执行时是否可见。语法格式：

3.2窗体的三要素[窗体名.]

Picture=LoadPicture("图片文件名")[窗体名.]Visible={True|False}窗体的事件不同的对象对应不同事件的发生，VB中窗体有很多事件。在一个窗体的代码窗口中列出了所有窗体事件。3.2窗体的三要素在此选中对象列出选中对象事件窗体的事件Activate：当窗体变为激活的当前窗口时，引发本事件。Click：当用户单击窗体时触发本事件。

DblClick：当用户双击窗体时触发本事件。Deactivate：当窗体失去激活状态，即另一个窗体成为当前窗口时，引发本事件。Load：当窗体被加载到内存时触发本事件。Load事件往往用于在启动程序时对属性和变量进行初始化。Unload：当关闭窗体时，触发卸载事件，将窗体从内存中卸载。注意：Load事件发生时窗体是不活动的，而Activate事件发生时窗体是活动的，Print方法不能在不活动窗体上使用，因此Print不能用于Load事件中。3.2窗体的三要素

“双击”实际上触发两个事件，第一次按鼠标按钮时产生Click单击事件，第二次按鼠标按钮时产生DblClick事件。

PrivateSubForm_Click()

Form1.BackColor=vbRedEndSubPrivateSubForm_Click()

Form1.BackColor=vbRedEndSub当触发了Form对象的Click事件时，该事件过程Form_Click就会被执行。？窗体名称为Form1，为何在其事件过程中用Form，详见课本18面。

当用户双击窗体时，窗体不断变小，则应该添加什么事件过程？例3.1

Print在Load和Activate事件中的区别。PrivateSubForm_Load()Print"***"EndSubPrivateSubForm_Activate()Print"***"EndSub窗体事件示例例：程序运行时，用户在窗体上输入字符时，窗体上显示输入结果。分析：添加什么事件过程在窗体上显示输入结果用什么代码当用户输入a时触发了Form_KeyPress事件过程，该过程的参数KeyAscii值是多少？通过什么方法在窗体上显示出a？代码：Form_KeyPress97PrivateSubForm_KeyPress(KeyAsciiAsInteger)PrintChr(KeyAscii)EndSubForm1.printchr(x)函数：将ASCII码转换为对应的字符;窗体的方法在代码窗口中，输入“form1.”后，会显示该窗体对象的所有属性和方法。3.2窗体的三要素对象的属性和方法属性方法窗体的方法Show和Hide：分别用于显示和隐藏窗体。调用格式：

[窗体名.]Show[Style][窗体名.]Hide窗体名缺省，表示显示或隐藏当前窗体；Show方法的Style参数取值：vbModel(模式)：不允许用户同时与其他窗体交互。vbModeless(无模式)：允许用户同时与其他窗体交互。3.2窗体的三要素窗体的方法Print：用于将文本输出到窗体的一行上。调用格式：

[对象名.]Print[输出项列表][{;|,}]对象除了窗体外，还可以是图片框(PictureBox)、Debug或打印机(Printer)，若缺省对象名，表示将文本输出到当前窗体上。输出项列表：是由0个、1个或多个待输出的数值表达式或字符串表达式构成；当输出项是由多个项构成，则中间必须用逗号或分号分隔；若Print后什么都不跟，则表示输出一个空行。3.2窗体的三要素如下代码：

PrivateSubForm_Click()Print1,-2PrintPrint"We","study"EndSub标准格式窗体的方法Print：用于将文本输出到窗体的一行上。调用格式：

[对象名.]Print[输出项列表][{;|,}]对象除了窗体外，还可以是图片框(PictureBox)、Debug或打印机(Printer)，若缺省对象名，表示将文本输出到当前窗体上。输出项列表：是由0个、1个或多个待输出的数值表达式或字符串表达式构成；当输出项是由多个项构成，则中间必须用逗号或分号分隔；若Print后什么都不跟，则表示输出一个空行。3.2窗体的三要素如下代码：

PrivateSubForm_Click()Print1;-2PrintPrint"We";"study"EndSub紧缩格式注意：标准格式即参数以“,”分割，下一个输出项将与上一个输出项间隔14列；紧缩格式即参数以“;”分割，下一个输出项将以紧凑格式，紧跟着上一个输出项输出。Print方法输出的位置是由窗体的绘图坐标CurrentX和CurrentY属性决定的，默认为对象的左上角(0,0)。该方法可以结合定位输出函数一起使用：Spc(n)：在下一个输出项前插入n个空格；Tab(n)：输出定位在绝对n列号上。代码：1197513111591317PrivateSubForm_Click()EndSub

PrintTab(11);"A"

PrintTab(9);"B";Spc(3);"B"

PrintTab(7);"C";Spc(3);"C";Spc(3);"C"

PrintTab(5);"D";Spc(3);"D";Spc(3);"D";Spc(3);"D"108643333333.2窗体的三要素窗体的方法Cls方法：用于清除运行时窗体上或图形上的用Print方法生成的文本和图形。语法格式：

[对象名].Cls对象名可以是窗体或图片框。当对象名缺省时，表示清除当前窗体上的内容。 例如：Form1.ClsClsPicture1.Cls3.2窗体的三要素窗体的方法Move(移动)方法：用于移动对象，并且可以在移动时变化对象的大小。语法格式：

[对象名.]MoveLeft[,Top[,Width[,Height]]]

其中，对象名可以是窗体和除时钟、菜单以外的所有控件。窗体名缺省(即未选对象名)时，默认为当前窗体。Move方法中的Left、Top、Width、Height4个参数，单位为twip(像素)。注意！

P32

3.2窗体的三要素例：编写一个程序，实现功能：每单击窗体一次，窗体向右移动。思路：窗体向右移动是一个动作，应该执行什么方法；该动作是被什么对象的什么事件触发的？代码：

PrivateSubForm_Click()

Form1.MoveLeft+1500EndSubmove窗体clickForm1.MoveLeft+1500,top,Width+1500？每次移动并变大如何实现例3.3窗体的简单应用编程实现：单击和双击窗体时分别改变标签和窗体标题栏的文字，单击单选按钮改变标签文字。界面设计对象属性属性值FormNameForm1Caption学习之道LabelNameLabel1Caption空白BackColor&H00FFC0C0&OptionButtonNameOption1Caption上课OptionButtonNameOption2Caption复习属性设置编写代码PrivateSubForm_Click()‘窗体的单击事件过程

Label1.Caption="成功通过考试！"EndSubPrivateSubForm_DblClick()‘窗体的双击事件过程

Form1.Caption="欢迎你学习VB！！"EndSubPrivateSubOption1_Click()‘单选按钮的单击事件过程

Label1.Caption="听明白勤思考记下来！"EndSubPrivateSubOption2_Click()'单选按钮的单击事件过程

Label1.Caption="多上机善提问多总结！"EndSub3.3多窗体多窗体是在应用程序中有多个并列的普通窗体。多窗体的建立步骤：(1)建立第一个窗体，选择“新建”选项卡创建一个新窗体，若选择“现存”选项卡则添加一个属于其他工程的窗体。(2)通过选择“工程”→“添加窗体”或工具栏上的添加窗体按钮来创建另一个新窗体。3.3多窗体多窗体的运行顺序设置：选择“工程”菜单中的最后一项“工程1属性”命令，在弹出的对话框中改变启动对象例3.4设计一个多窗体，实现两个界面的交换。为程序添加窗体Form2，Form1窗体加载一个图片，Form2窗体加载时为空白。单文档界面SDI(SingleDocumentsInterface)任何时刻都只能打开一个文档，若要打开别的文档，则必须先关闭原来的文档。多文档界面MDI(MultipleDocumentsInterface)，可同时打开多个文档，每个文档占用一个窗口，用户可以在已经打开的窗口之间切换，简化了文档之间的信息转换。3.3MDI窗体多文档界面通常可以分为一个应用程序(父窗体)中包含多个文档(子窗体)。创建MDI