条码宽度 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 条码宽度

共有3648人关注过本帖树形打印复制链接主题：条码宽度

刘林

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：八尾狐帖子：1953 积分：15015 威望：0 精华：0 注册：2016/4/28 9:58:00

条码宽度

Post By：2020/1/11 12:34:00 [只看该作者]

For r As Integer = 0 To Rows.Count -1

Dim ra As New prt.RenderArea

Dim rt As prt.RenderText

ra.Width = 70 '宽度53毫米

ra.Height = 29.5 '高度24毫米

ra.Style.Spacing.All = 0

ra.Style.Borders.All = New prt.Linedef(0, Color.Red) '设置边框

ra.SplitHorzBehavior = prt.SplitBehaviorEnum.Never '禁止水平分割

ra.SplitVertBehavior = prt.SplitBehaviorEnum.Never '禁止垂直分割

Doc.Body.ChildRen.Add(ra) '将容器加入到报表中

Dim rg As prt.RenderGraphics

Dim Bar As New BarCodeBuilder

Bar = New BarCodeBuilder

Bar.Symbology = Barpro.Symbology.Code128

BAR.DisplayCode = False

Doc.Stacking = prt.StackingRulesEnum.InlineLeftToRight

bar.Code = Rows(r)("考号")

Bar.Text =Rows(r)("姓名") & " " & Rows(r)("考号")

Bar.BarRatio = 6

Bar.BarHeight = 10

Bar.TextAlignment = Barpro.Alignment.BelowCenter

rg = new prt.RenderGraphics

bar.DrawOnCanvas(rg.Graphics,2,2,1)

rg.Style.Spacing.All = 0

rg.y=10

RG.Width=100

ra.Children.Add(rg)

老师，我想做个考号条形码，条码的宽度调不到呢，我想把条码设置为58且居中，改宽度无效呢

有点蓝

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：111390 积分：567014 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2020/1/11 14:07:00 [只看该作者]

Dim doc As New PrintDoc '定义一个报表

For r As Integer = 0 To 2

Dim ra As New prt.RenderArea

Dim rt As prt.RenderText

ra.Width = 70 '宽度53毫米

ra.Height = 29.5 '高度24毫米

ra.Style.Spacing.All = 0

ra.Style.Borders.All = New prt.Linedef(1, Color.Red) '设置边框

ra.SplitHorzBehavior = prt.SplitBehaviorEnum.Never '禁止水平分割

ra.SplitVertBehavior = prt.SplitBehaviorEnum.Never '禁止垂直分割

Doc.Body.ChildRen.Add(ra) '将容器加入到报表中

Dim rg As prt.RenderGraphics

Dim Bar As New BarCodeBuilder

Bar = New BarCodeBuilder

Bar.Symbology = Barpro.Symbology.Code128

BAR.DisplayCode = False

Doc.Stacking = prt.StackingRulesEnum.InlineLeftToRight

bar.Code = "12345678"

Bar.Text =("姓名") & " " & ("考号")

Bar.BarRatio = 6

Bar.BarHeight = 10

Bar.BarWidth = 0.5

Bar.TextAlignment = Barpro.Alignment.BelowCenter

Dim rm As New prt.RenderImage

rm.Image = Bar.GetImage

rm.Style.ImageAlign.StretchHorz = False '禁止图片水平拉伸

rm.Width = "Parent.Width" '宽度等于页面宽度

rm.y = 8

rm.Style.ImageAlign.AlignHorz = prt.ImageAlignHorzEnum.Center

rm.Style.ImageAlign.AlignVert = prt.ImageAlignVertEnum.Center

ra.Children.Add(rm)

doc.Preview() '预览

刘林

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：八尾狐帖子：1953 积分：15015 威望：0 精华：0 注册：2016/4/28 9:58:00

Post By：2020/1/12 6:55:00 [只看该作者]

此主题相关图片如下：111.jpg

此主题相关图片如下：12.jpg

Dim img As Image = Image.FromFile("C:\Users\Administrator\Desktop\b1.jpg") ’图片地址哦！

Dim bmap As Bitmap

bmap = New Bitmap(img)

Dim source As New RGBLuminanceSource(bmap, bmap.Width, bmap.Height)

Dim bitmap As com.google.zxing.BinaryBitmap = New com.google.zxing.BinaryBitmap(New com.google.zxing.common.GlobalHistogramBinarizer(source))

Dim asd As new com.google.zxing.MultiFormatReader

Dim result As com.google.zxing.Result = asd.decode(bitmap)

MessageBox.Show(result.Text)

老师用例子中代码识别图片中二维码时,当有下面的字时识别就出问题，当裁剪掉文字就可以（虽然慢点），请老师有不改进办法实现混合也能识别

[此贴子已经被作者于2020/1/12 7:04:14编辑过]

有点蓝

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：111390 积分：567014 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2020/1/12 20:31:00 [只看该作者]

我使用微信扫码可以识别哦。看看是不是扫描枪的问题。或者换个不同的编码，比如code39

刘林

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：八尾狐帖子：1953 积分：15015 威望：0 精华：0 注册：2016/4/28 9:58:00

Post By：2020/1/12 22:14:00 [只看该作者]

老师，我用了手机扫码是可以，我现在的问题就是如果切图，将第一个图（含有下面文字）出错，第二个图就不出错，我现面就是如果有文字也不影响读出条码内容，code39试了，code93也试了还是不行，只要图片中含有文字就出错，请老师指导如何在有文字下可以识别二维码，我现在要达到的目的不是手机扫描，也不是扫描枪扫描，而是图片用上面代码识别出错

[此贴子已经被作者于2020/1/12 22:22:06编辑过]