有没有方法在richtext中插入gif动画和各种图片

Question

1.用oleobject插入gif动画会直接弹出windows图片浏览器,而不是在文本框里直接显示.怎么才能在框里显示(40分)
2.bmp图片可以显示但是会有个绘图程序的菜单...怎么让他不出现??
我是这样插入的....(10分)
RichTextBox1.OLEObjects.Add , , App.Path & "\c663dn5a.bmp"
紧急..在线等......

Answer 1

郁闷,这个问题我搞了好几天了.....希望实现像QQ里Textbox那样的功能,可我就是不会插入动画..利用第三方控件有不知道怎么让动画符合文字的位置.....郁闷啊

Answer 2

Option ExplicitPrivate Sub Command1_Click()
Clipboard.Clear
Clipboard.SetData LoadPicture("c:\xxx.jpg") '复制
RichTextBox1.SetFocus
SendKeys "^{end}" '到末尾
SendKeys "+{insert}" '粘贴图片
End SubPrivate Sub Form_Load()
RichTextBox1.Text = String(100, "x")
End Sub