第二章 窗体与基本控件

第二章窗体与基本控件

教学内容：

一、窗体

窗体的属性、事件、方法及应用举例

二、基本控件以及对控件的格式化

命令按钮、标签、文本框等基本控件属性、事件与方法，基本控件的添加/删除、调整控件的大小与位置、窗体与控件的布局调整

三、简单语句

Print方法、人机对话函数（InputBox,MsgBox,Cls,End,Stop,Rem语句）、基本格式、功能、举例说明。教学要求：

了解：控件的格式化

掌握：常用控件（窗体、文本框、标签、命令按钮）的常用属性、事件和方法、Print方法、Inputbox、Msgbox、Cls、End语句的使用方法

§2.1 窗体

1．窗体的基本属性

Name 对象的名称

指定窗体的名称，在程序代码中用这个名称引用该窗体。

第一个窗体的名称缺省值为form1，通常要给name属性设置一个有实际意义的名称，便于识别。

Caption 对象的标题

设置窗体标题栏显示的文本。

Height 对象的高度 Width 对象的宽度

设置窗体的高度和宽度。单位为Twip。

1Twip=1/20点＝1/1440英寸＝1/567cm

Enabled 对象的激活或禁止

用来设置窗体是否响应鼠标或键盘事件。缺省时为True，窗体能够对用户产生的事件作出反映。

Visible 对象的可见性

设置窗体是否显示。True（窗体可见），False（运行时，窗体及其上面的对象都将被隐藏）

Top 对象的顶边距离 Left 对象的左边距离

Backcolor 设置窗体的背景颜色；

Forecolor 设置窗体的前景颜色。

Font 设置窗体上字体的样式，大小，字形等。

Picture 设置在窗体中显示的图片。

注意：要在程序中设置该属性的值，需要使用LoadPicture函数。

WindowStare属性设置窗体运行时的大小状态。有三个可选值：

0－Normal 窗体大小由Height和Width属性决定，此值为缺省值；

1－Minimized 窗体最小化成图标；

2－Maximized 窗体最大化，充满整个屏幕。

2．窗体的事件和方法

事件：

Click（单击）事件：单击鼠标左键时触发

DblClick（双击）事件：双击窗体时触发

Load（装入）事件：窗体被装入工作区时触发

方法：

Print 格式：[对象名.] Print [表达式列表][;|,]

功能：在对象上输出信息

例如：Form1.Print “VB”;”程序设计”

Cls 格式：[对象名.] Cls

功能：清除运行时用Print方法在窗体或图片框种显示的文本或图形

例如：Picture1.Cls

Move 格式：[对象名.] Move 左边距离[,上边距离[,宽度[,高度]]]

功能：移动窗体或控件，并可改变其大小

例如：Text1.Move 800,800,4000,3000

§2.2 基本控件

1. 命令按钮

常用属性:

Enabled属性：描述控件是否可用。

false:不可获得焦点

true：可以获得焦点，能触发鼠标事件

Visable属性：描述控件是否可见。

false:不可见，即隐藏

true：可见

Default属性和Cancel属性

default属性为true,则该按钮为默认按钮，回车操作相当于单击此按钮cancel属性为true,则该按钮为默认的取消按钮，按ese相当于单击此按钮

Style属性

用来设置命令按钮的显示类型。其属性可设置为：

0－Standard：标准的，命令按钮上不能显示图形和背景色，此为缺省值。

1－Graphical：图形的，可显示图形和背景色。

Picture属性

设置命令按钮中要显示的图形。只有将Style属性设置为1，图形才能在按钮上显示。ToolTipText

设置鼠标在命令按钮上停留的提示文本信息。

事件：

命令按钮常用事件是Click（单击）事件。即程序运行后，单击鼠标按钮时所触发的事件。

2. 标签（Label）

作用：固定位置显示文本，仅用于显示。

现有如下程序：用于显示输入的姓名、性别、年龄等内容的清空，点击显示按钮则在最下面的文本框中显示输入的内容，点击退出按钮退出程序）

Private Sub Form_Load()

Label4.Caption =''

End Sub

Private Sub Command1_Click()

Text1.Text ="“, Text2.Text =""

Text3.Text =""

End Sub

Private Sub Command2_Click()

Label4.Caption = Label4.Caption + Label1.Caption & Text1.Text &Label2.Caption & Text2.Text & Label3.Caption & Text3.Text

End Sub

Private Sub Command3_Click()

End

End Sub

标签常用属性：

alignment: 文本对齐方式

0：代表左对齐 1：右对齐 2：居中

name：标签的名字，用来标识一个标签

caption ：标签中显示出来的文字，注意与name属性的区别。

forecolor :标签的前景色，即文字的颜色

backcolor：标签的背景色

backstyle：标签的背景模式

0：不覆盖原背景(透明) 1：覆盖原背景

top ：标签左顶点的Y坐标

left：标签的左顶点的X坐标

width：标签的宽度

height : 标签的高度

font：标签的字体

enabled：标签是否可用。值为true或false

visible：标签是否可见。值为true或false

常用事件：

a. change事件：当标签的内容更改时触发,即在程序中更改标签的内容时。

b. click事件：单击事件，点击标签触发该事件

c. dbclick事件：双击事件，双击标签时触发该事件

标签的其它用法：

标签除了直接在设计阶段设置之外，也常常在运行阶段用程序的方式来显示时间。time$是一个与时间有关的函数，由于它的返回值是字符串，因此可以把它赋值给标签的标题，这样就可以用标签来显示时间，例如：label1.caption=time$

当要在标签中同时显示２行以上的字符串，就一定要靠程序，在字符串之间加上chr$(13)+chr$(10)控制码。例如：label1.caption=time$+chr$(13)+chr$(10)+date$

3. 文本框

用于输入、编辑文本或用于输出、显示文本，文本框最多可容纳的字符为2048个。但如果Multline＝True，则输入的字符数可达32K。属性如下：

.multiline=true ‘可输入、显示多行文本

.scrollbars=3-both ‘加滚动条

.selstart=数字‘设置所选文本的起始点

.sellength=选定长度

事件：

chang ‘当文本框中内容发生变化时触发该事件

keydown ,keyup ‘按键（在显示出按键内容的同时）与提起按键时触发事件参数：[index as integer ,] keycode as integert, shift as integer）

a. index: 当控件是控件数组中的一个元素时，index代表在数组是索引值，即下标

b. keycode: 键盘扫描码。‘例：13对应回车

c. shift: 代表shift, ctrl ,alt 键的状态；是一个3位的二进制位域。

（111）=> （alt ,ctrl ,shift）

故 shift= 6 代表：110 => 同时按下alt,ctrl两键

以上可判定是否只按下某键；但是如果需要了解是否按下了某键，则需要与特定数进行屏蔽。

Keypress事件：用于截获在文本框/ 组合框中输入的按键；

Sub 控件名_keypress ([index as integer,] keyascii as integer )

参数：（[index as integer ,] keyascii as integer）

a. index: 当控件是控件数组中的一个元素时，index代表在数组是索引值，即下标

b. keyascii: 返回标准的ascii键码