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

 

 

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

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

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

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

 

Dim temp As String

temp = "Updated: " & Date

With Text1

.SelStart = Len(.Text)

.SelText = vbNewLine & temp

End With

 

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

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

 

 

上一个：在文本框中实现由加减号输入数据
下一个：在打印字符串时自动换行