查看完整版本: 下面的代码是在RichtextBox中插入图片

下面的代码是在RichtextBox中插入图片

在QQ上，Kingbor要在richtextbox中如何插入图片的方法，因为白天在公司，有头没有东西，下面的代码是以前写的，可以参考一下，ComDialog1是一个Windows对话框控件，RTBox1是RichTextBox控件，代码很简单，不再多说了。
下面的代码是在RichtextBox中插入图片
[code]
On Error Resume Next
ComDialog1.CancelError = True
ComDialog1.DialogTitle = "插入图片"
ComDialog1.Filter = "所有图型文件|*.dib;*.bmp;*.wmf;*.emf;*.gif;*.jpg|" & _
         "位图文件(*.bmp,*.dib)|*.bmp;*.dib|" & _
         "GIF图像(*.gif)|*.gif|" & _
         "JPEG图像(*.jpg)|*.jpg|" & _
         "元文件(*.wmf,*.emf)|*.wmf;*.emf|" & _
         "图标文件(*.ico,*.cur|*.ico;*.cur|" & _
         "所有文件(*.*)|*.*|"
ComDialog1.flags = 1
ComDialog1.ShowOpen

If Err <> mscomdlg.cdlCancel Then
         RTBox1.OLEObjects.Add , , ComDialog1.Filename
         If Err <> 0 Then MsgBox Error
End If

[/code]

:(

在RTbox里面,我插入图片后,该怎么处理数据!:

Rtbox.text=Rtbox.tetx+a.text

我以前的图片没了, 好像不能用Text属性来取数据哦!

使用RTF的Text只能取到里面的方本数据，不包括文件格式和OLE对名象的信息，只能通过TextRTF属性来取里面的数据。