以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  请问,在EXCEL插入的二维码,什么牌子的扫码枪好用呢  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=137335)

--  作者:yuyan
--  发布时间:2019/7/3 16:43:00
--  请问,在EXCEL插入的二维码,什么牌子的扫码枪好用呢
请问,在EXCEL插入的二维码,什么牌子的扫码枪好用呢
图片点击可在新窗口打开查看此主题相关图片如下:微信图片_20190703165042.png
图片点击可在新窗口打开查看
图片点击可在新窗口打开查看图片点击可在新窗口打开查看
[此贴子已经被作者于2019/7/3 16:51:30编辑过]

--  作者:有点蓝
--  发布时间:2019/7/3 16:54:00
--  
能用就行,找万能的淘宝,大把的。
--  作者:yuyan
--  发布时间:2019/7/3 16:58:00
--  
刚刚寻了一款 我发给的这个码  扫出来的汉字时乱码 
--  作者:有点蓝
--  发布时间:2019/7/3 17:04:00
--  
字符编码问题,试试不同编码:http://www.foxtable.com/webhelp/topics/2071.htm
--  作者:yuyan
--  发布时间:2019/7/3 17:07:00
--  
我用手机扫的是汉字,淘宝客服用扫码枪扫的是乱码 ,我是不是也需要改编码格式?
--  作者:yuyan
--  发布时间:2019/7/3 17:14:00
--  
  代码是这样写的 请看下问题在哪里 
       If e.DataRow Is Nothing OrElse e.DataRow.IsNull("部件检索") Then \'如果是空行或者Lot列为空
            Dim img As New System.Drawing.Bitmap(1,1) \'生成一个空白图片
            img.Save(ProjectPath & "Images\\BarCode.gif")
        Else \'否则生成图片
            Dim Bar As New BarCodeBuilder
            Bar.Symbology = Barpro.Symbology.QRCode
            Bar.Code = e.DataRow("部件检索")
            bar.SaveImage(ProjectPath & "Images\\BarCode.gif",300)
        End If

--  作者:有点蓝
--  发布时间:2019/7/3 17:18:00
--  
试试使用不同编码的扫描结果,找到合适的,比如

Bar.QRCodeByteEncodingName = "utf-8"

--  作者:WELOVEFOX
--  发布时间:2019/7/4 8:46:00
--  
这种情况,我遇到过,主要是扫描枪不支持中文字符的原因,万能的淘宝里面注意关键字带上"支持中文"即可。
--  作者:yuyan
--  发布时间:2019/7/4 9:34:00
--  
刚刚淘宝客服答复我,在汉字输入法下,扫码出来的就不是乱码 这样的话,我的表单打开时要自动设置到汉字输入法打开的状态,该怎么设置呢?
--  作者:yuyan
--  发布时间:2019/7/4 9:49:00
--  
有点蓝 谢谢您