[VB.NET] การพิมพ์ QR Code ลงในรายงาน RDLC และแสดงผลบน ReportViewer

thongkorn

การสร้างรายงาน (Report) หรือไฟล์ที่มีนามสกุล RDLC เพื่อแสดงผลบน ReportViewer ซึ่งพวกนี้เป็น Control มาตรฐานที่ทางไมโครซอฟท์แถมติดมาให้ด้วย โดยโค้ดชุดนี้ไม่ได้ว่าถึงเรื่องของฐานข้อมูล แต่จะเป็นการส่งค่าพารามิเตอร์ (Parameter) ไปยังเอกสาร RDLC คือชื่อไฟล์ภาพ และตำแหน่งที่เก็บภาพ เพื่อนำมาแสดงผลในรายงาน ...


หน้าจอหลัก


การ Add Parameters


การกำหนด Parameter


Add References ...


https://www.youtube.com/watch?v=bW8hksxTUHk
คลิปวิดีโอการสร้าง Parameter ที่จะต้องใช้งานในโปรเจค ...  

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

1. Imports ZXing.Common
   
2. Imports ZXing
   
3. Imports ZXing.Rendering
   
4. Imports ZXing.QrCode
   
5. Imports System.IO
   
6. Imports System.Drawing.Imaging
   
7. Imports Microsoft.Reporting.WinForms
   
8. 
   
9. Public Class frmZXingReportViewer
   
10.     '// Images Path
    
11.     Private strPathImages As String = MyPath(Application.StartupPath) & "Images" & Chr(92)
    
12. 
    
13.     ' / --------------------------------------------------------------------------------
    
14.     Private Sub frmZXingReportViewer_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
    
15.         txtURL.Text = "ทดสอบภาษาไทยสำหรับ ZXing QR Code เพื่อพิมพ์รายงานใน RDLC (Report Viewer)"
    
16.         'txtURL.Text = "http://www.g2gsoft.com/"
    
17.     End Sub
    
18. 
    
19.     ' / --------------------------------------------------------------------------------
    
20.     '// Generate QR Barcodes based on the specified text.
    
21.     ' / --------------------------------------------------------------------------------
    
22.     Private Sub txtURL_TextChanged(sender As Object, e As System.EventArgs) Handles txtURL.TextChanged
    
23.         If String.IsNullOrWhiteSpace(txtURL.Text) Then
    
24.             picBarcode.Image = Nothing
    
25.             Return
    
26.         End If
    
27.         '//
    
28.         Dim options As EncodingOptions = New QrCodeEncodingOptions
    
29.         With options
    
30.             .Margin = 1
    
31.             .NoPadding = True
    
32.             .Width = picBarcode.Width
    
33.             .Height = picBarcode.Height
    
34.             .Hints.Add(EncodeHintType.CHARACTER_SET, "UTF-8")
    
35.             .PureBarcode = False
    
36.         End With
    
37.         '//
    
38.         Dim objWriter As BarcodeWriter = New BarcodeWriter With {
    
39.                 .Format = BarcodeFormat.QR_CODE,
    
40.                 .Options = options,
    
41.                 .Renderer = New BitmapRenderer
    
42.             }
    
43.         picBarcode.Image = New Bitmap(objWriter.Write(txtURL.Text))
    
44.         picBarcode.SizeMode = PictureBoxSizeMode.StretchImage
    
45.     End Sub
    
46. 
    
47.     ' / --------------------------------------------------------------------------------
    
48.     '// Print QR Code into RDLC.
    
49.     ' / --------------------------------------------------------------------------------
    
50.     Private Sub btnPrintQRCode_Click(sender As System.Object, e As System.EventArgs) Handles btnPrintQRCode.Click
    
51.         If String.IsNullOrWhiteSpace(txtURL.Text) Then
    
52.             picBarcode.Image = Nothing
    
53.             Return
    
54.         End If
    
55.         Try
    
56.             Dim imageFullPath As String = strPathImages & "temp.png"
    
57.             '// Save picture.
    
58.             '//Dim FileToSaveAs As String = System.IO.Path.Combine(My.Computer.FileSystem.SpecialDirectories.Temp, imageFullPath)
    
59.             Dim FileToSaveAs As String = System.IO.Path.Combine(My.Application.Info.DirectoryPath, imageFullPath)
    
60.             picBarcode.Image.Save(FileToSaveAs, System.Drawing.Imaging.ImageFormat.Png)
    
61.             '// Parameter names in RDLC, uppercase and lowercase affect functionality. (picname not the same as PicName)
    
62.             Dim pictureName As ReportParameter = New ReportParameter("picName", imageFullPath)
    
63.             Dim picturePath As ReportParameter = New ReportParameter("picPath", New Uri(imageFullPath).AbsoluteUri)
    
64.             With ReportViewer1
    
65.                 .LocalReport.EnableExternalImages = True
    
66.                 .LocalReport.SetParameters(New ReportParameter() {pictureName, picturePath})
    
67.                 .RefreshReport()
    
68.             End With
    
69.         Catch ex As Exception
    
70.             MessageBox.Show(ex.Message)
    
71.         End Try
    
72.     End Sub
    
73. 
    
74.     ' / --------------------------------------------------------------------------------
    
75.     '// Copy image to clipboard.
    
76.     ' / --------------------------------------------------------------------------------
    
77.     Private Sub btnCopyClipboard_Click(sender As System.Object, e As System.EventArgs) Handles btnCopyClipboard.Click
    
78.         If picBarcode.Image Is Nothing Then
    
79.             MessageBox.Show("There is no QR Code.", "Report Status", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
    
80.             Return
    
81.         End If
    
82.         '/ Add it as an image
    
83.         Clipboard.SetImage(picBarcode.Image)
    
84.         '/ Create a PNG on disk and add the location to the clipboard.
    
85.         Dim TempName As String = "TempName.jpg"
    
86.         Dim TempPath As String = System.IO.Path.Combine(My.Computer.FileSystem.SpecialDirectories.Temp, TempName)
    
87.         Using FS As New System.IO.FileStream(TempPath, IO.FileMode.Create, IO.FileAccess.Write, IO.FileShare.Read)
    
88.             picBarcode.Image.Save(FS, System.Drawing.Imaging.ImageFormat.Png)
    
89.         End Using
    
90.         Dim Paths As New System.Collections.Specialized.StringCollection()
    
91.         Paths.Add(TempPath)
    
92.         Clipboard.SetFileDropList(Paths)
    
93.     End Sub
    
94. 
    
95.     Private Sub btnExit_Click(sender As System.Object, e As System.EventArgs) Handles btnExit.Click
    
96.         Me.Close()
    
97.     End Sub
    
98. 
    
99.     Private Sub frmZXingReportViewer_FormClosed(sender As Object, e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
    
100.         Me.Dispose()
     
101.         GC.SuppressFinalize(Me)
     
102.         Application.Exit()
     
103.     End Sub
     
104. 
     
105. #Region "FUNCTION"
     
106.     ' / --------------------------------------------------------------------------------
     
107.     ' / Get my project path
     
108.     ' / AppPath = C:\My Project\bin\debug
     
109.     ' / Replace "\bin\debug" with ""
     
110.     ' / Return : C:\My Project\
     
111.     Function MyPath(AppPath As String) As String
     
112.         '/ Return Value
     
113.         MyPath = AppPath.ToLower.Replace("\bin\debug", "").Replace("\bin\release", "").Replace("\bin\x86\debug", "")
     
114.         '// If not found folder then put the \ (BackSlash) at the end.
     
115.         If Microsoft.VisualBasic.Right(MyPath, 1) <> Chr(92) Then MyPath = MyPath & Chr(92)
     
116.     End Function
     
117. 
     
118. #End Region
     
119. End Class

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

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