• 主页
  • 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
社区公告
暂无公告