Access培训
网站公告
·Access专家课堂QQ群号:239158550    ·Access快速开发平台下载地址及教程    ·欢迎加入Access专家课堂微信群!    ·如何快速搜索本站文章|示例|资料    
您的位置: 首页 > 技术文章 > Access数据库-模块/函数/VBA

将字符串转换为Code 128字体可识别的数据格式

时 间:2020-12-31 13:55:48
作 者:易勋   ID:35404  城市:上海
摘 要:如果将正常字符串传递给Code 128,它显示出来的条形码是无法扫描出来的。需要将字符串转换后再传递给Code 128。
正 文:

转换函数:

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(需要转换为条形码的字符串)


Access软件网官方交流QQ群 (群号:39785885)       Access源码网店

最新评论: 查看更多评论(0)

发表评论:您的评论将提升作者分享的动力!快来评论点评一下您的观点吧!

用户名:
密 码:
内 容:
 

常见问答:

技术分类:

相关资源:

关于我们 | 服务条款 | 在线投稿 | 友情链接 | 网站统计 | 网站帮助