Foxtable(狐表)用户栏目专家坐堂 → [求助]二维码内容居左


  共有2433人关注过本帖平板打印复制链接

主题:[求助]二维码内容居左

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


加好友 发短信
等级:三尾狐 帖子:629 积分:4786 威望:0 精华:0 注册:2014/9/17 11:34:00
[求助]二维码内容居左  发帖心情 Post By:2015/6/24 17:19:00 [只看该作者]

各位老师,我写了如下代码,生成了二维码,但是发现二维码的内容都是居中的,我想让现实内容居左,怎么写?
If e.Book.TempLate = "二维码" Then
    If e.region = "表A" Then
        If e.DataRow Is Nothing OrElse e.DataRow.IsNull("第四列") Then '如果是空行或者Lot列为空
            Dim img As New System.Drawing.Bitmap(1,1) '生成一个空白图片
            img.Save(ProjectPath & "Images\BarCode.gif")
        Else '否则生成条形码图片
            Dim Bar As New BarCodeBuilder
            Bar.Symbology = Barpro.Symbology.QRCode
            Bar.Code =e.DataRow("第四列") 
            Bar.BarRatio = 0.3
            Bar.BarHeight = 8
            bar.SaveImage(ProjectPath & "Images\BarCode.gif",300)
        End If
    End If
End If


 回到顶部