• 主页
  • VBS
  • .NET技术
  • VBA
  • VB网络编程
  • VB多媒体
  • VB数据库
  • VB控件
  • VB COM/DCOM
  • VB基础类
  • VB API

请问如何加载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)
...全文
88 点赞 收藏 9
写回复
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(飞飞) ,请问 你能具体地说说如何从剪切板拿回数据(包括使用哪种格式)?
回复 点赞
发动态
发帖子
VB
创建于2007-09-28

1.1w+

社区成员

11.0w+

社区内容

VB技术相关讨论,主要为经典vb,即VB6.0
社区公告
暂无公告