高分求助生成二維碼的vb代碼

用PDF417動態(tài)庫可生成2維條碼

創(chuàng)新互聯(lián)建站專注于墨江企業(yè)網(wǎng)站建設(shè),成都響應(yīng)式網(wǎng)站建設(shè),商城網(wǎng)站制作。墨江網(wǎng)站建設(shè)公司,為墨江等地區(qū)提供建站服務(wù)。全流程按需定制，專業(yè)設(shè)計，全程項目跟蹤，創(chuàng)新互聯(lián)建站專業(yè)和態(tài)度為您提供的服務(wù)

閱讀直接用2維條碼掃描槍即可讀出數(shù)據(jù)，然后還原數(shù)據(jù)

有個二維條碼演示應(yīng)用小軟件，可參考

如何用.NET生成二維碼

新建一個window應(yīng)用程序，然后引入.NET二維碼類庫（開源的類庫，可從網(wǎng)上下載）：

核心代碼如下：

using System;

using System.Collections.Generic;

using System.ComponentModel;

using System.Data;

using System.Drawing;

using System.Linq;

using System.Text;

using System.Windows.Forms;

namespace WinQRCode

{

using ThoughtWorks.QRCode.Codec;

using ThoughtWorks.QRCode.Codec.Data;

using ThoughtWorks.QRCode.Codec.Util;

using System.IO;

using PdfToImage;

public partial class Form1 : Form

{

public Form1()

{

InitializeComponent();

}

/// summary

/// 編碼

/// /summary

/// param name="sender"/param

/// param name="e"/param

private void button1_Click(object sender, EventArgs e)

{

if (this.textBox1.Text != "")

{

Cursor.Current = Cursors.WaitCursor;

if (textBox1.Text.Trim() == String.Empty)

{

MessageBox.Show("不能為空.");

return;

}

QRCodeEncoder qrCodeEncoder = new QRCodeEncoder();

qrCodeEncoder.QRCodeEncodeMode = QRCodeEncoder.ENCODE_MODE.BYTE;

qrCodeEncoder.QRCodeScale = 4;

qrCodeEncoder.QRCodeVersion = 7;

qrCodeEncoder.QRCodeErrorCorrect = QRCodeEncoder.ERROR_CORRECTION.M;

System.Drawing.Image image;

String data = textBox1.Text;

//編碼

image = qrCodeEncoder.Encode(data);

//圖片顯示

this.pictureBox1.Image = image;

Cursor.Current = Cursors.Default;

}

}

/// summary

/// 解碼

/// /summary

/// param name="sender"/param

/// param name="e"/param

private void button2_Click(object sender, EventArgs e)

{

Cursor.Current = Cursors.WaitCursor;

Bitmap b = this.pictureBox1.Image as Bitmap;

try

{

QRCodeDecoder decoder = new QRCodeDecoder();

//解碼

String decodedString = decoder.decode(new QRCodeBitmapImage(b));

//顯示解碼信息

this.lbl解碼信息.Text += decodedString ;

}

catch (Exception ex)

{

MessageBox.Show(ex.Message);

}

Cursor.Current = Cursors.Default;

}

private void Form1_Load(object sender, EventArgs e)

{

}

}

}

各位大神，如何用VB編寫程序生成二維碼，請教方法

二維碼其實就是由很多0、1組成的數(shù)字矩陣。二維條碼/二維碼 (2-dimensional bar code) 是用某種特定的幾何圖形按一定規(guī)律在平面(二維方向上)分布的黑白相間的圖形記錄數(shù)據(jù)符號信息的;在代碼編制上巧妙地利用構(gòu)成計算機內(nèi)部邏輯基礎(chǔ)的“0”、“1”比特流的概念，使用若干個與二進制相對應(yīng)的幾何形體來表示文字數(shù)值信息，通過圖象輸入設(shè)備或光電掃描設(shè)備自動識讀以實現(xiàn)信息自動處理:它具有條碼技術(shù)的一些共性:每種碼制有其特定的字符集;每個字符占有一定的寬度;具有一定的校驗功能等。同時還具有對不同行的信息自動識別功能、及處理圖形旋轉(zhuǎn)變化等特點。 二維條碼/二維碼能夠在橫向和縱向兩個方位同時表達信息，因此能在很小的面積內(nèi)表達大量的信息。[1]二維碼生成器的制作需要一個二維碼生成算法，或者一個二維碼插件，然后用JAVA ，C#， VB等編程語言編寫一個調(diào)用軟件就可以做成二維碼生成器了