Foxtable(狐表)用户栏目专家坐堂 → [求助]GetImage使用问题


  共有1509人关注过本帖树形打印复制链接

主题:[求助]GetImage使用问题

帅哥哟,离线,有人找我吗?
zhjun2017
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:20 积分:247 威望:0 精华:0 注册:2017/8/10 8:10:00
[求助]GetImage使用问题  发帖心情 Post By:2017/8/16 12:27:00 [只看该作者]

后面的代码:rm.Image = GetImage("guoxing.BMP") '设置图片
图片已经放进images文件夹了,可是还是报“未将对象设置到对象实例”
我用错了吗?老师教下我,谢谢
    
    Dim ra As New prt.RenderArea
            doc.PageSetting.Width =64
            doc.PageSetting.Height =45
            ra.Width ="Parent.Width"
            ra.Height ="Parent.Height"
            Dim rbc As New prt.RenderBarCode
            Dim rt As prt.RenderText
            Doc.PageSetting.LeftMargin =2.5
            Doc.PageSetting.RightMargin =0
            Doc.PageSetting.TopMargin =1
            Doc.PageSetting.BottomMargin =0
            ra.SplitHorzBehavior = prt.SplitBehaviorEnum.Never
            ra.SplitVertBehavior = prt.SplitBehaviorEnum.Never
            ra.Style.Font = New Font("宋体",10)
            Doc.Body.ChildRen.Add(ra)
            rbc.BarCodeType = barc
            rbc.BarDirection = BarDirectionEnum.Normal
            doc.Body.Children.Add(rbc)
            
            Dim img,rm As prt.RenderImage
            Dim Bar As New BarCodeBuilder
            Bar.Symbology = Barpro.Symbology.Code128
            Bar.BarRatio = 0.3 '窄宽比例0.3-2
            Bar.BarHeight = 4  '条码高度3-8
            'Bar.BarWidth = 0.2642 '窄条宽度0.2642
            'Bar.AddCheckSum = True  '增加校验
            Bar.QuietZoneWidth = 1 '静区宽度0-2
            
            Bar.DisplayCode =False  'False 显示文字
            Bar.DisplayChecksum = False  '不显示校验码
            Bar.DisplayStartStopChar =False   '不显示起始码

            messagebox.show(1)
   rm.Image = GetImage("guoxing.BMP") '设置图片
            messagebox.show(2)
   rm.Width = 10 '宽度等于页面宽度
   rm.Height = 10 '高度由图片大小自动决定
   ra.Children.Add(rm)


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/8/16 12:34:00 [只看该作者]

这样写,行不行?

 

rm.Image = GetImage("d:\test.jpg") '设置图片


 回到顶部
帅哥哟,离线,有人找我吗?
zhjun2017
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:20 积分:247 威望:0 精华:0 注册:2017/8/10 8:10:00
  发帖心情 Post By:2017/8/16 13:01:00 [只看该作者]

不行,
.NET Framework 版本:2.0.50727.5472
Foxtable 版本:2017.8.3.1
错误所在事件:窗口,产品出库,Button7,Click
详细错误信息:
未将对象引用设置到对象的实例。


 回到顶部
帅哥哟,离线,有人找我吗?
zhjun2017
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:20 积分:247 威望:0 精华:0 注册:2017/8/10 8:10:00
  发帖心情 Post By:2017/8/16 13:11:00 [只看该作者]

 Dim img,rm As prt.RenderImage====>>Dim img,rm As New prt.RenderImage  是这里的问题, 解决了,谢谢

 回到顶部