|
 |
推荐文章 |
|
|
|
|
|
|
|
|
|
|
| 作者：本站收集 日期：2005-8-4 11:32:17 |
|
|
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常数，它的意义是插入一个换行符。 |
|
|
|
|
|
特别声明： 本站除部分特别声明禁止转载的专稿外的其他文章可以自由转载，但请务必注明出处和原始作者。文章版权归文章原始作者所有。对于被本站转载文章的个人和网站，我们表示深深的谢意。如果本站转载的文章有版权问题请联系编辑人员，我们尽快予以更正。 |
|
|
|
|
|
责任编辑： 原点 |
投稿作者： 本站收集 |
|
|
信息来源： 网络 |
录入时间： 2005-8-4 11:32:17 |
|
|
|
| |
|
设为首页
加入收藏
总编信箱
投稿或申请专栏请先 [登 陆]