VB 神童教程第二章第二节--TextBox控件
减小字体
增大字体 在 Visual Basic 操作界面中，TextBox（文字框）控件所代表的图标如图一：
图一
TextBox 控件主要用来显示文字或用来输入文字，如 Windows 登录时的“口令”窗口，或者记事本的整个编辑区域。
双击工具箱中的文字框控件或者单击文字控件，然后用鼠标在 VB 的工作区域拖拉，就可以创建文字框了。如图二：
图二
文字框控件的默认名称为 TextX（X为 1、2、3，等等），命名规则为 TxtX（X为用户自定义的名字，如 TxtShow、TxtFont、TxtColor ，等等）
一、文字框控件的主要属性：
1、Text（文字）属性：
本控件最重要的属性，用来显示文字框中的文字内容，可以在界面设置时指定，如图三：
图三
也可以在程式中动态修改，程式代码规则：
文字框控件名.Text = "欲显示的文字内容"
如要在一个名为 TxtFont 的文字框控件中显示“隶书”字样，那么输入代码：
TxtFont.Text = "隶书"
习题一：创建一个文字框（TxtContent）用来显示文字；按钮一（Cmd1），点击时文字框内容变为“跟我来学VB神童教程”；按钮二（Cmd2），点击时文字框内容清空（也就是没有内容）。
答案：见答案区。
2、SelText（选中文字）属性：
本属性返回或设置当前所选文字的字符串，如果没有选中的字符，那么返回值为空字符串即""。
请注意，本属性的结果是个返回值，或为空，或为选中的文字。
一般来说，选中文字属性跟档案复制、剪切等剪贴板（在 VB 中，剪贴板用 Clipboard 表示）操作有关，如要将文字框选中的文字拷贝到剪贴板上：
Clipboard.SetText 文字框名称.SelText（注意，本行没有表示赋值的等号。）
要将剪贴板上的文字粘贴到文字框内：
文字框名称.SelText = Clipboard.GetText（注意，本行有表示赋值的等号。）
例：一个文字框（TxtContent），按钮一（CmdCopy）用于复制文字框中的选中文字；按钮二（CmdPaste）用于将剪贴板上的内容粘贴到文字框内。
按钮一：
Private Sub CmdCopy_Click()
Clipboard.SetText TxtContent.SelText
End Sub
按钮二：
Private Sub CmdPaste_Click()
TxtContent.SelText = Clipboard.GetText
End Sub
3、SelStart 与 SelLength 属性：
SelStart ，选中文字的起始位置，返回的是选中文字的第一个字符的位置。SelLength ，选中文字的长度，返回的是选中文字的字符串个数。 例如：文字框 TxtContent 中有内容如下：
跟我一起学习 VB 神童教程
假设选中“一起学习”四个字，那么，SelStart 为 3 ，SelLength 为 4 。
4、MaxLength（最大长度）属性：
本属性限制了文字框中可以输入字符个数的最大限度，默认为 0 ，表示在文字框所能容纳的字符数之内没有限制，文字框所能容纳的字符个数是 64K ，如果超过这个范围，则应该用其他控件来代替文字框控件。
这跟 Windows 中用记事本打开档案一样，当档案过大，系统会自动调用写字板来打开档案，而不是用记事本。
文字框控件 MaxLength 属性既可以在界面设置过程中予以指定，如图四：
图四
也可以在设计时予以改变，代码如下：
文字框控件名.Maxlength = X（X为阿拉伯数字，如 10、20、57，等等）。
5、MultiLine（多行）属性：
本属性决定了文字框是否可以显示或输入多行文字，当值为 True ，文字框可以容纳多行文字；当值为 False ，文字框则只能容纳单行文字。
本属性只能在界面设置时指定，程式运行时不能加以改变。如图五：
图五
6、PasswordChar（密码）属性：
本属性主要用来作为口令功能进行使用。例如，若希望在密码框中显示星号，则可在“属性”窗口中将 PasswordChar 属性指定为 “*” 。这时，无论用户输入什么字符，文字框中都显示星号。如图六：
图六
在 VB 中，PasswordChar 属性的默认符号是星号，但你也可以指定为其他符号。但请注意，如果文字框控件的 MultiLine（多行）属性为 True ，那么文字框控件的 PasswordChar 属性将不起作用。
习题二：一个文字框（TxtPassword），PasswordChar 属性指定为星号“*”；一个按钮（CmdShow）；另外还有一个标签（LblShow），在初始状态下，Caption 为空。程式目的在于，点击 CmdShow 按钮，LblShow 能显示文字框控件中输入的密码。
答案：见本节后面的答案区。
7、ScrollBars（滚动条）属性：
本属性可以设置文字框是否有滚动条。当值为 0 ，文字框无滚动条；值为 1 ，只有横向滚动条；值为 2 ，只有纵向滚动条；值为 3 ，文字框的横竖滚动条都具有。如图七：
图七
8、Locked（锁定）属性：
当值为 False ，文字框中的内容可以编辑；当值为 True ，文字框中的内容不能编辑，只能查看或进行滚动操作。
二、文字框控件的事件：
除了 Click、DbClick 这些不常用的事件外，与文字框相关的主要事件是 Change、GotFocus、LostFocus 事件。
1、Change 事件：
当用户向文字框中输入新内容，或当程式把文字框控件的 Text 属性设置为新值时，触发 Change 事件。
2、GotFocus 事件：
本事件又名“获得焦点事件”。所谓获得焦点，其实就是指处于活动状态。在电脑日常操作中，我们常常用 Alt+Tab 键在各个程式中切换，处于活动中的程式获得了焦点，不处于活动的程式则失去了焦点（LostFocus）。
3、LostFocus 事件：
失去焦点，详情如上。 例子：一个文字框（TxtContent），默认状态下内容为空；当获得焦点时，文字框内容显示————“大家好，课程还难吗”字样；当失去焦点，文字框回到初始状态。另外再创建一个标签（LblShow），当用户试图向文字框输入文字或改变文字框本来的文字时，标签显示“标签的作用大家还清楚吗”字样。
界面如图八：
图八
程式如下：
文字框：
Private Sub TxtContent_GotFocus()
TxtContent.Text = "大家好，课程还难吗"
End Sub
Private Sub TxtContent_LostFocus()
TxtContent.Text = ""
End Sub
Private Sub TxtContent_Change()
LblShow.Caption = "标签的作用大家还清楚吗"
End Sub
三、知识点：
1、请记住，Clipboard 指的是 Windows 剪贴板，剪贴板最常用的操作是所选文字的拷贝与粘贴。
拷贝：
Clipboard.SetText 文字框名称.SelText
粘贴：
文字框名称.SelText = Clipboard.GetText
2、Multiline 属性为 True 时，文字框控件的 PasswrodChar 属性不起作用。
3、如果要让文字框的内容自动换行，只需取消文字框的横向滚动条就行了。
四、答案区：
习题一：
按钮一：
Private Sub Cmd1_Click()
TxtContent.Text = "跟我来学 VB 神童教程"
End Sub
按钮
图一
TextBox 控件主要用来显示文字或用来输入文字，如 Windows 登录时的“口令”窗口，或者记事本的整个编辑区域。
双击工具箱中的文字框控件或者单击文字控件，然后用鼠标在 VB 的工作区域拖拉，就可以创建文字框了。如图二：
图二
文字框控件的默认名称为 TextX（X为 1、2、3，等等），命名规则为 TxtX（X为用户自定义的名字，如 TxtShow、TxtFont、TxtColor ，等等）
一、文字框控件的主要属性：
1、Text（文字）属性：
本控件最重要的属性，用来显示文字框中的文字内容，可以在界面设置时指定，如图三：
图三
也可以在程式中动态修改，程式代码规则：
文字框控件名.Text = "欲显示的文字内容"
如要在一个名为 TxtFont 的文字框控件中显示“隶书”字样，那么输入代码：
TxtFont.Text = "隶书"
习题一：创建一个文字框（TxtContent）用来显示文字；按钮一（Cmd1），点击时文字框内容变为“跟我来学VB神童教程”；按钮二（Cmd2），点击时文字框内容清空（也就是没有内容）。
答案：见答案区。
2、SelText（选中文字）属性：
本属性返回或设置当前所选文字的字符串，如果没有选中的字符，那么返回值为空字符串即""。
请注意，本属性的结果是个返回值，或为空，或为选中的文字。
一般来说，选中文字属性跟档案复制、剪切等剪贴板（在 VB 中，剪贴板用 Clipboard 表示）操作有关，如要将文字框选中的文字拷贝到剪贴板上：
Clipboard.SetText 文字框名称.SelText（注意，本行没有表示赋值的等号。）
要将剪贴板上的文字粘贴到文字框内：
文字框名称.SelText = Clipboard.GetText（注意，本行有表示赋值的等号。）
例：一个文字框（TxtContent），按钮一（CmdCopy）用于复制文字框中的选中文字；按钮二（CmdPaste）用于将剪贴板上的内容粘贴到文字框内。
按钮一：
Private Sub CmdCopy_Click()
Clipboard.SetText TxtContent.SelText
End Sub
按钮二：
Private Sub CmdPaste_Click()
TxtContent.SelText = Clipboard.GetText
End Sub
3、SelStart 与 SelLength 属性：
SelStart ，选中文字的起始位置，返回的是选中文字的第一个字符的位置。SelLength ，选中文字的长度，返回的是选中文字的字符串个数。 例如：文字框 TxtContent 中有内容如下：
跟我一起学习 VB 神童教程
假设选中“一起学习”四个字，那么，SelStart 为 3 ，SelLength 为 4 。
4、MaxLength（最大长度）属性：
本属性限制了文字框中可以输入字符个数的最大限度，默认为 0 ，表示在文字框所能容纳的字符数之内没有限制，文字框所能容纳的字符个数是 64K ，如果超过这个范围，则应该用其他控件来代替文字框控件。
这跟 Windows 中用记事本打开档案一样，当档案过大，系统会自动调用写字板来打开档案，而不是用记事本。
文字框控件 MaxLength 属性既可以在界面设置过程中予以指定，如图四：
图四
也可以在设计时予以改变，代码如下：
文字框控件名.Maxlength = X（X为阿拉伯数字，如 10、20、57，等等）。
5、MultiLine（多行）属性：
本属性决定了文字框是否可以显示或输入多行文字，当值为 True ，文字框可以容纳多行文字；当值为 False ，文字框则只能容纳单行文字。
本属性只能在界面设置时指定，程式运行时不能加以改变。如图五：
图五
6、PasswordChar（密码）属性：
本属性主要用来作为口令功能进行使用。例如，若希望在密码框中显示星号，则可在“属性”窗口中将 PasswordChar 属性指定为 “*” 。这时，无论用户输入什么字符，文字框中都显示星号。如图六：
图六
在 VB 中，PasswordChar 属性的默认符号是星号，但你也可以指定为其他符号。但请注意，如果文字框控件的 MultiLine（多行）属性为 True ，那么文字框控件的 PasswordChar 属性将不起作用。
习题二：一个文字框（TxtPassword），PasswordChar 属性指定为星号“*”；一个按钮（CmdShow）；另外还有一个标签（LblShow），在初始状态下，Caption 为空。程式目的在于，点击 CmdShow 按钮，LblShow 能显示文字框控件中输入的密码。
答案：见本节后面的答案区。
7、ScrollBars（滚动条）属性：
本属性可以设置文字框是否有滚动条。当值为 0 ，文字框无滚动条；值为 1 ，只有横向滚动条；值为 2 ，只有纵向滚动条；值为 3 ，文字框的横竖滚动条都具有。如图七：
图七
8、Locked（锁定）属性：
当值为 False ，文字框中的内容可以编辑；当值为 True ，文字框中的内容不能编辑，只能查看或进行滚动操作。
二、文字框控件的事件：
除了 Click、DbClick 这些不常用的事件外，与文字框相关的主要事件是 Change、GotFocus、LostFocus 事件。
1、Change 事件：
当用户向文字框中输入新内容，或当程式把文字框控件的 Text 属性设置为新值时，触发 Change 事件。
2、GotFocus 事件：
本事件又名“获得焦点事件”。所谓获得焦点，其实就是指处于活动状态。在电脑日常操作中，我们常常用 Alt+Tab 键在各个程式中切换，处于活动中的程式获得了焦点，不处于活动的程式则失去了焦点（LostFocus）。
3、LostFocus 事件：
失去焦点，详情如上。 例子：一个文字框（TxtContent），默认状态下内容为空；当获得焦点时，文字框内容显示————“大家好，课程还难吗”字样；当失去焦点，文字框回到初始状态。另外再创建一个标签（LblShow），当用户试图向文字框输入文字或改变文字框本来的文字时，标签显示“标签的作用大家还清楚吗”字样。
界面如图八：
图八
程式如下：
文字框：
Private Sub TxtContent_GotFocus()
TxtContent.Text = "大家好，课程还难吗"
End Sub
Private Sub TxtContent_LostFocus()
TxtContent.Text = ""
End Sub
Private Sub TxtContent_Change()
LblShow.Caption = "标签的作用大家还清楚吗"
End Sub
三、知识点：
1、请记住，Clipboard 指的是 Windows 剪贴板，剪贴板最常用的操作是所选文字的拷贝与粘贴。
拷贝：
Clipboard.SetText 文字框名称.SelText
粘贴：
文字框名称.SelText = Clipboard.GetText
2、Multiline 属性为 True 时，文字框控件的 PasswrodChar 属性不起作用。
3、如果要让文字框的内容自动换行，只需取消文字框的横向滚动条就行了。
四、答案区：
习题一：
按钮一：
Private Sub Cmd1_Click()
TxtContent.Text = "跟我来学 VB 神童教程"
End Sub
按钮
