请问如何加载Access中ole类型的数据到richtextbox啊?

[NoReady]

请问如何加载Access中ole类型的数据到richtextbox啊(为了图文混合显示)？

我用如下代码，但是richtextbox却什么都没有（ms中绝对有内容）
Dim ms As New MemoryStream
rtxtContent.LoadFile(ms, RichTextBoxStreamType.PlainText)

[NoReady]

我是以这种方式保存进数据库的（数据他字段的格式为ole）：
Dim ms As New MemoryStream
rtxtContent.SaveFile(ms, RichTextBoxStreamType.RichNoOleObjs)
para = New OleDbParameter("@Content", OleDbType.VarBinary)
para.Value = ms.ToArray

dudu8686(飞飞) ,请问 你能具体地说说如何从剪切板拿回数据（包括使用哪种格式）？

[dudu8686]

MemoryStream 到 剪切版
剪切版 到 richtextbox

[NoReady]

好的，我试试

[NoReady]

还是不行啊，大哥！

[dudu8686]

以图像为例：：：

Dim btImage() As Byte = MyDateSet.Tables("MyTable").Rows(aaa).Item("HexapodImage")
Dim MStream As New System.IO.MemoryStream(btImage)

Dim MyBitmap As Image
MyBitmap = Image.FromStream(MStream)

Clipboard.SetDataObject(MyBitmap)

Dim MyFormat As DataFormats.Format = DataFormats.GetFormat(DataFormats.Bitmap)
If RichTextBox1.CanPaste(MyFormat) Then
RichTextBox1.Paste(MyFormat)
Else
MessageBox.Show("内存不足！")
End If
'清空剪切板
Dim data As Object
data = ""
Clipboard.SetDataObject(data)
'清空剪切板

[dudu8686]

把

Dim MyFormat As DataFormats.Format = DataFormats.GetFormat(DataFormats.Bitmap)

改为

Dim MyFormat As DataFormats.Format = DataFormats.GetFormat(DataFormats.rtf)

[dudu8686]

你在搞图文混排吗？呜呜.......我找到同行了！我在这个问题上痛苦了很久了，可以交流一下吗？？
QQ：231795583

http://expert.csdn.net/Expert/topic/2869/2869262.xml?temp=.472973

[NoReady]

谁有没有做过？

[NoReady]

没人解决的，也要结帐：）