[VB.NET] การสร้างฟอร์ม PDF ด้วย Syncfusion PDF Net Library

thongkorn

Syncfusion Essential PDF เป็น .NET PDF Library ที่ใช้ในการสร้าง/อ่านและแก้ไขเอกสาร PDF โดยคุณสามารถสร้างรูปแบบ PDF ให้อยู่ในรูปแบบที่โต้ตอบ (Interactive Form) ได้ทั้งภาษา C# และ VB.NET ... บทความนี้แอดมินจะนำท่านผู้ชมมาทำการสร้างไฟล์เอกสาร PDF โดยจะประกอบไปด้วย TextBox, CheckBox, ComboBox, RadioButton และ ListBox Control สิ่งต่างๆเหล่านี้เป็นการกำหนดฟิลด์ต่างๆเอาไว้ (จะมีการติดต่อกับฐานข้อมูลในตอนหน้า) แต่ในตอนนี้เราสามารถที่จะทำการป้อนข้อมูล และบันทึกข้อมูลลงไปในเอกสาร PDF ได้ครับผม ... ประโยชน์ก็คือ นำไปใช้ในเรื่องของสำนักงานไร้กระดาษ (Paperless) เช่น ใบสมัครงาน การทำข้อสอบ หรือแม้แต่ตามสถานพยาบาล และอื่นๆอีกเยอะแยะมากมาย ท่านทั้งหลายก็ไปคิดเพื่อใส่ติ่งไอเดียของตัวเองก็แล้วกันครับ ...


ดาวน์โหลดของฟรี Syncfusion Essential รุ่น Community ได้ที่นี่ (Version 17.1.0.47) ... ย้ำอีกทีว่าของฟรี 100% แน่นอน ...


Add References ...  ต้องใช้ Net Framework 4.0 ขึ้นไปเท่านั้น หากเป็น Client จะไม่ทำงาน


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

1. Imports Syncfusion.Pdf
   
2. Imports Syncfusion.Pdf.Graphics
   
3. Imports Syncfusion.Pdf.Interactive
   
4. 
   
5. Public Class frmCreateFormPDF
   
6.     Dim strPathData As String = MyPath(Application.StartupPath) & "data"
   
7. 
   
8.     Private Sub btnCreateFormPDF_Click(sender As System.Object, e As System.EventArgs) Handles btnCreateFormPDF.Click
   
9.         Call CreatePdfForm()
   
10.     End Sub
    
11. 
    
12.     Private Sub CreatePdfForm()
    
13.         '/ Create a new PDF document
    
14.         Dim document As PdfDocument = New PdfDocument()
    
15.         '/ Add a new page to the PDF document
    
16.         Dim page As PdfPage = document.Pages.Add()
    
17.         '/ Set the True type font.
    
18.         Dim font As PdfFont = New PdfTrueTypeFont(New Font("Tahoma", 14), 12, True)
    
19.         '/ Create a solid brush.
    
20.         Dim brush As PdfBrush = New PdfSolidBrush(Color.Black)
    
21.         '/ Draw the string  
    
22.         page.Graphics.DrawString("Job Application", font, brush, New PointF(250, 0))
    
23. 
    
24.         '// Create TextBox
    
25.         font = New PdfTrueTypeFont(New Font("Tahoma", 12), 12, True)
    
26.         page.Graphics.DrawString("Name", font, brush, New PointF(10, 20))
    
27.         '/ Create a text box field for name. "Name" is a name of TextBox Control.
    
28.         Dim textBoxField1 As PdfTextBoxField = New PdfTextBoxField(page, "Name")
    
29.         textBoxField1.Bounds = New RectangleF(10, 40, 200, 25)
    
30.         textBoxField1.ToolTip = "Name"
    
31.         document.Form.Fields.Add(textBoxField1)
    
32.         '/
    
33.         page.Graphics.DrawString("Email address", font, PdfBrushes.Black, New PointF(10, 80))
    
34.         '/ Create a text box field for email address
    
35.         Dim textBoxField3 As PdfTextBoxField = New PdfTextBoxField(page, "Email")
    
36.         textBoxField3.Bounds = New RectangleF(10, 100, 200, 20)
    
37.         textBoxField3.ToolTip = "Email address"
    
38.         document.Form.Fields.Add(textBoxField3)
    
39.         '//
    
40.         page.Graphics.DrawString("Phone", font, PdfBrushes.Black, New PointF(10, 140))
    
41.         '/ Create a text box field for phone
    
42.         Dim textBoxField4 As PdfTextBoxField = New PdfTextBoxField(page, "Phone")
    
43.         textBoxField4.Bounds = New RectangleF(10, 160, 200, 20)
    
44.         textBoxField4.ToolTip = "Phone"
    
45.         document.Form.Fields.Add(textBoxField4)
    
46. 
    
47.         '// Create RadioButton
    
48.         page.Graphics.DrawString("Gender", font, PdfBrushes.Black, New PointF(10, 200))
    
49.         '/ Create radio button for gender
    
50.         Dim employeesRadioList As PdfRadioButtonListField = New PdfRadioButtonListField(page, "Gender")
    
51.         document.Form.Fields.Add(employeesRadioList)
    
52.         page.Graphics.DrawString("Male", font, PdfBrushes.Black, New PointF(40, 220))
    
53.         Dim radioButtonItem1 As PdfRadioButtonListItem = New PdfRadioButtonListItem("Male")
    
54.         radioButtonItem1.Bounds = New RectangleF(10, 220, 20, 20)
    
55.         page.Graphics.DrawString("Female", font, PdfBrushes.Black, New PointF(140, 220))
    
56.         Dim radioButtonItem2 As PdfRadioButtonListItem = New PdfRadioButtonListItem("Female")
    
57.         radioButtonItem2.Bounds = New RectangleF(110, 220, 20, 20)
    
58.         employeesRadioList.Items.Add(radioButtonItem1)
    
59.         employeesRadioList.Items.Add(radioButtonItem2)
    
60. 
    
61.         '// Create ComboBox
    
62.         page.Graphics.DrawString("Which position you are applying for?", font, PdfBrushes.Black, New PointF(10, 260))
    
63.         '/ Create combo box for position
    
64.         Dim comboBox As PdfComboBoxField = New PdfComboBoxField(page, "JobTitle")
    
65.         comboBox.Bounds = New RectangleF(10, 280, 100, 20)
    
66.         comboBox.BorderColor = New PdfColor(Color.Gray)
    
67.         comboBox.ToolTip = "Job Title"
    
68.         comboBox.Items.Add(New PdfListFieldItem("Development", "Development"))
    
69.         comboBox.Items.Add(New PdfListFieldItem("Support", "Support"))
    
70.         comboBox.Items.Add(New PdfListFieldItem("Documentation", "Documentation"))
    
71.         document.Form.Fields.Add(comboBox)
    
72. 
    
73.         '// Create ListBox
    
74.         page.Graphics.DrawString("Languages Known", font, PdfBrushes.Black, New PointF(10, 320))
    
75.         '/ Create list box field for languages
    
76.         Dim listBoxField As PdfListBoxField = New PdfListBoxField(page, "Languages")
    
77.         listBoxField.Bounds = New RectangleF(10, 340, 100, 50)
    
78.         listBoxField.Items.Add(New PdfListFieldItem("English", "English"))
    
79.         listBoxField.Items.Add(New PdfListFieldItem("French", "French"))
    
80.         listBoxField.Items.Add(New PdfListFieldItem("German", "German"))
    
81.         document.Form.Fields.Add(listBoxField)
    
82. 
    
83.         '// Create CheckBox
    
84.         page.Graphics.DrawString("Highest Qualification", font, PdfBrushes.Black, New PointF(10, 410))
    
85.         '/ Add checked box field for associate degree
    
86.         Dim checkBoxField1 As PdfCheckBoxField = New PdfCheckBoxField(page, "Associate degree")
    
87.         page.Graphics.DrawString("Associate degree", font, PdfBrushes.Black, New PointF(30, 427))
    
88.         checkBoxField1.ToolTip = "Associate degree"
    
89.         checkBoxField1.Bounds = New RectangleF(10, 430, 10, 10)
    
90.         document.Form.Fields.Add(checkBoxField1)
    
91.         '/ Add checked box field for bachelor degree
    
92.         Dim checkBoxField2 As PdfCheckBoxField = New PdfCheckBoxField(page, "Bachelor degree")
    
93.         page.Graphics.DrawString("Bachelor degree", font, PdfBrushes.Black, New PointF(30, 447))
    
94.         checkBoxField2.ToolTip = "Bachelor degree"
    
95.         checkBoxField2.Bounds = New RectangleF(10, 450, 10, 10)
    
96.         document.Form.Fields.Add(checkBoxField2)
    
97.         '/ Add checked box field for Post Graduate
    
98.         Dim checkBoxField3 As PdfCheckBoxField = New PdfCheckBoxField(page, "Post Graduate")
    
99.         page.Graphics.DrawString("Post Graduate", font, PdfBrushes.Black, New PointF(30, 467))
    
100.         checkBoxField3.ToolTip = "Post Graduate"
     
101.         checkBoxField3.Bounds = New RectangleF(10, 470, 10, 10)
     
102.         document.Form.Fields.Add(checkBoxField3)
     
103. 
     
104.         '/ Save the document
     
105.         document.Save(strPathData & "FormPDF.pdf")
     
106.         '/ Close the document
     
107.         document.Close(True)
     
108.         '/ This will open the PDF file so, the result will be seen in default PDF Viewer.
     
109.         Process.Start(strPathData & "FormPDF.pdf")
     
110.     End Sub
     
111. 
     
112.     ' / --------------------------------------------------------------------------------
     
113.     ' / Get my project path
     
114.     ' / AppPath = C:\My Project\bin\debug
     
115.     ' / Replace "\bin\debug" with ""
     
116.     ' / Return : C:\My Project\
     
117.     Function MyPath(ByVal AppPath As String) As String
     
118.         '/ MessageBox.Show(AppPath);
     
119.         AppPath = AppPath.ToLower()
     
120.         '/ Return Value
     
121.         MyPath = AppPath.Replace("\bin\debug", "").Replace("\bin\release", "").Replace("\bin\x86\debug", "")
     
122.         '// If not found folder then put the \ (BackSlash) at the end.
     
123.         If Microsoft.VisualBasic.Right(MyPath, 1) <> Chr(92) Then MyPath = MyPath & Chr(92)
     
124.     End Function
     
125. 
     
126. End Class

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

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