文章作者 100test 发表时间 2007:03:10 18:30:06
来源 100Test.Com百考试题网
作用:用于输入、编辑文本或用于输出、显示文本。
(1)常用属性
Text——表示用户输入的内容。
例:Label1.Caption=Text1.Text
将Text1控件接收用户输入的数据通过Label1控件显示出来。
multiline ——设置文本框能否输入和显示多行文本。
true —可输入、显示多行文本
False—限制所有的文本在一行内显示(缺省)。
scrollbars——是否需要滚动条(只有在multiline属性设置为true时)。
=0 没有。
=1 有水平。
=2 有垂直。
=3 水平、垂直都有。
注意:multiline属性和scrollbars属性只能在设计时进行设置,不能在代码中赋以新值。
SelStart——表示用户选中一段文字的起始位置。第一个字符位置为0。利用SelStart属性可以实现字符串查找功能。
SelLength——表示用户选中文字的长度。
SelText——表示用户选中文字的内容。
例:0123456789
这时:SelStart=5,SelLength=4,SelText="5678"
PasswordChar——设置是否在文本框中显示用户键入的字符。
如果该属性设置了某一字符,那么无论在文本框中输入什么(即无论Text属性值是什么),都只显示设置的该字符,例如,如果将PasswordChar的属性设置为字符“*”,那么文本框中的文本都以“*”显示,最终用户无法知道文本的内容,所以该属性起到了口令的作用。
(2)常用方法:
SetFocus——使当前控件获得输入焦点,即将光标从其他位置移动到文本框中。
焦点(focus)代表接收用户鼠标或键盘输人的能力,对象(窗体和控件)获得焦点通常称之为“聚焦”。当对象获得焦点时,可接收用户的输入。
(3)主要事件
主要事件有Change、KeyPress、LostFocu(失去焦点,即光标离开)等。
(4)例子:
例1:见教材P103。
1)控件的属性设置
控件 | 属性 | 设置 |
CommandButton | (Name) | Command1 |
|
Caption | “查 找” |
|
Height | 495 |
|
Left | 3000 |
|
Top | 2400 |
|
Width | 1335 |
TextBox | (Name) | Text1 |
Height | 2415 | |
Left | 600 | |
MultiLine | True | |
HideSelection | False(反色显示) | |
Top | 480 | |
Width | Width | |
Text | (任意输入) |
2)添加代码
Private Sub Command1_Click()
Dim find As String
Dim address As String
find = InputBox("请输入一个字符:","查找")