[VB.NET] การสร้างบาร์โค้ด 2 มิติ QR Code ด้วยของฟรีจาก ZXing.Net

thongkorn

QR Code (คิวอาร์ โค้ด) คือ ย่อมาจาก Quick Response เป็นบาร์โค้ด 2 มิติ แสดงสัญลักษณ์แทนข้อมูลต่างๆ ซึ่งส่วนใหญ่จะนำมาประยุกต์ใช้ได้หลากหลายรูปแบบ เช่น แสดง URL ของเว็บไซต์, ข้อความ, เบอร์โทรศัพท์ และข้อมูลที่เป็นตัวอักษรได้อีกมากมาย วันนี้แอดมินขอนำเสนอการสร้าง QR Code จาก ZXing ซึ่งสามารถรองรับ UTF-8 หรือเป็นภาษาไทยได้ 100% นั่นเอง ...


ดาวน์โหลด ZXing.NET Release ได้ที่นี่ ซึ่งมี Net Framework หลายเวอร์ชั่น รวมไปถึงคู่มือการใช้งาน และตัวอย่างในขั้นสูง ...


Add Reference ZXing.NET ... อย่าลืมเรียกไฟล์ ZXing.DLL เข้ามาก่อนด้วยครับ



การคัดลอกนำไปใส่ไว้ใน MS Word



มาดูโค้ดฉบับเต็มกันเถอะ ...

1. '// ZXing.Net release download.
   
2. '// https://github.com/micjahn/ZXing.Net/releases
   
3. 
   
4. Imports System.Drawing.Imaging
   
5. Imports ZXing
   
6. Imports ZXing.Common
   
7. Imports ZXing.QrCode
   
8. Imports System.IO
   
9. 
   
10. Public Class frmQRCodeZXing
    
11. 
    
12.     Dim strPathImage As String = MyPath(Application.StartupPath)
    
13. 
    
14.     Private Sub frmQRCodeZXing_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    
15.         txtData.Text = "www.g2gnet.com/webboard"
    
16.     End Sub
    
17. 
    
18.     '// Event when data is changed.
    
19.     Private Sub txtData_TextChanged(sender As Object, e As EventArgs) Handles txtData.TextChanged
    
20.         If String.IsNullOrWhiteSpace(txtData.Text) Then
    
21.             picBarcode.Image = Nothing
    
22.             Return
    
23.         End If
    
24.         '//
    
25.         Dim options As EncodingOptions = New QrCodeEncodingOptions
    
26.         With options
    
27.             .Width = picBarcode.Width
    
28.             .Height = picBarcode.Height
    
29.             .Hints.Add(ZXing.EncodeHintType.CHARACTER_SET, "UTF-8")
    
30.         End With
    
31. 
    
32.         Dim objWriter As BarcodeWriter = New BarcodeWriter With {
    
33.                 .Format = BarcodeFormat.QR_CODE,
    
34.                 .Options = options
    
35.                 }
    
36. 
    
37.         picBarcode.Image = New Bitmap(objWriter.Write(txtData.Text))
    
38.     End Sub
    
39. 
    
40.     '// Save image of QR Code.
    
41.     Private Sub btnSave_Click(sender As Object, e As EventArgs) Handles btnSave.Click
    
42.         Dim dlgSaveFile As New SaveFileDialog
    
43.         With dlgSaveFile
    
44.             .Title = "Select images"
    
45.             .Filter = "Image files (*.jpg,*.png,*bmp) | *.jpg; *.png; *.bmp"
    
46.             .FilterIndex = 1
    
47.             .RestoreDirectory = True
    
48.             .InitialDirectory = strPathImage
    
49.         End With
    
50.         '//
    
51.         If dlgSaveFile.ShowDialog() = DialogResult.OK Then
    
52.             '// Saves the Image via a FileStream created by the OpenFile method.
    
53.             Dim fs = CType(dlgSaveFile.OpenFile, FileStream)
    
54.             '// Saves the Image in the appropriate ImageFormat based upon the
    
55.             '// file type selected in the dialog box.
    
56.             Select Case dlgSaveFile.FilterIndex
    
57.                 Case 1
    
58.                     picBarcode.Image.Save(fs, ImageFormat.Jpeg)
    
59.                 Case 3
    
60.                     picBarcode.Image.Save(fs, ImageFormat.Png)
    
61.                 Case 4
    
62.                     picBarcode.Image.Save(fs, ImageFormat.Bmp)
    
63.             End Select
    
64.             fs.Close()
    
65.             MessageBox.Show("QR Code image has been saved.")
    
66.         End If
    
67.     End Sub
    
68. 
    
69.     '// Load QR Code and decode it.
    
70.     Private Sub btnLoad_Click(sender As Object, e As EventArgs) Handles btnLoad.Click
    
71.         Dim dlgImage As OpenFileDialog = New OpenFileDialog()
    
72.         ' / Open File Dialog
    
73.         With dlgImage
    
74.             '.InitialDirectory = strPath
    
75.             .Title = "Select images"
    
76.             .Filter = "Image files (*.jpg,*.png,*bmp) | *.jpg; *.png; *.bmp"
    
77.             .FilterIndex = 1
    
78.             .RestoreDirectory = True
    
79.         End With
    
80.         ' Select OK after Browse ...
    
81.         If dlgImage.ShowDialog() = DialogResult.OK Then
    
82.             Using FS As IO.FileStream = File.Open(dlgImage.FileName, FileMode.Open)
    
83.                 Dim bitmap As Bitmap = New Bitmap(FS)
    
84.                 Dim CurrentPicture As Image = CType(bitmap, Image)
    
85.                 picBarcode.Image = CurrentPicture
    
86.                 '// Decode
    
87.                 Dim objReader As BarcodeReader = New BarcodeReader()
    
88.                 Dim objResult As Result = objReader.Decode(bitmap)
    
89.                 If objResult IsNot Nothing Then
    
90.                     txtData.Text = objResult.Text
    
91.                 Else
    
92.                     MessageBox.Show("Cannot decode this image!")
    
93.                 End If
    
94.             End Using
    
95.         End If
    
96.     End Sub
    
97. 
    
98.     '// Copy to clipboard.
    
99.     Private Sub btnCopy_Click(sender As System.Object, e As System.EventArgs) Handles btnCopy.Click
    
100.         '/ Add it as an image
     
101.         Clipboard.SetImage(picBarcode.Image)
     
102.         '/ Create a JPG on disk and add the location to the clipboard
     
103.         Dim TempName As String = "TempName.jpg"
     
104.         Dim TempPath As String = System.IO.Path.Combine(My.Computer.FileSystem.SpecialDirectories.Temp, TempName)
     
105.         Using FS As New System.IO.FileStream(TempPath, IO.FileMode.Create, IO.FileAccess.Write, IO.FileShare.Read)
     
106.             picBarcode.Image.Save(FS, System.Drawing.Imaging.ImageFormat.Jpeg)
     
107.         End Using
     
108.         Dim Paths As New System.Collections.Specialized.StringCollection()
     
109.         Paths.Add(TempPath)
     
110.         Clipboard.SetFileDropList(Paths)
     
111.     End Sub
     
112. 
     
113.     ' / --------------------------------------------------------------------------------
     
114.     ' / Get my project path
     
115.     ' / AppPath = C:\My Project\bin\debug
     
116.     ' / Replace "\bin\debug" with ""
     
117.     ' / Return : C:\My Project\
     
118.     Function MyPath(AppPath As String) As String
     
119.         '/ MessageBox.Show(AppPath);
     
120.         AppPath = AppPath.ToLower()
     
121.         '/ Return Value
     
122.         MyPath = AppPath.Replace("\bin\debug", "").Replace("\bin\release", "").Replace("\bin\x86\debug", "")
     
123.         '// If not found folder then put the \ (BackSlash ASCII Code = 92) at the end.
     
124.         If Microsoft.VisualBasic.Right(MyPath, 1) <> Chr(92) Then MyPath = MyPath & Chr(92)
     
125.     End Function
     
126. 
     
127. End Class

คัดลอกไปที่คลิปบอร์ด

ดาวน์โหลดโค้ดต้นฉบับชุดเต็ม VB.NET (2010) ได้ที่นี่ ...

MrDen

ขอบพระคุณอย่างสูงครับอาจารย์ ขอให้สุขภาพแข็งแรง เงินทองไหลมาเทมา เด้อ.. คับ.

kaewlion

ขอบคุณมากเลยค่ะ