vb问题 Richtextbox 如何增加内容

来源：百度知道 编辑：UC知道 时间：2024/05/30 10:27:56
界面有一个richtextbox控件
里面的格式和内容已经提前写好了一部分
请问：怎样用代码实现在richtextbox控件最后面增加文字内容,而且不会影响到前面已经输入好的格式和内容。

谢谢
朋友ljl88900 的方法确实可行
不过增加的内容总在第一行，怎样才能加在鼠标指定的地方呢？
还得麻烦朋友你！谢谢

另外不知道朋友有没有可以对word文档进行文本和插入图像操作的源代码实例，本人现在对此头疼不已，谢谢
邮箱：skygress@sohu.com

采纳答案后 追加50分！

根据补充信息，修改如下：
楼上几位的方法都会使Richtextbox格式发生变化。
我的做法是通过API来实现：

一、把下面代码放入模块中：
Option Explicit
Private Declare Function SendMessage Lib "User32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Declare Function SendMessageByNum Lib "User32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Private Declare Function SendMessageByString Lib "User32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As String) As Long
Private Const EM_LINELENGTH = &HC1
Private Const EM_REPLACESEL = &HC2
Private Const EM_SETSEL = &HB1
Private Const EM_GETSEL = &HB0

Public Sub AddText(RichTextBoxName As Object, SendString As String, Optional Position As String)
Dim K As Long, Hwd As Long
Hwd = RichTe