[VB.NET] การนำข้อมูลจาก TextBox Control แปลงเป็นไฟล์ PDF ด้วย Syncfusion

thongkorn

โค้ด VB.NET ในการนำข้อมูลจาก TextBox Control แปลงเป็นไฟล์ PDF ด้วย Syncfusion ...

ดาวน์โหลด Syncfusion Community Free Edition ได้ที่นี่ ...

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

1. Imports Syncfusion.Pdf
   
2. Imports Syncfusion.Pdf.Graphics
   
3. 
   
4. Public Class frmTextboxToPDF
   
5.     Dim strPathPDF As String = MyPath(Application.StartupPath) & "PDF"
   
6. 
   
7.     Private Sub frmTextboxToPDF_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
   
8.         Me.TextBoxExt1.Text = _
   
9.             "ผู้ชายคนหนึ่งที่รักและหลงใหลในภาษาเบสิค เพราะมันตอบโจทย์ให้กับลูกค้าได้หมด" & vbCrLf & _
   
10.             "และสามารถทำเงินมาเลี้ยงดูลูกเมียได้ แล้วยังจะมาสงสัยในความเก่งของตัวแปลภาษา" & vbCrLf & _
    
11.             "และคนใช้ภาษาโปรแกรมกันไปทำไม ... อินดี้ฟรีแลนซ์สายทำมะ"
    
12.         If (Not System.IO.Directory.Exists(strPathPDF)) Then System.IO.Directory.CreateDirectory(strPathPDF)
    
13.         Call CreatePDF()
    
14.     End Sub
    
15. 
    
16.     Private Sub CreatePDF()
    
17.         Dim document = New PdfDocument()
    
18.         '// Set viewer preferences for the reader
    
19.         document.ViewerPreferences.HideMenubar = True
    
20.         document.ViewerPreferences.HideWindowUI = True
    
21.         document.ViewerPreferences.HideToolbar = True
    
22.         document.ViewerPreferences.FitWindow = True
    
23.         document.ViewerPreferences.PageLayout = PdfPageLayout.SinglePage
    
24.         document.PageSettings.Orientation = PdfPageOrientation.Portrait
    
25.         document.PageSettings.Margins.All = 0
    
26. 
    
27.         '// Set page size
    
28.         Dim pageSize = New SizeF(500, 310)
    
29.         document.PageSettings.Width = pageSize.Width
    
30.         document.PageSettings.Height = pageSize.Height
    
31. 
    
32.         '// Initialize font and brush
    
33.         '/ Add a page.
    
34.         Dim page As PdfPage = document.Pages.Add()
    
35.         '/ Create PDF graphics for the page.
    
36.         Dim graphics As PdfGraphics = page.Graphics
    
37.         '/ Create a solid brush.
    
38.         Dim brush As PdfBrush = New PdfSolidBrush(Color.Black)
    
39.         '/ Set the font.
    
40.         Dim font As PdfFont = New PdfTrueTypeFont(New Font("Arial Unicode MS", 16), 13, True)
    
41.         '/ Draw the text.
    
42.         graphics.DrawString(Me.TextBoxExt1.Text, font, brush, New PointF(20, 20))
    
43. 
    
44.         '/ Save the document.
    
45.         Dim pdfFile As String = strPathPDF & "sample.pdf"
    
46.         document.Save(pdfFile)
    
47.         document.Close(True)
    
48.         '// Show PDF File in PdfViewerControl.
    
49.         Me.PdfViewerControl1.Load(strPathPDF & "sample.pdf", "")
    
50.     End Sub
    
51. 
    
52.     Private Sub btnPreview_Click(sender As System.Object, e As System.EventArgs) Handles btnPreview.Click
    
53.         Call CreatePDF()
    
54.     End Sub
    
55. 
    
56.     Private Sub frmTextboxToPDF_FormClosed(sender As Object, e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
    
57.         Me.Dispose()
    
58.         GC.SuppressFinalize(Me)
    
59.         End
    
60.     End Sub
    
61. 
    
62.     Private Sub btnExit_Click(sender As System.Object, e As System.EventArgs) Handles btnExit.Click
    
63.         Me.Close()
    
64.     End Sub
    
65. 
    
66. #Region "FUNCTION"
    
67.     Function MyPath(ByVal AppPath As String) As String
    
68.         '/ MessageBox.Show(AppPath);
    
69.         AppPath = AppPath.ToLower()
    
70.         '/ Return Value
    
71.         MyPath = AppPath.Replace("\bin\debug", "").Replace("\bin\release", "").Replace("\bin\x86\debug", "").Replace("\bin\x86\release", "")
    
72.         '// If not found folder then put the \ (BackSlash) at the end.
    
73.         If Microsoft.VisualBasic.Right(MyPath, 1) <> Chr(92) Then MyPath = MyPath & Chr(92)
    
74.     End Function
    
75. #End Region
    
76. End Class

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

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