文本框属性

文本框属性 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常数，它的意义是插入一个换行符