以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]GetImage使用问题  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=105291)
--  作者：zhjun2017
--  发布时间：2017/8/16 12:27:00
--  [求助]GetImage使用问题
后面的代码：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)

--  作者：有点甜
--  发布时间：2017/8/16 12:34:00
--  

这样写，行不行？

 

rm.Image = GetImage("d:\\test.jpg") \'设置图片
--  作者：zhjun2017
--  发布时间：2017/8/16 13:01:00
--  
不行，
.NET Framework 版本：2.0.50727.5472
Foxtable 版本：2017.8.3.1
错误所在事件：窗口,产品出库,Button7,Click
详细错误信息：
未将对象引用设置到对象的实例。
--  作者：zhjun2017
--  发布时间：2017/8/16 13:11:00
--  
 Dim img,rm As prt.RenderImage====>>Dim img,rm As New prt.RenderImage  是这里的问题， 解决了，谢谢