- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- [求助]二维码设计 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=38489)
-- 发布时间：2013/7/30 14:24:00
-- [求助]二维码设计
每一条记录生成一个二维码，包含该记录字段所有信息，可以将二维码打印出来，怎么做？
-- 发布时间：2013/7/30 14:31:00
--
参考这里 http://www.foxtable.com/help/topics/2338.htm
或者使用专业报表.
-- 发布时间：2013/7/30 14:36:00
--
他这个是条形码，我是二维码，还有这个条形码包含了什么信息？
-- 发布时间：2013/7/30 14:38:00
--
你好!这是一样的,你只需要把Barpro.Symbology.Code39 改为你需要的编码类型即可.
-- 发布时间：2013/7/30 15:26:00
--
If e.Book.TempLate = "二维码" Then
If e.region = "表A" Then
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("1") + e.DataRow("2")
Bar.BarRatio = 0.3
Bar.BarHeight = 8
bar.SaveImage(ProjectPath & "Images\\BarCode.gif",300)
End If
End If
End If
能否帮我测试下，怎么都是空白的？
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:二维码.xls |
此主题相关图片如下：barcode.gif
-- 发布时间：2013/7/30 17:02:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目972.rar |