以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]专业报表无法预览条码图片问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=98529)
--  作者：WENFEIZHU
--  发布时间：2017/3/31 13:00:00
--  [求助]专业报表无法预览条码图片问题

以下代码有什么问题，为什么预览无法显示条码图片？

 

\'前面已定义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)
--  作者：WENFEIZHU
--  发布时间：2017/3/31 13:54:00
--  

请专家帮忙回复下~谢谢~
--  作者：有点色
--  发布时间：2017/3/31 14:09:00
--  
Dim FSDoc As new PrintDoc
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.jpg", 600)
\'载入条码
Dim BarCode As New prt.RenderImage
BarCode.Image = bar.GetImage
BarCode.Style.Borders.All = New prt.Linedef(0, Color.White)
BarCode.X = 50
BarCode.Y = 50
FSDoc.Body.Children.Add(BarCode)
FSDoc.Preview
--  作者：有点色
--  发布时间：2017/3/31 14:11:00
--  

直接写也可以啊

 

http://www.foxtable.com/webhelp/scr/2093.htm

 
--  作者：WENFEIZHU
--  发布时间：2017/3/31 14:54:00
--  

谢谢，已经会玩了，另外问个问题。

 


此主题相关图片如下：捕获.jpg
按此在新窗口浏览图片

如何让barcode对象在页面中水平居右显示，我用了以下属性，均不行。

 

 

Bar.Style.TextAlignHorz = prt.AlignHorzEnum.Right

 

Or


Bar.Style.ImageAlign.AlignHorz = prt.ImageAlignHorzEnum.rIGHT

[此贴子已经被作者于2017/3/31 14:55:25编辑过]
--  作者：有点色
--  发布时间：2017/3/31 15:01:00
--  

方法一：用x、y指定位置

 

BarCode.X = 50
BarCode.Y = 50

 

方法二：你可以用表格来布局，控制单元格内容的停靠