[VB.NET] แจกโค้ดต้นฉบับและโปรแกรมการพิมพ์ไปรษณียบัตร ทายผลฟุตบอลโลก 2018

thongkorn

การวางไปรษณียบัตรเพื่อทำการพิมพ์ ...

สำหรับผู้ใช้งานทั่วไป คลิ๊กดาวน์โหลดโปรแกรมเพื่อใช้งานได้ที่นี่ ...

จะเป็นอะไรมั้ย ที่แอดมินจะลอกแนวคิดของการออกแบบมาจากความคิดของตัวเอง 5555+ ... สำหรับงานนี้ก็ยังคงยึดวิธีิคิดมาจาก VB6 อยู่เหมือนเดิม ในการปรับระยะการพิมพ์ และปรับฟอนต์และขนาดของตัวอักษร โดยใช้เทคนิคการเก็บข้อมูลเดิมกับการใช้งาน Registry ด้วยคำสั่ง (หรือฟังค์ชั่น) อย่างง่ายๆคือ GetSetting เพื่อทำการอ่านค่า และ SaveSetting เพื่อทำการเขียนค่าเข้าไปจัดเก็บครับผม ...

สำหรับท่านที่เผลอเข้ามา ดาวน์โหลด ActiveReports .NET Version 6.2.3681 (เฉพาะสมาชิกเท่านั้น)


Application Title

เรียกคำสั่งจาก Run --> RegEdit เพื่อมาดูผลการบันทึกลง Registry ...

Computer\HKEY_CURRENT_USER\Software\VB and VBA Program Settings\ชื่อ Application

มาดูโค้ดในส่วนของฟอร์มหลัก ...

1. ' / --------------------------------------------------------------------------------
   
2. ' / Developer : Mr.Surapon Yodsanga (Thongkorn Tubtimkrob)
   
3. ' / eMail : thongkorn@hotmail.com
   
4. ' / URL: http://www.g2gnet.com (Khon Kaen - Thailand)
   
5. ' / Facebook: https://www.facebook.com/g2gnet (For Thailand)
   
6. ' / Facebook: https://www.facebook.com/commonindy (Worldwide)
   
7. ' / Purpose : Print out postcard with ActiveReports.NET 6.0
   
8. ' / Microsoft Visual Basic .NET (2010) SP1
   
9. 
   
10. ' / This is open source code under @CopyLeft by Thongkorn Tubtimkrob.
    
11. ' / You can modify and/or distribute without to inform the developer.
    
12. ' / --------------------------------------------------------------------------------
    
13. Imports DataDynamics.ActiveReports
    
14. 
    
15. Public Class frmPrintPostcard
    
16. 
    
17.     Private Sub frmPrintPostcard_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
    
18.         txtSender.Text = _
    
19.             "นายทองก้อน ทับทิมกรอบ" & vbCrLf & _
    
20.             "142 ม.11 ซ.ฉัตรทอง 5 ถ.กลางเมือง" & vbCrLf & _
    
21.             "ต.เมืองเก่า อ.เมืองขอนแก่น" & vbCrLf & _
    
22.             "จ.ขอนแก่น 40000" & vbCrLf & "โทรศัพท์. 08-6862-6560"
    
23.         txtChamp.Text = "ไทยแลนด์"
    
24. 
    
25.         ' ตั้งค่า ActiveReports
    
26.         Viewer1.ReportViewer.Zoom = 1.0F   ' Zoom
    
27.         Viewer1.ReportViewer.DisplayUnits = Viewer.DisplayUnits.Metric
    
28.         Viewer2.ReportViewer.Zoom = 1.0F   ' Zoom
    
29.         Viewer2.ReportViewer.DisplayUnits = Viewer.DisplayUnits.Metric
    
30.         '// Minimum Size
    
31.         Me.MinimumSize = New Size(832, 733)
    
32.         '/ หากไม่มีค่าเดิม ให้ตั้งค่า Default แทน
    
33.         numLeftMargin.Text = ReadAppRegistry("SetMargin", "LeftMargin", "42")
    
34.         numTopMargin.Text = ReadAppRegistry("SetMargin", "TopMargin", "25")
    
35.         numLeftMarginChamp.Text = ReadAppRegistry("SetMargin", "LeftMarginChamp", "13")
    
36.         numTopMarginChamp.Text = ReadAppRegistry("SetMargin", "TopMarginChamp", "38")
    
37. 
    
38.         '// Initialize Font Style
    
39.         lblDataFont.Font = New Font(ReadAppRegistry("SetFont", "FontName", "BrowalliaUPC"), ReadAppRegistry("SetFont", "FontSize", "18"))
    
40.         '// Font Style
    
41.         ' 0001 (ฐาน 2) : 1 (ฐาน 10)  Bold
    
42.         ' 0010 (ฐาน 2) : 2 (ฐาน 10)  Italic
    
43.         ' 0100 (ฐาน 2) : 4 (ฐาน 10)  Underline
    
44.         ' 1000 (ฐาน 2) : 8 (ฐาน 10)  Strikeout
    
45.         '// ตั้งค่าเริ่มต้นเป็น 0 ให้หมด เพราะในเงื่อนไขด้านล่าง หากมีเงื่อนไขเป็นเท็จ จะได้ไม่ต้องมี Else ให้สิ้นเปลืองพลังงานการพิมพ์
    
46.         Dim fntBold As Byte = 0
    
47.         Dim fntItalic As Byte = 0
    
48.         Dim fntUnderline As Byte = 0
    
49.         Dim fntStrikeout As Byte = 0
    
50.         '// พิมพ์ชื่อผู้ส่ง
    
51.         If Convert.ToBoolean(ReadAppRegistry("SetFont", "FontBold", "False")) Then fntBold = 1
    
52.         If Convert.ToBoolean(ReadAppRegistry("SetFont", "FontItalic", "False")) Then fntItalic = 2
    
53.         If Convert.ToBoolean(ReadAppRegistry("SetFont", "FontUnderline", "False")) Then fntUnderline = 4
    
54.         If Convert.ToBoolean(ReadAppRegistry("SetFont", "FontStrikeout", "False")) Then fntStrikeout = 8
    
55.         '/ ใช้ลอจิก OR กระทำทางตรรกศาสตร์เลขฐาน 2
    
56.         lblDataFont.Font = New Font(lblDataFont.Font, fntBold Or fntItalic Or fntUnderline Or fntStrikeout)
    
57.         '/ แสดงผลตัวอย่าง และจะเก็บ Font Style เอาไว้ เพื่อทำการเขียนลง Registry
    
58.         lblDataFont.Text = lblDataFont.Font.Name & ", " & lblDataFont.Font.Size
    
59. 
    
60.         '// Initialize Font Style
    
61.         lblDataFontChamp.Font = New Font(ReadAppRegistry("SetFontChamp", "FontName", "BrowalliaUPC"), ReadAppRegistry("SetFontChamp", "FontSize", "20"))
    
62.         '// พิมพ์ชื่อแชมป์ (ใช้ตัวแปรเดิมได้โดยไม่ต้องประกาศใหม่)
    
63.         fntBold = 0 : fntItalic = 0 : fntUnderline = 0 : fntStrikeout = 0
    
64.         If Convert.ToBoolean(ReadAppRegistry("SetFontChamp", "FontBold", "False")) Then fntBold = 1
    
65.         If Convert.ToBoolean(ReadAppRegistry("SetFontChamp", "FontItalic", "False")) Then fntItalic = 2
    
66.         If Convert.ToBoolean(ReadAppRegistry("SetFontChamp", "FontUnderline", "False")) Then fntUnderline = 4
    
67.         If Convert.ToBoolean(ReadAppRegistry("SetFontChamp", "FontStrikeout", "False")) Then fntStrikeout = 8
    
68.         lblDataFontChamp.Font = New Font(lblDataFontChamp.Font, fntBold Or fntItalic Or fntUnderline Or fntStrikeout)
    
69.         lblDataFontChamp.Text = lblDataFontChamp.Font.Name & ", " & lblDataFontChamp.Font.Size
    
70.     End Sub
    
71. 
    
72.     ' / -----------------------------------------------------------------------------------------------
    
73.     ' / อ่านค่าจาก Registry และคืนค่าคุณสมบัตินั้นๆคืนกลับไป
    
74.     ' / Registry with VB.NET function
    
75.     Function ReadAppRegistry(SectionName As String, _
    
76.         KeyName As String, _
    
77.         KeyValue As String _
    
78.     ) As String
    
79.         ' / -----------------------------------------------------------------------------------------------
    
80.         ' Application Title ...
    
81.         Dim AppTitle As String = My.Application.Info.Title
    
82. 
    
83.         If GetSetting(AppTitle, SectionName, KeyName) = "" Then _
    
84.             Call SaveSetting(AppTitle, SectionName, KeyName, KeyValue)
    
85.         ' ส่งค่าคืนกลับไปแบบ String
    
86.         ReadAppRegistry = GetSetting(AppTitle, SectionName, KeyName)
    
87. 
    
88.     End Function
    
89. 
    
90.     ' / -----------------------------------------------------------------------------------------------
    
91.     ' / เป็นการบันทึกลง Registry ดังนั้นจึงไม่ต้องคืนค่ากลับไป เราจึงใช้ Sub Program
    
92.     ' / Registry with VB.NET function
    
93.     ' / เวลาที่เรา Write Registry มันจะไปอยู่ที่
    
94.     ' / Computer\HKEY_CURRENT_USER\Software\VB and VBA Program Settings\ชื่อแอพพลิเคชั่นที่เราตั้งไว้ ตัวอย่างเช่น FIFAPostCard
    
95.     Sub WriteAppRegistry(SectionName As String, _
    
96.         KeyName As String, _
    
97.         KeyValue As String _
    
98.         )
    
99.         ' Application Title ...
    
100.         Dim AppTitle As String = My.Application.Info.Title
     
101.         Call SaveSetting(AppTitle, SectionName, KeyName, KeyValue)
     
102.     End Sub
     
103. 
     
104.     Private Sub btnPreview_Click(sender As System.Object, e As System.EventArgs) Handles btnPreview.Click
     
105.         If tabMain.SelectedTab Is TabPage1 Then
     
106.             '/ Instance name ARDesigner มันจะชี้ไปที่ไฟล์ arBarcode.vb
     
107.             Dim rpt As New arPrintPostcard()
     
108.             '/ Run Report
     
109.             rpt.Run()
     
110.             '/ โหลดรายงาน document (arPrintEnvelope) เข้าสู่ ActiveReports Viewer
     
111.             Me.Viewer1.Document = rpt.Document
     
112.         Else
     
113.             Dim rpt As New arPrintChamp()
     
114.             rpt.Run()
     
115.             Me.Viewer2.Document = rpt.Document
     
116.         End If
     
117.     End Sub
     
118. 
     
119.     Private Sub btnFont_Click(sender As System.Object, e As System.EventArgs) Handles btnFont.Click
     
120.         Dim FontDialog1 As FontDialog = New FontDialog
     
121.         '/ FontDialog รับค่าปัจจุบันจาก lblDataFont
     
122.         FontDialog1.Font = New Font(lblDataFont.Font.Name, lblDataFont.Font.Size, lblDataFont.Font.Style)
     
123. 
     
124.         If FontDialog1.ShowDialog <> Windows.Forms.DialogResult.Cancel Then
     
125.             lblDataFont.Font = FontDialog1.Font
     
126.             lblDataFont.Text = lblDataFont.Font.Name & " " & lblDataFont.Font.Size
     
127.         End If
     
128.         '/ SaveSetting to Registry
     
129.         Call WriteAppRegistry("SetFont", "FontName", lblDataFont.Font.Name)
     
130.         Call WriteAppRegistry("SetFont", "FontSize", lblDataFont.Font.Size)
     
131.         Call WriteAppRegistry("SetFont", "FontBold", Convert.ToBoolean(lblDataFont.Font.Bold))
     
132.         Call WriteAppRegistry("SetFont", "FontItalic", Convert.ToBoolean(lblDataFont.Font.Italic))
     
133.         Call WriteAppRegistry("SetFont", "FontStrikeout", Convert.ToBoolean(lblDataFont.Font.Strikeout))
     
134.         Call WriteAppRegistry("SetFont", "FontUnderline", Convert.ToBoolean(lblDataFont.Font.Underline))
     
135.     End Sub
     
136. 
     
137.     Private Sub btnFontChamp_Click(sender As System.Object, e As System.EventArgs) Handles btnFontChamp.Click
     
138.         Dim FontDialog1 As FontDialog = New FontDialog
     
139.         ' FontDialog รับค่าปัจจุบันจาก lblDataFontChamp
     
140.         FontDialog1.Font = New Font(lblDataFontChamp.Font.Name, lblDataFontChamp.Font.Size, lblDataFontChamp.Font.Style)
     
141. 
     
142.         If FontDialog1.ShowDialog <> Windows.Forms.DialogResult.Cancel Then
     
143.             lblDataFontChamp.Font = FontDialog1.Font
     
144.             lblDataFontChamp.Text = lblDataFontChamp.Font.Name & " " & lblDataFontChamp.Font.Size
     
145.         End If
     
146.         ' SaveSetting to Registry
     
147.         Call WriteAppRegistry("SetFontChamp", "FontName", lblDataFontChamp.Font.Name)
     
148.         Call WriteAppRegistry("SetFontChamp", "FontSize", lblDataFontChamp.Font.Size)
     
149.         Call WriteAppRegistry("SetFontChamp", "FontBold", Convert.ToBoolean(lblDataFontChamp.Font.Bold))
     
150.         Call WriteAppRegistry("SetFontChamp", "FontItalic", Convert.ToBoolean(lblDataFontChamp.Font.Italic))
     
151.         Call WriteAppRegistry("SetFontChamp", "FontStrikeout", Convert.ToBoolean(lblDataFontChamp.Font.Strikeout))
     
152.         Call WriteAppRegistry("SetFontChamp", "FontUnderline", Convert.ToBoolean(lblDataFontChamp.Font.Underline))
     
153.     End Sub
     
154. 
     
155.     Private Sub frmPrintPostcard_KeyDown(sender As Object, e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
     
156.         '/ ต้องตั้งค่าคุณสมบัติของฟอร์มแบบ Design Time --> KeyPreview = True
     
157.         Select Case e.KeyCode
     
158.             Case Keys.F7
     
159.                 Call btnPreview_Click(sender, New System.EventArgs())
     
160.             Case Keys.F10
     
161.                 Call btnExit_Click(sender, New System.EventArgs())
     
162.         End Select
     
163.     End Sub
     
164. 
     
165.     Private Sub btnExit_Click(sender As System.Object, e As System.EventArgs) Handles btnExit.Click
     
166.         Me.Close()
     
167.     End Sub
     
168. 
     
169.     Private Sub frmPrintPostcard_FormClosed(sender As Object, e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
     
170.         ' ก่อนจบโปรแกรมก็บันทึกระยะขอบซ้ายและบนลง Registry
     
171.         Call WriteAppRegistry("SetMargin", "LeftMargin", Val(numLeftMargin.Text))
     
172.         Call WriteAppRegistry("SetMargin", "TopMargin", Val(numTopMargin.Text))
     
173.         Call WriteAppRegistry("SetMargin", "LeftMarginChamp", Val(numLeftMarginChamp.Text))
     
174.         Call WriteAppRegistry("SetMargin", "TopMarginChamp", Val(numTopMarginChamp.Text))
     
175.         Me.Dispose()
     
176.         Application.Exit()
     
177.     End Sub
     
178. 
     
179. End Class

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

โค้ดในส่วนของการพิมพ์ใน ActiveReports .NET ... อยากให้สังเกตการ Design และการใช้โค้ดด้วยนะครับ ว่ามีอะไรที่ผิดแผกแตกต่างไปจากงานเดิมๆอะไรบ้าง

1. Imports DataDynamics.ActiveReports
   
2. Imports DataDynamics.ActiveReports.Document
   
3. 
   
4. Public Class arPrintPostcard
   
5. 
   
6.     '/ จะเริ่มต้นการทำงานที่โปรแกรมย่อยตัวนี้
   
7.     Private Sub arPrintPostcard_ReportStart(sender As Object, e As System.EventArgs) Handles Me.ReportStart
   
8.         ' การตั้งค่าแบบ Run Time (มีหน่วยวัดเป็นนิ้ว)
   
9.         With PageSettings
   
10.             .Margins.Left = CmToInch(0.5)
    
11.             .Margins.Right = CmToInch(0.5)
    
12.             .Margins.Top = CmToInch(0.5)
    
13.             .Margins.Bottom = CmToInch(0.5)
    
14.             '// ตั้งค่ากระดาษแนวตั้ง
    
15.             .Orientation = PageOrientation.Portrait
    
16.             .PaperKind = Drawing.Printing.PaperKind.Custom
    
17.             .PaperWidth = CmToInch(14.8) ' 14.8 ซม.
    
18.             .PaperHeight = CmToInch(10.5)
    
19.         End With
    
20.         '/ ความสูงของการพิมพ์ Detail
    
21.         Detail1.Height = CmToInch(10.5) ' วัดระยะโดยประมาณ 10.5 ซม แต่แปลงเป็นนิ้ว)
    
22.         ' กำหนดระยะการพิมพ์ที่อยู่ (รับค่าเป็นมิลลิเมตรเข้ามาหาร 10 เป็น ซม. แล้วแปลงเป็นนิ้ว)
    
23.         txtSender.Top = ActiveReport.CmToInch(Val(frmPrintPostcard.numTopMargin.Text) / 10)
    
24.         txtSender.Left = ActiveReport.CmToInch(Val(frmPrintPostcard.numLeftMargin.Text) / 10)
    
25. 
    
26.         ' กำหนดฟอนต์
    
27.         txtSender.Font = frmPrintPostcard.lblDataFont.Font
    
28.     End Sub
    
29. 
    
30.     '// ส่วนของการพิมพ์รายละเอียด
    
31.     Private Sub Detail1_Format(sender As System.Object, e As System.EventArgs) Handles Detail1.Format
    
32.         '// อ้างอิงค่าใน TextBox จากฟอร์มหลักเข้ามา
    
33.         txtSender.Text = frmPrintPostcard.txtSender.Text
    
34.     End Sub
    
35. End Class

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

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