[VB.NET] การพิมพ์บาร์โค้ดทั้ง 1 มิติและ 2 มิติ แสดงผลในเอกสาร PDF ด้วย Syncfusion

thongkorn

การพิมพ์บาร์โค้ดทั้ง 1 มิติ (บาร์โค้ดแบบแท่ง) และ 2 มิติ (QR Code) แสดงผลในเอกสาร PDF ด้วย Syncfusion ...





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

1. '// Add References ...
   
2. '// Syncfusion.Pdf.Base.dll
   
3. '// Syncfusion.PdfViewer.Windows.dll
   
4. '// Syncfusion.Shared.Base.dll
   
5. 
   
6. Imports System.Drawing
   
7. Imports Syncfusion.Pdf
   
8. Imports Syncfusion.Pdf.Barcode
   
9. Imports Syncfusion.Pdf.Graphics
   
10. 
    
11. Public Class frmBarcodePDF
    
12. 
    
13.     Private Sub frmBarcodePDF_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
    
14.         Dim strPathPDF As String = MyPath(Application.StartupPath)
    
15.         '// Create a new PDF document.
    
16.         Dim document As New PdfDocument()
    
17.         '// Adding new page to PDF document.
    
18.         Dim page As PdfPage = document.Pages.Add()
    
19. 
    
20.         Dim HeaderFont As PdfFont = New PdfTrueTypeFont(New Font("Helvetica", 18, FontStyle.Bold))
    
21.         '/ Create PDF graphics for the page.
    
22.         Dim graphics As PdfGraphics = page.Graphics
    
23.         '/ Draw the text.
    
24.         graphics.DrawString("Print barcode to pdf document using Syncfusion.", HeaderFont, PdfBrushes.Black, New PointF(20, 10))
    
25. 
    
26.         ' / --------------------------------------------------------------------------------
    
27.         '// Drawing Code128B barcode.
    
28.         ' / --------------------------------------------------------------------------------
    
29.         Dim barcode As New PdfCode128BBarcode ' PdfCode39Barcode()
    
30.         With barcode
    
31.             '// Set height of the barcode.
    
32.             .BarHeight = 45
    
33.             '// Setting text of the barcode.
    
34.             .Text = "3720750441"
    
35.             '// Draw string
    
36.             page.Graphics.DrawString("Code128B", New PdfStandardFont(PdfFontFamily.Helvetica, 10, PdfFontStyle.Bold), PdfBrushes.Black, New PointF(20, 50))
    
37.             '// Printing barcode on to the PDF.
    
38.             .Draw(page, New PointF(50, 70))
    
39.         End With
    
40.         ' / --------------------------------------------------------------------------------
    
41.         '// Drawing QR Barcode.
    
42.         ' / --------------------------------------------------------------------------------
    
43.         Dim qrBarcode As New PdfQRBarcode()
    
44.         With qrBarcode
    
45.             '// Set Error Correction Level.
    
46.             .ErrorCorrectionLevel = PdfErrorCorrectionLevel.High
    
47.             '// Set XDimension.
    
48.             .XDimension = 3
    
49.             .Text = "สวัสดีครับผม" '"http://www.g2gsoft.com"
    
50.             '// Draw string.
    
51.             page.Graphics.DrawString("QR Barcode", New PdfStandardFont(PdfFontFamily.Helvetica, 10, PdfFontStyle.Bold), PdfBrushes.Black, New PointF(20, 160))
    
52.             '// Printing barcode on to the PDF.
    
53.             .Draw(page, New PointF(50, 170))
    
54.         End With
    
55. 
    
56.         ' / --------------------------------------------------------------------------------
    
57.         '// Save the document.
    
58.         document.Save(strPathPDF & "Barcode.pdf")
    
59.         '// Close the document
    
60.         document.Close(True)
    
61.         '// This will open the PDF file so, the result will be seen in default PDF viewer.
    
62.         '// Process.Start(strPathPDF & "Barcode.pdf")
    
63.         Me.PdfViewerControl1.Load(strPathPDF & "Barcode.pdf", "")
    
64. 
    
65.     End Sub
    
66. 
    
67.     Private Sub frmBarcodePDF_FormClosed(sender As Object, e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
    
68.         Me.Dispose()
    
69.         GC.SuppressFinalize(Me)
    
70.         Application.Exit()
    
71.     End Sub
    
72. 
    
73. #Region "FUNCTION"
    
74.     ' / --------------------------------------------------------------------------------
    
75.     ' / Get my project path
    
76.     ' / AppPath = C:\My Project\bin\debug
    
77.     ' / Replace "\bin\debug" with ""
    
78.     ' / Return : C:\My Project\
    
79.     Function MyPath(ByVal AppPath As String) As String
    
80.         '/ MessageBox.Show(AppPath);
    
81.         AppPath = AppPath.ToLower()
    
82.         '/ Return Value
    
83.         MyPath = AppPath.Replace("\bin\debug", "").Replace("\bin\release", "").Replace("\bin\x86\debug", "")
    
84.         '// If not found folder then put the \ (BackSlash) at the end.
    
85.         If Microsoft.VisualBasic.Right(MyPath, 1) <> Chr(92) Then MyPath = MyPath & Chr(92)
    
86.     End Function
    
87. #End Region
    
88. End Class

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

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