重庆分公司,新征程启航
为企业提供网站建设、域名注册、服务器等服务
93条码和CODE39一样,起始符和结束符都是*号,你做的条码扫描不出来的原因,估计和校验码有关。93条码规定在数据的最后有两个校验位C和K,如果你的数据里没有生成这两个校验位,那肯定是无法扫描的。
创新互联建站-专业网站定制、快速模板网站建设、高性价比河西网站开发、企业建站全套包干低至880元,成熟完善的模板库,直接使用。一站式河西网站制作公司更省心,省钱,快速模板网站建设找我们,业务覆盖河西地区。费用合理售后完善,10多年实体公司更值得信赖。
这个要看扫描枪的通讯接口和通讯协议,以及接口程序是否支持VB.NET等。
工具箱,然后随便选择一项,右键 选择项,在.com控件里,microsoft bar ctrol 9.0
很简单。只需要安装Code39字体,或者加载到系统中就可以。
报表设置该字体自然就表示成条形码了。
Code39字体从网上搜索能搜索到。
21×21mm。vb.netqrcode表示二维码的版本号,生成二维码尺寸大小为21×21mm。二维码又称二维条码,常见的二维码为QRCode,QR全称QuickResponse,是一种编码方式。
如果要生成条形码,
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