以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  条码在表格中，怎么能居中放置呢？  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=161140)
--  作者：erdbeer
--  发布时间：2021/3/7 23:25:00
--  条码在表格中，怎么能居中放置呢？
  Dim doc As New PrintDoc() \'定义一个报表
  doc.PageSetting.Width = 100 \'纸张宽度为76毫米
  doc.PageSetting.Height = 120 \'纸张高度为102毫米
  doc.PageSetting.LeftMargin = 2 \'设置左边距
  doc.PageSetting.TopMargin = 1 \'设置上边距
  Dim rt As New prt.RenderTable()  \'定义一个表格对象
  Dim rx As New prt.RenderText \'定义一个文本对象
  Dim ra As New prt.RenderArea  \'定义一个容器
  Dim ra1 As New prt.RenderArea  \'定义一个容器
  Dim rm As prt.RenderImage     \'定义一个图片对象
  rt.Style.GridLines.All = New prt.LineDef  \'将网格线类型设为默认类型
  rt.SplitVertBehavior = prt.SplitBehaviorEnum.Never \'避免垂直换页的时候,表格被分割成两部分
  rt.CellStyle.Spacing.All = 1 \'单元格内容缩进1毫米
  rt.Width = 90   \'表格宽度为 72mm
  rt.Height = 110  \'设置表格的高度 95mm
  rt.Rows.Count = 5 \'设置总行数  0为第一行
  rt.Cells(1,0).SpanCols = 8 
      Dim img As prt.RenderImage
      Dim Bar As New BarCodeBuilder  \'定义一个条码对象
      Bar.Symbology = Barpro.Symbology.Code128   \'128格式条码
      ra1 = rt.Cells(1,0).Area \'引用单元格的容器,第2行
      bar.Code ="202103129-3"\' 条码内容
      bar.BarWidth = 0.48     \'窄条宽度
      bar.BarRatio = 0.5   \'条码宽窄比例
      bar.BarHeight = 8   \'条码高度
      Bar.QuietZoneWidth = 2  \'静区宽度
      Bar.CodeAlignment = Barpro.Alignment.BelowJustify
      Bar.BottomMargin = 1   \'条码离文字底下距离
      Bar.Font = New Font("宋体",12,FontStyle.Bold)
      rm = new prt.RenderImage
      rm.Image = bar.GetImage
     rm.Style.ImageAlign.AlignHorz = prt.ImageAlignHorzEnum.Center \'图片水平居中
     rm.Style.ImageAlign.AlignVert = prt.ImageAlignVertEnum.Center \'图片垂直居中
      ra1.Children.Add(rm) \'加入文本到RenderArea中

  doc.Body.Children.Add(rt)

doc.Preview() \'预览报表


如何可以将条码在格子中水平垂直都居中呢？
--  作者：有点蓝
--  发布时间：2021/3/8 8:47:00
--  

rm = new prt.RenderImage
rm.Image = bar.GetImage
rm.X = "(Parent.Width-Width)/2"
rm.Y = "(Parent.Height-Height)/2"
ra1.Children.Add(rm) \'加入文本到RenderArea中