文本框的使用说明与技巧

核心提示：1、控制文本框中输入的内容例如我们只要求在文本框中输入数字，而不允许出现其它字符，文本框的使用说明与技巧，则我们使用KEYPRESS事件并检查KeyAscii参数即可，KeyAscii参数用来保存键盘所用的ANSI码（不是ASCII码），它可以得到已经选中的文本，4、如何在已经存在的文本的textbox添加新的一行Di

1、控制文本框中输入的内容

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

　　　PrivateSubText_KeyPress(KeyAsciiAsInteger)
　　　ifKeyAscii＜Asc("0")OrKeyAscii＞Asc("9")then
　　　　　KeyAscii=0
　　　endif
　　　endsub

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

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

　　　filename="c:\myext.txt"
　　　OpenfilenameForInputAs#1
　　　Text.Text=Input$(Lof(1),#1)
　　　Close#1

　　　filename="c:\myext.txt"
　　　onerrorresumenext
　　　open"c:\file.txt"foroutputas#1
　　　print#1,text1.text
　　　close#1

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

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

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

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

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

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

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