您所在位置：主题：在richtext中加入图片的算法，请大侠更正
hyingjiu
[专家分：0] 发布于 2008-07-29 15:44:00
Common1.Filter = "bmp文件（*.bmp）|*.bmp|jpg 文件（*.jpg）|*.jpg|ico 文件（*.ico）|*.ico"
Common1.ShowOpen
If Common1.FileName = "" Then
Exit Sub
Else
Rich1.OLEObjects.Add , , Common1.FileName, "" '向控件中插入所选取的图片
End If
'common1为通用对话框的名称
VB系统提示“ACTIVEX控件不能创建对象",程序有什么问题？
Common1.ShowOpen
If Common1.FileName = "" Then
Exit Sub
Else
Rich1.OLEObjects.Add , , Common1.FileName, "" '向控件中插入所选取的图片
End If
'common1为通用对话框的名称
VB系统提示“ACTIVEX控件不能创建对象",程序有什么问题？
