VB教程：文本框（TextBox）

2.文本框

功能:用于输入和编辑文本或输出和显示文本。

(1)共同属性

文本-表示用户输入的内容。

例如:Label1。标题=文本1。文本

由Text1控件接收的用户输入的数据由Label1控件显示。

multiline-设置文本框是否可以输入和显示多行文本。

True可以输入和显示多行文本。

False—将所有文本限制在一行中显示(默认)。

scroll bars是否需要滚动条(仅当multiline属性设置为true时)。

=0否。

=1级。

=2有垂直。

=3水平和垂直。

注意:multiline属性和scrollbars属性只能在设计时设置，不能在代码中赋值。

sel start-指示用户选择的一段文本的开始位置。第一个字符位置是0。SelStart属性可用于查找字符串。

sellength-表示用户选择的文本长度。

seltext-表示用户选择的文本内容。

例如:0123456789

此时:selstart = 5，sellength = 4，seltext = "5678 "

密码-设置是否在文本框中显示用户键入的字符。

如果在此属性中设置了一个字符，则无论在文本框中输入什么(即无论Text属性的值是什么)，都只会显示设置的字符。例如，如果将PasswordChar的属性设置为字符“*”，则文本框中的文本将显示为“*”，最终用户无法知道文本的内容，因此该属性充当密码。

(2)常用方法:

set focus-为当前控件提供输入焦点，即将光标从另一个位置移动到文本框。

焦点代表从用户的鼠标或键盘接收输入的能力，对象(窗体和控件)的焦点通常称为“焦点”。当对象获得焦点时，可以接收用户的输入。

(3)主要事件

主要事件有Change、KeyPress、LostFocu(失去焦点，即光标离开)等。

(4)例子:

例:见教材P103。

1)控件的属性设置

属性设置
command button(name)command 1
caption " find "
height 495
left 3000
top 2400
width 1335
Text(name)Text 1
height 2415
left 600
multiline true
hide selection false
top 480
width width

2)添加代码

私有子命令1_Click()

dim find as string
dim address as string
find =输入框(" Please enter a character:"，" search ")'从用户的输入中获取搜索到的字符串。
address = instr (text1.text，find)'在文本中查找字符串。
If address Then '找到了字符串。
Text1。SelStart = address-1 '设置所选的起始位置。
Text1。SelLength = Len(find)'设置字符串长度。
Else”找不到该字符串。
MsgBox "找不到字符串！"输出未找到信息。
结束If

末端接头

[程序演示][程序下载]

关于InputBox和MsgBox函数

例:选择符合条件的数据并打印出来，过滤掉不符合条件的数据。

代码:

选项显式
Dim x，y

private Sub Form _ Load()
text 1。text = " "
结束Sub

Private Sub命令1 _ Click()
Print y
End Sub

私有Sub Text1_LostFocus()

x = Val(Text1。Text)
如果x < 0或x > 100，则
哔声
Text1。Text = ""