137.txt

VB文章集（含API、窗口、数据库、多媒体、系统、文件、等等）

在文本框中快速增加一串字符

有一种笨方法，可以让你将串字符插入文本框中文本的指定位置，那就是在插入点
处将文本分割成两部分，再将要插入的字符同这两部分的文本拼接起来。这种方法
费时且不好控制。本文要介绍的就是一种方便而快捷的方法。下面的代码另起一行
并将一串字符插入文本的结尾（文本框的MultiLine属性为真)。

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

如果你将上面的vbNewLine去掉，再将SelStart属性的值换成你想插入文本的位置，
就可以在文本的任意地方插入文本了。