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

NoReady 2004-03-22 08:33:36
请问如何加载Access中ole类型的数据到richtextbox啊(为了图文混合显示)?

我用如下代码,但是richtextbox却什么都没有(ms中绝对有内容)
Dim ms As New MemoryStream
rtxtContent.LoadFile(ms, RichTextBoxStreamType.PlainText)
...全文
150 9 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
9 条回复
切换为时间正序
请发表友善的回复…
发表回复
NoReady 2004-09-11
  • 打赏
  • 举报
回复
没人解决的,也要结帐:)
NoReady 2004-03-25
  • 打赏
  • 举报
回复
谁有没有做过?
dudu8686 2004-03-23
  • 打赏
  • 举报
回复
你在搞图文混排吗?呜呜.......我找到同行了!我在这个问题上痛苦了很久了,可以交流一下吗??
QQ:231795583

http://expert.csdn.net/Expert/topic/2869/2869262.xml?temp=.472973
dudu8686 2004-03-23
  • 打赏
  • 举报
回复


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

改为

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

dudu8686 2004-03-23
  • 打赏
  • 举报
回复
以图像为例:::

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)
'清空剪切板
NoReady 2004-03-23
  • 打赏
  • 举报
回复
还是不行啊,大哥!
NoReady 2004-03-22
  • 打赏
  • 举报
回复
好的,我试试
dudu8686 2004-03-22
  • 打赏
  • 举报
回复
MemoryStream 到 剪切版
剪切版 到 richtextbox
NoReady 2004-03-22
  • 打赏
  • 举报
回复
我是以这种方式保存进数据库的(数据他字段的格式为ole):
Dim ms As New MemoryStream
rtxtContent.SaveFile(ms, RichTextBoxStreamType.RichNoOleObjs)
para = New OleDbParameter("@Content", OleDbType.VarBinary)
para.Value = ms.ToArray

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

16,721

社区成员

发帖
与我相关
我的任务
社区描述
VB技术相关讨论,主要为经典vb,即VB6.0
社区管理员
  • VB.NET
  • 水哥阿乐
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧