VB教程：文本框（TextBox）
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）控件的属性设置
控件 属性 设置
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 (任意输入)
textbox控件边框设置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

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。