文本框属性

vb文本框属性:VB文本框的常用属性2008-12-12 09:35文本框是一个文本编辑区。可以在设计阶段或运行期间在这个区域中输入、编辑、修改和显示文本，类似于一个简单的文本编辑器。
l-常用属性
文本框基本属性：
Name、text、：Height、Width、Top、Left、Enabled、Visible、FontName、FontSize、FontBold、FontItalic、FontUnderline、A lignment、BorderStyle等。
文本框特有属性：
(1)Text文本属性
在文本框中显示正文的内容存放在Text属性中。
(2)．MaxI~ength属性
设置文本框中能够输入的正文内容的最大长度。0：缺省值，为系统允许的最长度；非零值：文本框中的字符数的最大值，一个英文字符与一个汉字都为1，整理发布。
(3)MultiI,ine属性
True：则可使用多行文本，即在文本框中输入或显示文本时可换行。按crtl+Enter键可以插入一个空行；False：则在文本框中只能输入单行文本。
(4)PasswordChar属性
该属性可用于口令输入。在默认状态下，该属性被设置为空字符串(不是空格)，当用户从键盘上输入时，每个字符都可以在文本框中显示出来。如果把PasswordChar属性设置为一个字符，例如星号(★)，则在文本框中输入字符时，显示的不是输入的字符，而是被设置的字符(如星号)。不过文本框中的实际内容仍是输入的文本，只是显示结果改变了。利用这一特性，可以用作设置口令的输入，，www. 。
(5)ScrollBars属性
该属性用来确定文本框中是否有滚动条。O—None：无滚动条；1一Hotizontal：加水平滚动条；2一Vertical：加垂直滚动条；3一Both：同时加水平和垂直滚动条。
说明：
当MuhiI,ine多行属性为True时，ScrollBars属性才有效。当文本框具有水平或垂直滚动条后，文本框中文本的自动换行功能不起作用，只能通过回车键换行。
(6)I,ocked属性
False：表示可以编辑，默认值为False；Tme：文本控件相当于标签的作用，不能被编辑。
(7)SelStart、SelLength、SelText属性
在程序中，对文本内容进行选择时，这3个属性用来标识用户选中的正文。
SelStart：选定正文的开始位置，第一个字符的位置是0。
Selcength：选定正文长度。
SelText：选定正文内容。
设置了SelStarl和SelI~ength属性后，VB会自动将设定的正文送入SelText属性存放。这些属性一般用于在文本编辑中设置插入点及范围，选择字符串，清除文本等，并且经常与剪贴板一起使用，完成文本信息的剪切、拷贝、粘贴等功能
常用事件
文本框的常用事件有Change、KeyPress和LostFocus3种。
(1)Change事件
当用户向文本框中输入新信息，或当程序把Text属性设置为新值从而改变其Text属性时，将触发Change事件，程序运行后，在文本框中每输入一个字符，就会引发一

次Change事件。
(2)KeyPress事件
当用户按下并释放键盘上的一个ANSI键时，就会引发焦点所在控件的KeyPress事件，此事件会返回一个KeyAscii参数到该事件过程中。例如，当用户输入字符“a”，返回KeyAscii的值为97，通过Chr(KeyAscii)可以将ASCII码转换为字符“a”，。
KeyPress事件同Change事件一样，每输入一个字符就会引发一次该事件；事件中最常用的是对键人的是否为回车符(KeyAscii的值为13)的判断，表示文本的输入结束。
(3)LostFocus事件
当按下Tab键使光标离开当前文本框或者用鼠标选择窗体中的其他对象时，触发该事件，用Change事件和LostFocus事件过程都可以检查文本框的Text属性值，但后者更有效，，www. 。
常用方法
SetFocus是文本框中常用的方法。
格式：[对象．]SetFocus
功能：该方法可以把光标移到指定的文本框中，当在窗体上建立了多个文本框后，可以用该方法把光标置于所需要的文本框中。
在程序设计中，文本框有着重要的作用。
用Change事件改变文本框的Text属性值。
(1)建立用户界面
在窗体上建立3个文本框：Textl、Text2、Text3，3个命令按钮：Commandl、Command2、Command3。文本框的设计屏幕，文本框的执行屏幕。

(2)设置对象的属性
控件的Name属性取其默认值，分别为：Textl、Text2、Text3和Commandl、Command2、Command3。
VB 技巧 - 文本框使用技巧[3]2009年10月26日 星期一 上午 10:02 1、控制文本框中输入的内容

例如我们只要求在文本框中输入数字，而不允许出现其它字符，则我们使用KEYPRESS事件并检查KeyAscii参数即可，KeyAscii参数用来保存键盘所用的ANSI码（不是ASCII码），下面是一个例子：

Private Sub Text_KeyPress(KeyAscii As Integer)
if KeyAscii < Asc("0") Or KeyAscii > Asc("9") then
KeyAscii=0
end if
end sub

2、从外部文本文件读入和从文本框中写出内容到文件内容：

有时我们需要从外部的文本文件中读入到文本框中，或是把输入到文本框中的内容保存到文件中，这时可以通过对文件操作的几个语句来实现，其中 Open 语句能够对文件输入/输出，LOF函数返回一个 Long型值，表示用 Open 语句打开的文件的大小，该大小以字节为单位。Input函数从文件中读入数据，而Print函数则把数据写到文件中。具体的代码如下面的实例，需要注意的是文本框只能打开大小在32K以下的文本文件，否则会出现错误。

filename="c:myext.txt"
Open filename For Input As #1
Text.Text=Input$(Lof(1),#1)
Close #1

filename="c:myext.txt"
on error resume next
open "c:file.txt" for output as #1
print #1,text1.text
close #1

3、怎样把文本框中的文本全部选中

这需要使用文本框的属性SelStart和SelLength属性，SelStart表示选择文本的开始，SelLength表示要选中文本的长度，采用以下两句代码就行了。

Text1.SelStart = 0
Text1.SelLength = Len(Text1.Text)

另外顺便提一下SelText属性，它可以得到已经选中的文本。

4、如何在已经存在的文本的textbox添加新的一行

Dim strNewText As String
Text1.strNewText = "Updated: " & Date
Text1.SelStart = Len(Text1.Text)
Text1.SelText = vbNewLine & strNewText

实现的关键是vbNewLine常数，它的意义是插入一个换行符