主题：外部引用

看代码，这是一个托管dll，引用起来很简单了。

把QRCodeLib.dll放到foxtable目录下面就能直接用了。

Dim qrCodeEncoder As new QRCodeEncoder

Dim encoding As String= "Byte"

qrCodeEncoder.QRCodeEncodeMode = QRCodeEncoder.ENCODE_MODE.BYTE
Din scale As Integer = Convert.ToInt16(3)
qrCodeEncoder.QRCodeScale = scale

Dim version As Integer = Convert.ToInt16(7)
qrCodeEncoder.QRCodeVersion = version

Dim errorCorrect As String = cboCorrectionLevel.Text
if  errorCorrect = "L" Then
    qrCodeEncoder.QRCodeErrorCorrect = QRCodeEncoder.ERROR_CORRECTION.L
elseif  errorCorrect = "M" Then
    qrCodeEncoder.QRCodeErrorCorrect = QRCodeEncoder.ERROR_CORRECTION.M
elseif errorCorrect = "Q" Then
    qrCodeEncoder.QRCodeErrorCorrect = QRCodeEncoder.ERROR_CORRECTION.Q
elseif (errorCorrect = "H" Then
    qrCodeEncoder.QRCodeErrorCorrect = QRCodeEncoder.ERROR_CORRECTION.H

End If

Dim image As Image
Dim data  As String = Tables("表A").Current("第一列")

image = qrCodeEncoder.Encode(data)

image.Save("d:\图像\a.jpg", System.Drawing.Imaging.ImageFormat.Jpeg)

 

 

 

大概是这样的 。没调试，可能有些错误

哦 仔细看了一下。 cboCorrectionLevel.Text是组合框 让你选纠错水平的  这里可以去掉

 

 

为了理解 我把代码简化一下：

Dim q As new QRCodeEncoder

q.QRCodeEncodeMode = QRCodeEncoder.ENCODE_MODE.BYTE
q.QRCodeScale = 3

q.QRCodeVersion = 7

q.QRCodeErrorCorrect = QRCodeEncoder.ERROR_CORRECTION.M
Dim image As Image
Dim data  As String = Tables("表A").Current("第一列")

image = q.Encode(data)

image.Save("d:\图像\a.jpg", System.Drawing.Imaging.ImageFormat.Jpeg)

 

 

呵呵 看4楼  

要添加一下引用

是命名空间的事情。你把dll发上来，把命名空间也导入就可以了

呵呵 去上班走的太急，9楼没说清楚：我说把dll传到论坛上来，帮你看看命名空间是什么。

 

我刚在codeproject上面下了一份源码，看了一下。

命名空间是ThoughtWorks.QRCode.Codec

你试试下面代码对不对，对的话就不用传你的文件了

Dim q As new ThoughtWorks.QRCode.Codec.QRCodeEncoder

q.QRCodeEncodeMode = ThoughtWorks.QRCode.Codec.QRCodeEncoder.ENCODE_MODE.BYTE
q.QRCodeScale = 3

q.QRCodeVersion = 7

q.QRCodeErrorCorrect = ThoughtWorks.QRCode.Codec.QRCodeEncoder.ERROR_CORRECTION.M
Dim image As Image
Dim data  As String = Tables("表A").Current("第一列")

image = q.Encode(data)

image.Save("d:\图像\a.jpg", System.Drawing.Imaging.ImageFormat.Jpeg)

 

看了一下 。还是codeproject上面的源码生成的dll

可能又有人下载了那个源码，把原来的命名空间ThoughtWorks.QRCode.Codec给改了一下。

添加引用就可以了。命名空间比较简单，不用加别名了。

不过代码要改：

 

Dim q As new QRCodeLib.QRCodeEncoder

q.QRCodeEncodeMode = QRCodeLib.QRCodeEncoder.ENCODE_MODE.BYTE
q.QRCodeScale = 3

q.QRCodeVersion = 7

q.QRCodeErrorCorrect = QRCodeLib.QRCodeEncoder.ERROR_CORRECTION.M
Dim image As Image
Dim data  As String = Tables("表A").Current("第一列")

image = q.Encode(data)

image.Save("d:\图像\a.jpg", System.Drawing.Imaging.ImageFormat.Jpeg)

下面是原作者的。上面的是你传的。

可能嫌原来的命名空间太长，给改短了。不过还留了两个ThoughtWorks 没改。

此主题相关图片如下：未命名.jpg

可以这么理解。

 

比如

一班有一个同学叫张三

二班有一个同学叫张三  这样就会有冲突。

所以都必须写上命名范围

一班.张三

二班.张三

 

不过这里的一班  二班不是文件名。而是代码里面规定好的一个命名空间。

所以让你传文件，才能知道这个命名空间具体是什么。

呵呵  不知道你找到没。

http://www.codeproject.com/KB/cs/qrcode.aspx

那个源码 不知道为什么转换成VS2008 就提示一大堆错误。

不过他的实例程序 下面能找到编译好的dll

QRCode\QRCodeSampleApp\bin\Release

下面有一个 ThoughtWorks.QRCode.dll 可以用