2、文本框（TextBox）

作用：用于输入、编辑文本或用于输出、显示文本。

（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）控件的属性设置

2）添加代码

Private Sub Command1_Click()

    Dim find As String
    Dim address As String
        find = InputBox("请输入一个字符:","查找")    '从用户的输入中得到查找的字符串。
        address = InStr(Text1.Text, find)            '在文本中查找字符串。
    If address Then                              '找到了字符串。
        Text1.SelStart = address - 1                '设置选定的起始位置。
        Text1.SelLength = Len(find)                  '设置字符串长度。
    Else                                         '没有找到字符串。
        MsgBox "没有找到字符串!"                     '输出没有找到信息。
    End If

End Sub

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

关于InputBox、MsgBox函数

例2：选择符合条件的数据并打印出来，滤去不符合条件的数据。

代码：

Option Explicit
Dim x, y

Private Sub Form_Load()
    Text1.Text = ""
End Sub


Private Sub Command1_Click()
    Print y
End Sub

Private Sub Text1_LostFocus()

    x = Val(Text1.Text)
    If x < 0 Or x > 100 Then
        Beep
        Text1.Text = ""