【全部积分求解】写字板插入对象怎么实现？
我用richtextbox做了一个类似windows的写字板的程序，但是一直没有搞清楚怎么实现插入对象的功能。目前我是这样实现的
Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
On Error Resume Next
Select Case Button.Key
Case "插入对象"
dlgCommonDialog.CancelError = True
dlgCommonDialog.DialogTitle = "插入对象"
dlgCommonDialog.Filter = "所有图型文件|*.dib;*.bmp;*.wmf;*.emf;*.gif;*.jpg|" & _
"位图文件(*.bmp,*.dib)|*.bmp;*.dib|" & _
"GIF图像(*.gif)|*.gif|" & _
"JPEG图像(*.jpg)|*.jpg|" & _
"元文件(*.wmf,*.emf)|*.wmf;*.emf|" & _
"AutoCAD对象(*.dwg)|*.dwg|" & _
"图标文件(*.ico,*.cur|*.ico;*.cur|" & _
"所有文件(*.*)|*.*|"
dlgCommonDialog.flags = 1
dlgCommonDialog.ShowOpen
If Err <> mscomdlg.cdlCancel Then
zjjss.OLEObjects.Add , , dlgCommonDialog.FileName
End If
End Select
End Sub
这样是打开一个对话框，然后选择要插入的图形文件。但是我想要的是想写字板那样的对话框（如图），来实现插入公式等其它的东西。
请高手指点应该怎么实现？看到答案必加分～
[解决办法]
How To Display and Use the OLE Insert Object Dialog Box in VB
[解决办法]
VB中插入对象 http://www.21tx.com/dev/2005/05/01/12508.html
