Foxtable(狐表)用户栏目专家坐堂 → 扫码结果左对齐


  共有3186人关注过本帖树形打印复制链接

主题:扫码结果左对齐

帅哥哟,离线,有人找我吗?
nxdx112
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:401 积分:3639 威望:0 精华:0 注册:2016/11/12 18:42:00
扫码结果左对齐  发帖心情 Post By:2019/7/1 15:42:00 [只看该作者]

这是别人的二维码设置代码,现在想让扫码显示为左对齐,而非居中显示,怎么设置?
If CurrentTable.ShowCheckBox = False Then
    messagebox.show("请先点击'打印前置'按钮,在想要打印二维码的行的复选框里打√,谢谢!","友情提示")
Else
    Dim doc As New PrintDoc
    Dim Bar As New BarCodeBuilder
    Dim rt As new prt.RenderText
    Bar.Symbology = Barpro.Symbology.QRCode
    Bar.BarRatio = 0.3
    Bar.BarWidth = 1
    Bar.BarHeight = 1
    Doc.Stacking = prt.StackingRulesEnum.InlineLeftToRight
    For Each r As Row In CurrentTable.GetCheckedRows
        Dim ra As New prt.RenderArea
        ra.SplitHorzBehavior = prt.SplitBehaviorEnum.Never '禁止水平分割
        ra.SplitVertBehavior = prt.SplitBehaviorEnum.Never '禁止垂直分割
        ra.width = 40
        ra.height = 40

        Dim i As Integer = 0
        Dim temp As String = ""
        For Each c As Col In CurrentTable.cols
            temp = temp & c.name & ":"  & r(i) & vbcrlf 
            i = i + 1
        Next
        bar.Code = temp.Substring(0,temp.length-1)

        Dim rg1 As New prt.RenderGraphics()
        rg1.Graphics.DrawImage(bar.GetImage,0,0,120,120)
        rg1.Graphics.DrawImage(getImage("archives.ico"),45,45,30,30)
        ra.Children.Add(rg1)

        rt = New prt.RenderText
        rt.Text = "姓名:" & r("姓名")
        rt.Width = 50
        rt.Height = 5
        rt.Style.TextAlignHorz = prt.AlignHorzEnum.left '水平居中
        ra.Children.Add(rt) '添加到容器中

        Doc.Body.Children.Add(ra)
    Next
    Doc.Preview()

------------
图片点击可在新窗口打开查看此主题相关图片如下:微信图片_20190701154003.png
图片点击可在新窗口打开查看

[此贴子已经被作者于2019/7/1 15:42:21编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2019/7/1 16:03:00 [只看该作者]

 

测试了一下,没办法。这个无法控制

 


 回到顶部