[VB.NET] การพิมพ์ QR Code (MessgaingToolKit.QRCode) ด้วยภาพกราฟิคลงใน ActiveReports

thongkorn

หลายๆท่านอาจจะไม่ทราบว่า ActiveReports เวอร์ชั่น 6.2.3681.0 มีปัญหาที่ไม่สามารถเข้ารหัส (Encoding) UTF-8 เพื่อสร้างรหัสบาร์โค้ด QR Code ให้แสดงผลภาษาไทยได้ แต่เรามีวิธีการแก้ไขได้โดยการใช้ QR Code Library จากเหล่าบรรดาของฟรี ดังนั้นแอดมินจะขอนำเสนอทางออกให้ด้วยการใช้ MessagingToolkit.QRCode เพื่อสร้างรหัสบาร์โค้ด 2 มิติ หรือ QR Code โดยให้แสดงผลลงในกราฟิค (PictureBox) ในตัวรายงานของ ActiveReports 6.0 แทน ...


หน้าจอหลัก ...


การออกแบบรายงาน ...


Add References ...

คลิ๊กดาวน์โหลดไฟล์ MessagingToolkit.QRCode.DLL (ต้องใช้งานด้วยครับ)

ดาวน์โหลดชุดติดตั้ง ActiveReports .NET (V6.2.3681) ได้ที่นี่ (สำหรับสมาชิกเท่านั้น)

มาดูโค้ดต้นฉบับกันเถอะ ... (ฟอร์มหลัก)

1. '// https://www.nuget.org/packages/MessagingToolkit.QRCode (Nuget)
   
2. '// https://platform.twit88.com/projects/mt-barcode (Web)
   
3. 
   
4. Public Class frmToolkitQRCode
   
5. 
   
6.     Private Sub frmToolkitQRCode_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
   
7.         Dim rpt As New NewActiveReport1
   
8.         ' / --------------------------------------------------------------------------------
   
9.         ' / ส่วนที่สำคัญในการผูก ARDesigner เข้ากับรายงาน
   
10.         ' / Instance name ARDesigner มันจะชี้ไปที่ไฟล์ NewActiveReport1.vb
    
11.         ' / โหลดรายงาน Document (NewActiveReport1) เข้าสู่ ActiveReports Viewer
    
12.         Me.Viewer1.Document = rpt.Document
    
13.         ' / --------------------------------------------------------------------------------
    
14.         ' / ปรับการย่อขยาย (Zoom) ของหน้ารายงาน
    
15.         Viewer1.ReportViewer.Zoom = 1 ' 100%
    
16.         ' / Run Report
    
17.         rpt.Run()
    
18.     End Sub
    
19. 
    
20.     Private Sub frmToolkitQRCode_FormClosed(sender As Object, e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
    
21.         Me.Dispose()
    
22.         GC.SuppressFinalize(Me)
    
23.         Application.Exit()
    
24.     End Sub
    
25. 
    
26. End Class

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

โค้ดในส่วนของรายงาน ARDesigner ...

1. Imports DataDynamics.ActiveReports
   
2. Imports DataDynamics.ActiveReports.Document
   
3. Imports MessagingToolkit.QRCode.Codec
   
4. 
   
5. Public Class NewActiveReport1
   
6.     Const MaxValue As Byte = 4
   
7.     Dim Count As Byte = 0   '// นับจำนวนการพิมพ์ข้อมูล ตัวอย่างนี้มีข้อมูลอยู่ 5 ชุด คือ 0 - 4
   
8.     '// Sample data.
   
9.     Dim row As String() = New String() { _
   
10.         "ทดสอบภาษาไทย QR Code พิมพ์ผ่าน ActiveReports 6.0", _
    
11.         "MessagingToolkit.QRCode with ActiveReports 6.0", _
    
12.         "https://line.me/ti/p/g2gnet", _
    
13.         "http://www.g2gsoft.com/", _
    
14.         "http://www.thongkorn.com" _
    
15.     }
    
16. 
    
17.     ' / --------------------------------------------------------------------------------
    
18.     ' / (1) ส่วนของการตั้งค่าเริ่มต้นครั้งแรกครั้งเดียว
    
19.     ' / จากนั้นมันจะกระโดดไปทำงานที่โปรแกรมย่อย FetchData
    
20.     ' / --------------------------------------------------------------------------------
    
21.     Private Sub NewActiveReport1_ReportStart(sender As Object, e As System.EventArgs) Handles Me.ReportStart
    
22.         '/ การตั้งค่าหน้ากระดาษ
    
23.         With PageSettings
    
24.             '/ หน่วยวัดเป็นนิ้ว (ใช้ CmToInch ด้วยการรับค่าเซนติเมตร แต่แปลงเป็นนิ้วแทน เพื่อวัดระยะได้ง่ายกว่า)
    
25.             '/ หากกำหนดขนาดกระดาษเกิน เวลาแสดงผลรายงาน จะมีแถบแนวตั้งสีแดงปรากฏ
    
26.             .Margins.Left = CmToInch(0.75)
    
27.             .Margins.Right = CmToInch(0.45)
    
28.             .Margins.Top = CmToInch(1.5)
    
29.             .Margins.Bottom = CmToInch(1.5)
    
30.             '/ ตั้งค่ากระดาษแนวตั้ง
    
31.             .Orientation = PageOrientation.Portrait
    
32.             '/ กระดาษขนาด A4
    
33.             .PaperKind = Drawing.Printing.PaperKind.A4
    
34.             '/ กรณีที่กำหนดขนาดกระดาษเอง
    
35.             '/ .PaperKind = Drawing.Printing.PaperKind.Custom
    
36.         End With
    
37.         '/ กระโดดไปที่โปรแกรมย่อย FetchData (2)
    
38.     End Sub
    
39. 
    
40.     ' / --------------------------------------------------------------------------------
    
41.     ' / (2) ส่วนของการตรวจสอบจำนวนข้อมูล
    
42.     ' / หาก Count มีค่ามากกว่า 4 ก็จะจบการทำงาน (eArgs.EOF = True)
    
43.     ' / --------------------------------------------------------------------------------
    
44.     Private Sub NewActiveReport1_FetchData(sender As Object, eArgs As DataDynamics.ActiveReports.ActiveReport.FetchEventArgs) Handles Me.FetchData
    
45.         If Count > MaxValue Then
    
46.             '/ หากหมดแล้วก็จบการพิมพ์
    
47.             eArgs.EOF = True
    
48.             'Exit Sub
    
49. 
    
50.             '/ ยังไม่หมดข้อมูล
    
51.         Else
    
52.             eArgs.EOF = False
    
53.             '/ กระโดดไปทำงานที่ Detail1_Format (3)
    
54.         End If
    
55.     End Sub
    
56. 
    
57.     ' / --------------------------------------------------------------------------------
    
58.     ' / (3) จาก FetchData หาก eArgs.EOF = False
    
59.     ' / มันจะวนกลับมาพิมพ์ใหม่อีกรอบ
    
60.     ' / --------------------------------------------------------------------------------
    
61.     Private Sub Detail1_Format(sender As System.Object, e As System.EventArgs) Handles Detail1.Format
    
62.         Dim QRCode As New QRCodeEncoder
    
63.         Try
    
64.             With picBarcode
    
65.                 .Image = QRCode.Encode(row(Count), System.Text.Encoding.UTF8)
    
66.                 .SizeMode = PictureBoxSizeMode.StretchImage
    
67.             End With
    
68.             lblURL.Text = row(Count)
    
69.             Count = Count + 1 '// Increment Counter.
    
70.         Catch ex As Exception
    
71.             MessageBox.Show(ex.Message)
    
72.         End Try
    
73.         '/ กระโดดกลับไปที่โปรแกรมย่อย FetchData (2)
    
74.     End Sub
    
75. End Class

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

ดาวน์โหลดโค้ดต้นฉบับ VB.NET (2010) ได้จากที่นี่ ...