VB 技巧 - 文本框使用技巧

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常数,它的意义是插入一个换行符。

 

Copyright 2000-2015 Gogusoft Software Co.,Ltd
 
 
长春市勾股软件有限责任公司
销售电话:043188833276(长春) 0755-32978958 (深圳)
电子信箱:销售sales@gogusoft.com 技术 tech@gogusoft.com 招聘 job@gogusoft.com
公司地址:长春市绿园区长白公路7777号 邮编:130012