第四讲TextBox的使用（一）文本框控件在工具箱中的名称为TextBox，在VB中，可以使用文本框控件输入、输出数据。一、属性：（1）Text属性：字符串类型。返回或设置文本框中显示的内容。例如：Text1.text=”年年有余”（2）MultiLine属性：布尔型。当MultiLine属性为True时，文本框可以输入或显示多行文本。（3）Passwordchar属性：字符串类型。当MultiLine属性值为False时，该属性可以用于口令输入。如果把Passwordchar属性设置为一个字符，如星号（*），则在文本框中键入字符时，只显示星号，不显示键入的字符。（4）ScrollBars属性：数值型。该属性用于确定文本框是否带滚动条。有以下4种选择：0-None没有滚动条1-Horizontal只有水平滚动条2-Vertical只有垂直滚动条3-Both同时具有水平和垂直滚动条只有当MultiLine属性值为True时，文本框才显示滚动条。二、事件：文本框除了支持鼠标的Click、DblClick事件外，还支持Change、GotFocus、LostFocus、KeyPress等事件。本节课，我们先学习Change事件。（1）Change事件：当用户向文本框输入新的内容，或在程序代码中对文本框的Text属性进行赋值从而改变了文本框的Text属性时，将触发Change事件。（2）示例：建立两个文本框，名称分别为：t1、t2。运行时，用户在文本框t1中输入内容的同时，文本框t2显示相同的内容。程序代码：PrivateSubt1_Change()t2.Text=t1.TextEndSub三、综合练习（界面如下图所示）：1、属性设置如下：2、程序代码如下：PrivateSubCommand1_Click()t3.Text=t1.TextEndSub------------------------------------------------------------------PrivateSubCommand2_Click()t1.Text=""t2.Text=""t3.Text=""EndSub------------------------------------------------------------------PrivateSubCommand3_Click()EndEndSubPrivateSubCommand4_Click()t3.Text=t1.Text&t2.TextEndSub------------------------------------------------------------------PrivateSubt1_Change()t2.Text=t1.TextEndSub
