二维码生成

二维码生成（中、日、英）（DotNetBarcode第三方控件）调查如下（现在bin文件夹中加入DonNetBarcode.dll文件）             
一、需设置以下参数(下面的大写红色参数可写入配置文件中)             
1 声明二维码的实例变量            
 Dim bc1 As DotNetBarcode = New DotNetBarcode(DotNetBarcode.Types.QRCode)            
             
2 声明需要转换成二维码的字符串            
 Dim BarcodeNumber As String            
             
3 声明并赋值生成的二维码存放的路径            
 Dim myFileName As String = "D:\Documents and Settings\twqian\桌面\11111.bmp"            
             
4 声明并赋值生成的二维码保存的图片的边长            
 Dim myFileLength As Integer = "1"            
             
5 给需要转换的字符串赋值            
 BarcodeNumber = "はいはいはいはいはい"            
 'BarcodeNumber = "的辐的辐动的辐动的辐动动"            
 'BarcodeNumber = "12345566"            
             
6 定义图片的保存类型            
 bc1.SaveFileType = DotNetBarcode.SaveFileTypes.Gif            
             
7 第一个参数是需要转换的字符串，第二个参数是生成的图片保存的地址，第三个参数是保存的图片的边长            
 bc1.QRSave(BarcodeNumber, myFileName, myFileLength)            
             
             
二、下面是完整实例代码             
            '声明二维码的实例变量             
            Dim bc1 As DotNetBarcode = New DotNetBarcode(DotNetBarcode.Types.QRCode)             
            '声明需要转换成二维码的字符串             
            Dim BarcodeNumber As String             
            '声明并赋值生成的二维码存放的路径             
            Dim myFileName As String = "D:\Documents and Settings\twqian\桌面\BarcodeNumber .bmp"             
            '声明并赋值生成的二维码保存的图片的边长             
            Dim myFileLength As Integer = "12"             
             
            '给需要转换的字符串赋值             
            BarcodeNumber = Me.TxtBarcodeNumber.Text.Trim             
            'BarcodeNumber = "はいはいはいはいはい"             
            'BarcodeNumber = "的辐的辐动的辐动的辐动动"             
            'BarcodeNumber = "12345566"             
             
            '定义图片的保存类型             
            bc1.SaveFileType = DotNetBarcode.SaveFileTypes.Gif             
             
            '第一个参数是需要转换的字符串，第二个参数是生成的图片保存的地址，第三个参数是保存的图片的边长             
            bc1.QRSave(BarcodeNumber, myFileName, myFileLength)             

网上下载的日语DonNetBarcode.dll文件，反编译后把Shift-Jis改成gb2312后再生产dll文件，将生成的dll放入bin文件夹