各位老师,我写了如下代码,生成了二维码,但是发现二维码的内容都是居中的,我想让现实内容居左,怎么写?
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 IfEnd If