vb神童教程第二章第二节TextBox控件.doc

在VisualBasic操作界面中，TextBox（文本框）控件所代表的图标如图一:图一TextBox控件主要用来显示文本或用来输入文本，如Windows登陆时的“口令”窗口，或者记事本的整个编辑区域双击工具箱中的文本框控件或者单击文本控件，然后用鼠标在VB的工作区域拖拉，就可以创建文本框了如图二:图二文本框控件的默认名称为TextX（X为1、2、3，等等），命名规则为TxtX（X为用户自定义的名字，如TxtShow、TxtFont、TxtColor，等等）一、文本框控件的主要属性:1、Text（文本）属性：本控件最重要的属性，用来显示文本框中的文本内容，可以在界面设置时指定，如图三图三也可以在程序中动态修改，程序代码规则：文本框控件名.Text="欲显示的文本内容"如要在一个名为TxtFont的文本框控件中显示“隶书”字样，那么输入代码：TxtFont.Text="隶书"习题一：创建一个文本框（TxtContent）用来显示文本；按钮一（Cmdl），点击时文本框内容变为“跟我来学VB神童教程”；按钮二（Cmd2），点击时文本框内容清空（也就是没有内容）答案：见答案区2、SelText（选中文本）属性：本属性返回或设置当前所选文本的字符串，如果没有选中的字符，那么返回值为空字符串即""。

请注意，本属性的结果是个返回值，或为空，或为选中的文本一般来说，选中文本属性跟文件复制、剪切等剪贴板（在VB中，剪贴板用Clipboard表示）操作有关，如要将文本框选中的文本拷贝到剪贴板上：Clipboard.SetText文本框名称.SelText（注意，本行没有表示赋值的等号要将剪贴板上的文本粘贴到文本框内：文本框名称.SelText=Clipboard.GetText（注意，本行有表示赋值的等号例：一个文本框（TxtContent），按钮一（CmdCopy）用于复制文本框中的选中文本；按钮二（CmdPaste）用于将剪贴板上的内容粘贴到文本框内按钮一：PrivateSubCmdCopy_Click（）Clipboard.SetTextTxtContent.SelTextEndSub按钮二：PrivateSubCmdPaste_Click（）TxtContent.SelText=Clipboard.GetTextEndSub3、SelStart与SelLength属性：SelStart，选中文本的起始位置，返回的是选中文本的第一个字符的位置SelLength，选中文本的长度，返回的是选中文本的字符串个数。

例如：文本框TxtContent中有内容如下：跟我一起学习VB神童教程假设选中“一起学习”四个字，那么，SelStart为3,SelLength为44、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)，当用户试图向文本框输入文本或改变文本框本来的文本时，标签显示“标签的作用大家还清楚吗”字样界面如图八：图八程序如下：文本框：PrivateSubTxtContent_GotFocus()TxtContent.Text="大家好，课程还难吗"EndSubPrivateSubTxtContent_LostFocus()TxtContent.Text=""EndSubPrivateSubTxtContent_Change()LblShow.Caption="标签的作用大家还清楚吗"EndSub三、知识点：1、请记住，Clipboard指的是Windows剪贴板，剪贴板最常用的操作是所选文本的拷贝与粘贴。

拷贝：Clipboard.SetText文本框名称.SelText粘贴：文本框名称.SelText=Clipboard.GetText2、Multiline属性为True时，文本框控件的PasswrodChar属性不起作用3、如果要让文本框的内容自动换行，只需取消文本框的横向滚动条就行了四、答案区：习题一：按钮一：PrivateSubCmd1_Click()TxtContent.Text="跟我来学VB神童教程"EndSub按钮二：PrivateSubCmd2_Click()TxtContent.Text=""EndSub习题二：按钮：PrivateSubCmdShow_Click()LblShow.Caption=TxtPassword.TextEndSub。