以下代码有什么问题,为什么预览无法显示条码图片?
'前面已定义FSDoc,以下为代码节选。
Dim Bar As New BarCodeBuilder
Bar.Symbology = Barpro.Symbology.Code128
Bar.Code = "YYWW0001001"
Bar.BarWidth = 0.5
Bar.BarRatio = 1
Bar.BarHeight = 12
Bar.QuietZoneWidth = 1
Bar.DisplayCode = False
Bar.SaveImage(ProjectPath & "\Images\TEMP.ico", 600)
'载入条码
Dim BarCode As New prt.RenderImage
BarCode.Image = GetImage("TEMP.ico")
BarCode.Style.Borders.All = New prt.Linedef(0, Color.White)
BarCode.X = 50
BarCode.Y = 50
FSDoc.Body.Children.Add(BarCode)