vb.net生成条形码 vb生成条形码开源

如何在vb.net 中录入条形码字符,谢谢

93条码和CODE39一样,起始符和结束符都是*号,你做的条码扫描不出来的原因,估计和校验码有关。93条码规定在数据的最后有两个校验位C和K,如果你的数据里没有生成这两个校验位,那肯定是无法扫描的。

创新互联建站-专业网站定制、快速模板网站建设、高性价比河西网站开发、企业建站全套包干低至880元,成熟完善的模板库,直接使用。一站式河西网站制作公司更省心,省钱,快速模板网站建设找我们,业务覆盖河西地区。费用合理售后完善,10多年实体公司更值得信赖。

VB.NET如何操作条码扫描枪,如何设置,如何进行条形码的设置及打印

这个要看扫描枪的通讯接口和通讯协议,以及接口程序是否支持VB.NET等。

vb.net条码打印控件

工具箱,然后随便选择一项,右键 选择项,在.com控件里,microsoft bar ctrol 9.0

VB.net如何在水晶报表上打印条码

很简单。只需要安装Code39字体,或者加载到系统中就可以。

报表设置该字体自然就表示成条形码了。

Code39字体从网上搜索能搜索到。

vb.netqrcode尺寸大小

21×21mm。vb.netqrcode表示二维码的版本号,生成二维码尺寸大小为21×21mm。二维码又称二维条码,常见的二维码为QRCode,QR全称QuickResponse,是一种编码方式。

.net 条形码

如果要生成条形码,

1、首先需要确定编码方式,一般企业用code128的编码

2、然后找到对应编码的字库并安装,code128有字库(在字库网下载,百度搜一下code128.ttf文件,其他的编码方式用其他的文件,如果没有,那就得自己0101的绘制黑白线了哦),下载字体文件后将其放入系统字体目录(一般是C:\window\font)

3、然后再有一个转换过程[PrintCodeStr = Convert(CodeStr)] 其中Codestr是要生成的条码字符串

4、然后直接调用条码字体(如code128)在图像组件上输出字符转PrintCodeStr。

5、所以问题的关键在于转换函数Convert,不同的编码可能实现不一样,有的可能不需要转换

code128的转换函数如下:(vs2010代码)

Public Shared Function StringToCode128(ByVal input As String) As String

Try

Dim endchar As Char

Dim total As Int64 = 104

Dim tmp As Integer

For i As Int16 = 1 To input.Length

tmp = Asc(input.Substring(i - 1, 1))

If tmp = 32 Then

total += (tmp - 32) * i

Else

total += (tmp + 64) * i

End If

Next

Dim endAsc = total Mod 103

If endAsc = 95 Then

Select Case endAsc

Case 95

endchar = "Ã"

Case 96

endchar = "Ä"

Case 97

endchar = "Å"

Case 98

endchar = "Æ"

Case 99

endchar = "Ç"

Case 100

endchar = "È"

Case 101

endchar = "É"

Case 102

endchar = "Ê"

End Select

Else

endAsc += 32

endchar = Chr(endAsc)

End If

Return "Ì" input endchar.ToString() "Î"

Catch ex As Exception

'WriteLog(ex.Message, ex.StackTrace)

Return String.Empty

Finally

End Try

End Function

绘制条码函数:

Public Shared Function DrawBarcode(ByVal Code As String) As Bitmap

Dim bm As New Bitmap(400, 100)

Dim g As Graphics = Graphics.FromImage(bm)

Dim f As New Font("Code 128", 12, FontStyle.Regular, GraphicsUnit.Millimeter, 0)

g.DrawString(StringToCode128(Code), f, Brushes.Black, -16, 0)

g.FillRectangle(Brushes.White, 0, 22, 400, 100)

f = New Font("Arial", 12, FontStyle.Bold, GraphicsUnit.Pixel, 0)

g.DrawString(Code, f, Brushes.Black, 0, 21)

Return bm

End Function


文章名称:vb.net生成条形码 vb生成条形码开源
文章来源:http://myzitong.com/article/dodehso.html