如何在vb.net 中錄入條形碼字符，謝謝

93條碼和CODE39一樣，起始符和結(jié)束符都是*號，你做的條碼掃描不出來的原因，估計(jì)和校驗(yàn)碼有關(guān)。93條碼規(guī)定在數(shù)據(jù)的最后有兩個校驗(yàn)位C和K，如果你的數(shù)據(jù)里沒有生成這兩個校驗(yàn)位，那肯定是無法掃描的。

創(chuàng)新互聯(lián)建站-專業(yè)網(wǎng)站定制、快速模板網(wǎng)站建設(shè)、高性價比河西網(wǎng)站開發(fā)、企業(yè)建站全套包干低至880元,成熟完善的模板庫,直接使用。一站式河西網(wǎng)站制作公司更省心,省錢,快速模板網(wǎng)站建設(shè)找我們，業(yè)務(wù)覆蓋河西地區(qū)。費(fèi)用合理售后完善，10多年實(shí)體公司更值得信賴。

VB.NET如何操作條碼掃描槍，如何設(shè)置，如何進(jìn)行條形碼的設(shè)置及打印

這個要看掃描槍的通訊接口和通訊協(xié)議，以及接口程序是否支持VB.NET等。

vb.net條碼打印控件

工具箱，然后隨便選擇一項(xiàng)，右鍵 選擇項(xiàng)，在.com控件里，microsoft bar ctrol 9.0

VB.net如何在水晶報(bào)表上打印條碼

很簡單。只需要安裝Code39字體，或者加載到系統(tǒng)中就可以。

報(bào)表設(shè)置該字體自然就表示成條形碼了。

Code39字體從網(wǎng)上搜索能搜索到。

vb.netqrcode尺寸大小

21×21mm。vb.netqrcode表示二維碼的版本號，生成二維碼尺寸大小為21×21mm。二維碼又稱二維條碼，常見的二維碼為QRCode，QR全稱QuickResponse，是一種編碼方式。

.net 條形碼

如果要生成條形碼，

1、首先需要確定編碼方式，一般企業(yè)用code128的編碼

2、然后找到對應(yīng)編碼的字庫并安裝,code128有字庫（在字庫網(wǎng)下載，百度搜一下code128.ttf文件，其他的編碼方式用其他的文件，如果沒有，那就得自己0101的繪制黑白線了哦），下載字體文件后將其放入系統(tǒng)字體目錄（一般是C:\window\font）

3、然后再有一個轉(zhuǎn)換過程[PrintCodeStr = Convert(CodeStr)] 其中Codestr是要生成的條碼字符串

4、然后直接調(diào)用條碼字體（如code128）在圖像組件上輸出字符轉(zhuǎn)PrintCodeStr。

5、所以問題的關(guān)鍵在于轉(zhuǎn)換函數(shù)Convert，不同的編碼可能實(shí)現(xiàn)不一樣，有的可能不需要轉(zhuǎn)換

code128的轉(zhuǎn)換函數(shù)如下：(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

繪制條碼函數(shù)：

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生成條形碼開源
網(wǎng)站路徑：http://chinadenli.net/article30/dodehso.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供App開發(fā)、微信公眾號、小程序開發(fā)、App設(shè)計(jì)、品牌網(wǎng)站制作、定制網(wǎng)站

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請盡快告知，我們將會在第一時間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場，如需處理請聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時需注明來源： 創(chuàng)新互聯(lián)