- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 保存二维码图片时为何显示非法路径？ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=174480)
-- 发布时间：2022/1/17 19:59:00
-- 保存二维码图片时为何显示非法路径？
Dim Bar As New BarCodeBuilder
Bar.Symbology = Barpro.Symbology.QRCode
For Each r As Row In Tables("生产指令单_明细").Rows
bar.Code = "产品编码: " & r("产品编码") & vbCrlf & "订单编号:" & r("订单编号") & vbCrlf & " 生产数量:" & r("生产数量") & vbCrlf & " 物料编码:" & r("物料编码")
bar.SaveImage(ProjectPath & "Images\\test.wmf",300)
Dim imgback As image = getimage(ProjectPath & "Images\\test.wmf") \'生成的二维码图片
Dim bmp As new bitmap(imgback.width, imgback.height)
Dim g As System.Drawing.Graphics = System.Drawing.Graphics.FromImage(bmp)
g.DrawImage(imgback, 0, 0, imgback.Width, imgback.Height)
Dim img = getimage(ProjectPath & "Images\\ABC_Log.jpg") \'准备添加的logo
Dim x As Integer = (imgback.width - img.width) / 2 \'Logo在二维码中的位置
Dim y As Integer = (imgback.height - img.height) / 2
g.DrawImage(img, x, y, img.Width, img.Height) \'合并图片
bmp.Save(ProjectPath & "Images\\001.jpg")
bmp.Save(ProjectPath & "Images\\" & r("产品编码") & ".jpg")
bmp.dispose
Next
上述代码，蓝色的运行就没问题，但采用表中每行动态的产品编码生成图片名称时就出错，显示非法路径，为什么？
谢谢！
-- 发布时间：2022/1/17 20:34:00
--
msgbox(ProjectPath & "Images\\" & r("产品编码") & ".jpg")出错前最后弹出什么内容？
一般是产品编码"没有数据，或者有无法识别的特殊字符
[此贴子已经被作者于2022/1/17 20:35:08编辑过]
-- 发布时间：2022/1/18 10:20:00
--
果然是因为字符的原因，我的产品编码是：J42002-∮5*7.7*∮3.08-ZnNi
中间的*换成X就可以了，但是问题原来所有的编码都是用规格生成的，里面都有*号，还有其他办法吗？
谢谢！
-- 发布时间：2022/1/18 10:40:00
--
没有办法，这个是操作系统的限制。
-- 发布时间：2022/1/18 20:16:00
--
另外请教下
此主题相关图片如下：扫码.jpg
在keyDownEdit事件中用了下面的代码也不能阻止扫码的内容录入
If e.Col.Name = "产品编码" Then
If e.keycode = keys.enter Then
msgbox(e.text)\'根据扫描结果做其它处理即可
e.cancel = True
End If
End If
就是想根据二维码原来是多列组合在一起，扫码时如何拆分原来组合的各列然后填充到不同的列中
谢谢！
-- 发布时间：2022/1/18 20:51:00
--
到datacolchanging事件处理