以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp) --  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2) ----  [求助]如何用代码吧条形码旋转90度，处于垂直状态？  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=141972)

--  作者：zto001 --  发布时间：2019/10/15 14:19:00 --  [求助]如何用代码吧条形码旋转90度，处于垂直状态？ Dim rg As New prt.RenderGraphics Dim Bar As New BarCodeBuilder Bar.Symbology = Barpro.Symbology.Code128 bar.Code = "368806664526"  \'条形码 rg = new prt.RenderGraphics bar.DrawOnCanvas(rg.Graphics,0,0,1) rt.Cells(3,0).RenderObject = rg  \'将单元格内容设置为图片对象rm [求助]如何用代码吧条形码旋转90度，处于垂直状态？

--  作者：有点蓝 --  发布时间：2019/10/15 14:28:00 --   那要用这种了：http://www.foxtable.com/webhelp/topics/1225.htm Dim doc As New PrintDoc Dim rbc As New prt.RenderBarCode() rbc.Height = 25 rbc.BarCodeType = BarCodeEnum.Code39 rbc.BarDirection = BarDirectionEnum.Down rbc.Text = "123456" rbc.ShowText = True doc.Body.Children.Add(rbc) Doc.Preview()

--  作者：zto001 --  发布时间：2019/10/15 14:38:00 --   条形码，水平如何居中显示，垂直如何居中显示呢？

--  作者：有点蓝 --  发布时间：2019/10/15 14:50:00 --   Dim doc As New PrintDoc Dim ra As New prt.RenderArea ra.Width = 100 ra.Height = 100 ra.Style.Borders.All = New prt.Linedef Dim rbc As New prt.RenderBarCode() rbc.Height = 25 rbc.BarCodeType = BarCodeEnum.Code39 rbc.BarDirection = BarDirectionEnum.Down rbc.Text = "123456" rbc.ShowText = True rbc.x = "(Parent.Width - Width) / 2" rbc.y = "(Parent.Height - Height ) / 2" ra.Children.Add(rbc)  doc.Body.Children.Add(ra) Doc.Preview() [此贴子已经被作者于2019/10/15 14:50:30编辑过]