例2：利用两个标签控件，显示具有浮雕效果的文字。
浮雕效果可利用两种颜色的文字错位叠加来实现。为了实现错位，可使两个标签的Left、Top属性值有一点差距。为了避免叠加上去的标签覆盖原来标签显示的文字，要将标签的BackStyle背景样式属性设置为0，即透明的。
（二）文本框
文本框是一个文本编辑区域，用户可以在该区域输入、编辑、修改和显示正文内容。 1、文本框控件的属性 1) MaxLength
指明文本框中能够输入的正文内容的最大长度。 0-任意长字符串（默认）；但不能超过32K 非零值-文本框中字符个数的最大值。
注意：在VB中字符长度以字为单位，也就是一个西文字符与一个汉字都是一个字，长度为1。
2) MultiLine
该属性用来设置/返回文本框控件是否可以输入多行文本，有两个值可以选择： True 可以输入多行文本，即在输入过程中可以换行。按Enter键可插入一空行。 False 只能输入单行文本(默认) 3) PasswordChar
设置PasswordChar属性为了掩盖文本框中输入的字符。 该属性的设置只有在MultiLine设为 False才有效 4) ScrollBars
当MultiLine属性为True时，ScrollBars属性才有效。 0（vbNone）无滚动条；
1（vbHorizontal） 加水平滚动条； 2（vbVertical） 加垂直滚动条；
3（vbBoth） 同时加水平和垂直滚动条。
注意：当加入了水平滚动条以后，文本框内的自动换行功能会自动消失，只有按Enter键才能回车换行。
5) SelLength、SelStart、SelText
这三个属性是文本框中对文本的编辑属性。
SelStart：确定在文本框选中文本的起始位置。第一字符 的位置为0。若没有选择文本，则用于返回或设置文本的插入点位置，如果SelStart的值大于文本的长度，则SelStart取当前文本的长度：
SelLength：设置或返回文本框中选定的文本字符串长度（字符个数）。 SelText：设置或返回当前选定文本中的文本字符串。 例：创建一个简单的文本编辑器。 在窗体上建立2个文本框。 Private Sub Form_Click()
- 37 -
Text1.SelStart = 0 Text1.SelLength = 8
Text2.Text = Text1.SelText End Sub 6) Text
文本框无Caption属性，显示的正文内容存放在Text属性中。当程序执行时，用户通过键盘输入、编辑正文。 7) Locked
是否可被编辑属性:
True 文本框控件的内容不允许编辑，相当于标签的作用。 False 文本框控件的内容允许编辑（默认） 2、文本框控件的事件 1）Change事件
当改变文本框的Text属性时会引发该事件。用户每输入一个字符就会引发一次Change事件。
例：在文本框Text1的Change事件编写有如下程序代码： Private Sub Text1_Change() Print Text1.text End Sub
当程序运行后中输入ABCD，则在窗体上在输出结果是？ 2）KeyPress事件
当按下并且释放键盘上的一个键时，就会引发焦点所在控件的KeyPress事件，参数KeyAscii指示按键的Ascii码值。
事件中最常用于判断是否输入回车符(KeyAscii的值为13) Private Sub Text1_KeyPress(KeyAscii As Integer) Print KeyAscii, Chr(KeyAscii) End Sub
当程序运行后中输入ABCD，则在窗体上在输出结果是？ 3）GotFocus事件
当控件获得焦点时发生。 4）LostFocus事件
当控件失去焦点时发生。 3、文本框控件的方法
文本框最有用的方法是SetFocus，该方法是把光标移到指定的文本框中。当在窗体上建立了多个文本框后，可以用该方法把光标置于所需要的文本框上。其形式如下： [对象.]SetFocus
4、文本框控件的应用
例1：对输入的数据进行合法性检验，过滤不合法的数据。
Private Sub Text2_LostFocus()
- 38 -
If IsNumeric(Text2) Then Text3.Text = \正确!\ Else
Text2.Text = \ '清除输入文本框中的内容 Text2.SetFocus '控制权重新回到输入文本框 Text3.Text = \错误,重新输入!\在显示文本框显示有关 End If End Sub
例2：数据过滤。
Dim score '在窗体层声明 Private Sub Text1_LostFocus() x = Val(Text1.Text)
If x < 0 Or x > 100 Then Beep
Text1.Text = \ Text1.SetFocus
Print \错误,请重新输入!\ Else
score = x End If End Sub
Private Sub Command1_Click() Print score End Sub Ⅲ、小结
本次课主要学习标签控件、文本框控件的属性、事件、方法的使用。 Ⅳ、作业
P151一、1~8 二、1~4
第37～38课时
课题：控件（二） 教学目的:
1、掌握图形图象控件的属性、事件、方法 2、掌握按钮控件的属性、事件、方法 3、应用按钮控件、图形图象控件 教学重难点：
1、图形图象控件的属性、事件、方法 2、按钮控件的属性、事件、方法 3、按钮控件、图形图象控件的应用 教学方法： 多媒体教学 教学过程：
Ⅰ、复习上节内容
- 39 -
1、标签控件的属性
2、文本框控件的属性、事件、方法 Ⅱ、新课
一、图形图象控件
（一）图片框和图像框控件的属性
图片框控件（PictureBox）和图像框控件（ImageBox）主要用于在窗体的指定位置显示图形信息。VB 6.0支持 .bmp、.ico、.wmf、.emf、.jpg、.gif等格式的图形文件 1、CurrentX和CurrentY属性（坐标属性）：可用于窗体和图片框，图像框无此属性。 格式：
[对象.]CurrentX=数值 [对象.]CurrentY=数值
功能：将对象的下一次输出的零坐标指定为现在坐标的数值指定处。如果不使用赋值，则返回当前输出的位置。 2、Picture
设置/返回图片框和图像框控件中要显示的图片的路径及文件名信息.可以显示的图片类型包括:位图(*.bmp;*.dib);GIF图像(*.gif);JPEG图像(*.jpg);元文件(*.wmf;*.emf);Icon图标(*.ico；*.cur)。在设计时和运行时都可以通过该属性向图片框和图像框中装入要显示的图片。 3、AutoSize
该属性用于图片框。决定控件是否自动改变大小以显示图像全部内容。缺省值为False，此时保持控件大小不变，超出控件区域的内容被裁减掉；若值为True时，自动改变控件大小以显示图片全部内容（注意：不是图形改变大小）。 4、Stretch用于设置图像是否拉伸
True 图形会根据图像框大小自动拉伸或者压缩，图片可能会变形 False图像框会自动调节大小以适应图像的大小。（默认）
此属性仅用于图像框，图片框不具备该属性，调整图片框控件的大小时，将会对显示的内容执行裁剪
（二）图片框、图像框的区别
（1）图片框控件可以作为其它控件的容器。 （2）图片框可以通过Print方法接收文本，而图像框则不能接收用Print方法输入的信息。 （3）图像框比图片框占用的内存少，显示速度快。 （三）图形文件的装入
1、在设计阶段装入图形文件 1)利用属性窗口
在属性窗口中的Picture属性后面直接输入要装入的图形文件的路径及文件名，或者是
- 40 -