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