richtextbox中插入图片的问题(2个,可以加分)

Question

1.在richtextbox中插入图片时候我遇到了一个问题,就是假如你在richtextbox中先输入中国两个字,然后导入一个图片,结果图片插入到了中字和国字中间,寻求原因,并寻找解决办法
2.如何确定图片的位置的一个问题,就是在richtextbox中输入文字,字母,图片等等,如何确定图片在第几个字符的后面?这个问题大家如果有思路都可以说出来,正确与否我可以进行测试.

Answer 1

问题1使用的这个方法
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  
 
PicCopy.Picture  =  LoadPicture("C:=\aa.bmp")  
Clipboard.SetData  PicCopy.Image  '将图形内容拷贝到剪贴板  
 
SendMessage  Richtextbox1.hwnd,  WM_PASTE,  0,  0  '插入到RICHTEXTBOX控件中

Answer 2

或者用
RichTextBox1.OLEObjects.Add , , App.Path & "\smile.bmp"

Answer 3

'光标到RichTextBox1的末尾
RichTextBox1.SelStart = Len(RichTextBox1)

Answer 4

对不起,我还是有一点不太明白,怎么我添加的图片都在图片浏览器中打开?而不是在richtextbox中打开?
能不能详细说明一下.谢谢

Answer 5

我使用了OLE的方法,也是只在图片浏览器中打开,在richtextbox中仅仅显示图片的名字,不知道是什么原因,请各位大侠给解释一下,谢谢

Answer 6

我好象知道原因了,用你所说的方法只可以添加位图,而对于jpeg格式的文件,只显示名字,图片在图片浏览器中打开的

Answer 7

装个看图软件,
RichTextBox1.OLEObjects.Add 
这种插入会插入同时打开该图片(关联程序)