×

关注微信公众号

免备案网站空间虚拟主机双线空间域名查询PS数码后期
photoshop互助课堂数百G视频教程下载英语培训机构初中英语如何学随时随地聆听大师开讲/课堂
酷素材!视频教程打包下手绘教程抠图教程路径专辑photoshop cs3视频教程
查看: 3687|回复: 10

[vb,vc,delphi] 用Rich TextBox控件显示图文数据如何插入图片

[复制链接]
发表于 2010-7-4 11:45:29 | 显示全部楼层 |阅读模式
主程序代码:
Dim Intext As String
private sub command-(下画线)click()'打开文本文件
commonl.filter="文本文件(*.TXT)/*.TXT/rtf文件(*.rtf)/*.rtf:commonl.showopen
if commonl.Filter=""Then
rich1.text=""
else
  rich1.Text=''':strs=""
  open(commonl.filename)for Input As #1
  DO while not EOF(1)
        Line input #1,intext:strs=strs+Intext
    Loop
  cose #1
  rich1.text=strs:commonl.filename=""
  end if
end  sub
private sub command3-(下画线)click()'插入图片
   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
      end   sub
帮我看看,这个代码为什么不能插入图片啊,有什么地方那个要注意的啊,大虾们谢谢了!!!~~~~~~~
本帖的地址:http://bbs.jcwcn.com/forum.php?mod=viewthread&tid=312573
跟着教程做一遍,做完的图要到这里评论交作业,教程有看不懂的地方,可以在贴子下面评论
发表于 2018-7-12 09:49:19 | 显示全部楼层
酷素材
楼主是超人
回复 支持 反对

使用道具 举报

发表于 2018-7-12 10:17:44 | 显示全部楼层
好帖就是要顶
回复 支持 反对

使用道具 举报

发表于 2018-7-12 09:25:00 | 显示全部楼层
难得一见的好帖
回复 支持 反对

使用道具 举报

发表于 2018-7-12 09:35:34 | 显示全部楼层
酷素材
好帖子要收藏
回复 支持 反对

使用道具 举报

发表于 2018-7-12 09:53:52 | 显示全部楼层
酷素材
教程网我挺你
回复 支持 反对

使用道具 举报

发表于 昨天 18:24 | 显示全部楼层
好帖就是要顶
回复 支持 反对

使用道具 举报

发表于 昨天 18:52 | 显示全部楼层
很好哦。。。
回复 支持 反对

使用道具 举报

发表于 昨天 18:12 | 显示全部楼层
不错不错
回复 支持 反对

使用道具 举报

发表于 昨天 17:54 | 显示全部楼层
LZ真是人才
回复 支持 反对

使用道具 举报

发表于 昨天 17:58 | 显示全部楼层
楼主我支持你
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | [立即注册]

本版积分规则