转换函数:
Function StrToCode128(str As String) As String
Dim l As Integer, i As Integer, n As Integer, t As Integer, s As Integer
Dim p As String
l = Len(str)
n = 104
For i = 1 To l
t = Asc(Mid(str, i, 1))
If t >= 32 Then
n = n + (t - 32) * i
Else
n = n + (t + 64) * i
End If
Next i
s = n Mod 103
If s >= 95 Then
s = s + 100
Else
s = s + 32
End If
StrToCode128 = ChrW(204) + str + ChrW(s) + ChrW(206)
End Function
调 用:
Code128控件=StrToCode128(需要转换为条形码的字符串)