我用如下代码,但是richtextbox却什么都没有(ms中绝对有内容)
Dim ms As New MemoryStream
rtxtContent.LoadFile(ms, RichTextBoxStreamType.PlainText)
...全文
1509打赏收藏
请问如何加载Access中ole类型的数据到richtextbox啊?
请问如何加载Access中ole类型的数据到richtextbox啊(为了图文混合显示)? 我用如下代码,但是richtextbox却什么都没有(ms中绝对有内容) Dim ms As New MemoryStream rtxtContent.LoadFile(ms, RichTextBoxStreamType.PlainText)
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)
'清空剪切板
我是以这种方式保存进数据库的(数据他字段的格式为ole):
Dim ms As New MemoryStream
rtxtContent.SaveFile(ms, RichTextBoxStreamType.RichNoOleObjs)
para = New OleDbParameter("@Content", OleDbType.VarBinary)
para.Value = ms.ToArray