Скачать или смотреть vb net สร้างฟอร์มอ่าน QR Code

ตัวอย่างและไลบรารี่ สำหรับสร้าง ฟอร์มอ่าน QR Code (บาร์โค้ด 3 มิติ)

ไลบรารี : https://link.bsru.ac.th/bh5
ตัวอย่างโค้ด :
Imports MessagingToolkit.QRCode.Codec
Public Class readQR
' Dim Reader As New MessagingToolkit.QRCode.Codec.QRCodeDecoder
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
OpenFileDialog1.ShowDialog()
Label1.Text = OpenFileDialog1.FileName
PictureBox1.Image = Image.FromFile(Label1.Text)
End Sub

Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
Dim Reader As New MessagingToolkit.QRCode.Codec.QRCodeDecoder
Try

Reader = New QRCodeDecoder
TextBox1.Text = Reader.decode(New Data.QRCodeBitmapImage(PictureBox1.Image))

Catch ex As Exception
End Try