此主题相关图片如下：qq.jpg
cell = t.Cells(1,1).Area
Dim rg As prt.RenderGraphics
Dim Bar As New BarCodeBuilder
Bar.Symbology = Barpro.Symbology.QRCode
Bar.Code = lsn
rg = New prt.RenderGraphics
rg.Width = 28
rg.Height = 28
rg.Style.BackColor = Color.Red
rg.Style.Padding.Top = 0.5
rg.Style.Padding.Left = 0.5
rg.Style.Padding.right = 0.5
rg.Style.Padding.Bottom = 0.5
Bar.DrawOnCanvas(rg.Graphics, 0, 0, 1)
cell.Children.Add(rg)
rt = New prt.RenderText()
rt.Style.BackColor = Color.yellow
'rt.Style.TextAlignHorz = prt.AlignHorzEnum.left '水平左对齐
rt.Style.TextAlignHorz = prt.AlignHorzEnum.Center '水平居中
rt.Style.TextAlignVert = prt.AlignVertEnum.Center '垂直居中
rt.Height = 4
rt.Style.Font = New Font("宋体", 9, FontStyle.Bold) '设置字体
rt.Text = sn
cell.Children.Add(rt)
加好友 
发短信
Post By：2021/10/16 1:01:00 [只看该作者]
