后面的代码：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)
加好友 
发短信
Post By：2017/8/16 12:27:00 [只看该作者]
