有一种笨方法,可以让你将串字符插入文本框中文本的指定位置,那就是在插入点

处将文本分割成两部分,再将要插入的字符同这两部分的文本拼接起来。这种方法

费时且不好控制。本文要介绍的就是一种方便而快捷的方法。下面的代码另起一行

并将一串字符插入文本的结尾(文本框的MultiLine属性为真)。

 

Dim temp As String

temp = "Updated: " & Date

With Text1

.SelStart = Len(.Text)

.SelText = vbNewLine & temp

End With

 

如果你将上面的vbNewLine去掉,再将SelStart属性的值换成你想插入文本的位置,

就可以在文本的任意地方插入文本了。