[VB.NET] การทำหมายเลขหน้าเป็นเลขไทยใน ActiveReports .NET

thongkorn

ก็เป็นคำถามมาจากมิตรรักแฟนคลับ Visual Basic & ActiveReports ซึ่งแอดมินก็เคยใช้แต่หมายเลขหน้าเป็นเลขอารบิค โดยเลือก ReportInfo เข้ามาวางแปะลงบนฟอร์มของ ActiveReports จากนั้นก็ใส่สคริปท์ที่มีมาให้ในตัวของมันตรงคุณสมบัติ FormatString เช่น Page {PageNumber}/{PageCount} ผลลัพธ์ที่ได้คือ Page 1/123 ... ทีนี้พอจะทำเป็นเลขไทยนี่ซิ งงตึ๊บไปนานเลย เพราะเราเอาค่าหมายเลขหน้าออกมาตรงๆจากเหตุการณ์ PageFooter1_Format ไม่ได้ หลังจากที่ค้นหาข้อมูลจาก Help หรือคู่มือไปแว่บนึง ก็เลยทำให้รู้วิธีการในการอ่านค่าเลขหน้าออกมา ด้วยการย้ายไปอ่านค่าในเหตุการณ์ PageFooter1_BeforePrint แทน ... เท่านี้ก็จบ


Design Time ในการใช้ ReportInfo ...



มาดูโค้ดฉบับเต็มกันเถอะ ... (ส่วนของฟอร์ม VB)

1. Public Class frmARNetPage
   
2. 
   
3.     Private Sub btnGenData_Click(sender As System.Object, e As System.EventArgs) Handles btnGenData.Click
   
4.         Call FillData()
   
5.         Call InitializeGrid()
   
6.     End Sub
   
7. 
   
8.     ' / --------------------------------------------------------------------------
   
9.     Private Sub FillData()
   
10.         Dim dt As New DataTable
    
11.         dt.Columns.Add("PK")
    
12.         dt.Columns.Add("ID")
    
13.         dt.Columns.Add("Number Field")
    
14.         dt.Columns.Add("Double Field")
    
15.         dt.Columns.Add("Date Field")
    
16.         Dim RandomClass As New Random()
    
17.         For i As Long = 0 To 999
    
18.             Dim dr As DataRow = dt.NewRow()
    
19.             dr(0) = i + 1
    
20.             dr(1) = "ID" & i + 1
    
21.             dr(2) = RandomClass.Next(1, 99999)
    
22.             dr(3) = FormatNumber(RandomClass.Next(100, 1000) + RandomClass.NextDouble(), 2)
    
23.             '// Random Date
    
24.             Dim d As Date = Date.Today
    
25.             d = d.AddDays(RandomClass.Next(-30, 0))
    
26.             dr(4) = FormatDateTime(d, DateFormat.ShortDate).ToString
    
27.             dt.Rows.Add(dr)
    
28.         Next
    
29.         DataGridView1.DataSource = dt
    
30.         Label1.Text = "Total : " & dt.Rows.Count.ToString("#,##") & " Records."
    
31.     End Sub
    
32. 
    
33.     ' / --------------------------------------------------------------------------
    
34.     '// การตั้งค่าเริ่มต้นให้กับตารางกริดในแบบ @Run Time
    
35.     Private Sub InitializeGrid()
    
36.         With DataGridView1
    
37.             .RowHeadersVisible = False
    
38.             .AllowUserToAddRows = False
    
39.             .AllowUserToDeleteRows = False
    
40.             .AllowUserToResizeRows = False
    
41.             .MultiSelect = False
    
42.             .SelectionMode = DataGridViewSelectionMode.FullRowSelect
    
43.             .ReadOnly = True
    
44.             .Font = New Font("Tahoma", 9)
    
45.             ' จัดความกว้างของแต่ละหลัก
    
46.             .AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.Fill
    
47.             '.AutoResizeColumns()
    
48.             ' Adjust Header Styles
    
49.             With .ColumnHeadersDefaultCellStyle
    
50.                 .BackColor = Color.Navy
    
51.                 .ForeColor = Color.White
    
52.                 .Font = New Font("Tahoma", 9, FontStyle.Bold)
    
53.             End With
    
54.         End With
    
55.     End Sub
    
56. 
    
57.     Private Sub frmARNetPage_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
    
58.         Me.Label1.Text = ""
    
59.     End Sub
    
60. 
    
61.     Private Sub btnPreview_Click(sender As System.Object, e As System.EventArgs) Handles btnPreview.Click
    
62.         If DataGridView1.Rows.Count <= 0 Then Exit Sub
    
63.         ' Instance name ARDesigner มันจะชี้ไปที่ไฟล์ NewActiveReport1.vb
    
64.         Dim rpt As New NewActiveReport1
    
65.         '/ Run Report
    
66.         rpt.Run()
    
67.         '/ โหลดรายงาน document (arPrintBillA4A5) เข้าสู่ ActiveReports Viewer
    
68.         Me.Viewer1.Document = rpt.Document
    
69.         '// Zoom 90%
    
70.         Me.Viewer1.ReportViewer.Zoom = 0.9
    
71.     End Sub
    
72. End Class

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

มาดูโค้ดฉบับเต็มในส่วนของ ActiveReports ...

1. Imports DataDynamics.ActiveReports
   
2. Imports DataDynamics.ActiveReports.Document
   
3. 
   
4. Public Class NewActiveReport1
   
5.     Dim sRow As Integer
   
6. 
   
7.     Private Sub NewActiveReport1_FetchData(sender As Object, eArgs As DataDynamics.ActiveReports.ActiveReport.FetchEventArgs) Handles Me.FetchData
   
8.         If sRow >= frmARNetPage.DataGridView1.RowCount Then
   
9.             '/ หากหมดแล้วก็จบการพิมพ์
   
10.             eArgs.EOF = True
    
11.             Exit Sub
    
12.             '/ ยังไม่หมดข้อมูล
    
13.         Else
    
14.             eArgs.EOF = False
    
15.         End If
    
16. 
    
17.     End Sub
    
18. 
    
19.     Private Sub NewActiveReport1_ReportStart(sender As Object, e As System.EventArgs) Handles Me.ReportStart
    
20.         '/ การตั้งค่าหน้ากระดาษ
    
21.         With PageSettings
    
22.             '/ หน่วยวัดเป็นนิ้ว
    
23.             .Margins.Left = CmToInch(1) ' แปลงค่า 1.0 ซม. เป็นนิ้ว
    
24.             .Margins.Right = CmToInch(0.5)
    
25.             .Margins.Top = 0.5
    
26.             .Margins.Bottom = 0.2
    
27.             '/ ตั้งค่ากระดาษแนวตั้ง
    
28.             .Orientation = PageOrientation.Portrait
    
29.             '/ กระดาษขนาด A4
    
30.             '.PaperKind = Drawing.Printing.PaperKind.A4
    
31.             '/ กรณีที่กำหนดขนาดกระดาษเอง
    
32.             .PaperKind = Drawing.Printing.PaperKind.Custom
    
33.             .PaperWidth = CmToInch(21) ' 21 ซม.
    
34.             .PaperHeight = CmToInch(14.8)
    
35.         End With
    
36.         '/ ปกติต้องเคลียร์ค่าต่างๆของ TextBox ก่อนการพิมพ์
    
37.         txtPK.Text = ""
    
38.         txtID.Text = ""
    
39.         txtNumber.Text = ""
    
40.         txtDouble.Text = ""
    
41.         txtDate.Text = ""
    
42.     End Sub
    
43. 
    
44.     Private Sub Detail1_Format(sender As Object, e As System.EventArgs) Handles Detail1.Format
    
45.         With frmARNetPage.DataGridView1
    
46.             '// หลักแรกของ DataGridView แล้วเลื่อนตามจำนวนแถว sRow
    
47.             txtPK.Text = .Rows(sRow).Cells(0).Value
    
48.             '// หลักที่ 2
    
49.             txtID.Text = .Rows(sRow).Cells(1).Value
    
50.             '// หลักที่ 3
    
51.             txtNumber.Text = Format(CDbl(.Rows(sRow).Cells(2).Value), "#,##0")
    
52.             '// หลักที่ 4
    
53.             txtDouble.Text = Format(CDbl(.Rows(sRow).Cells(3).Value), "#,##0.00")
    
54.             '// หลักที่ 5
    
55.             txtDate.Text = Format(CDate(.Rows(sRow).Cells(4).Value), "dd/MM/yyyy")
    
56.         End With
    
57.         '// เลื่อนแถวของตารางกริด
    
58.         sRow += 1
    
59.     End Sub
    
60. 
    
61.     ' / --------------------------------------------------------------------------
    
62.     Private Sub PageFooter1_BeforePrint(sender As Object, e As System.EventArgs) Handles PageFooter1.BeforePrint
    
63.         '// ReportInfo1.Text = "1/72"
    
64.         Dim strPage As String = Me.ReportInfo1.Text
    
65.         lblPage.Text = "หน้าที่: " & ConvertArabic2Thai(strPage)
    
66.     End Sub
    
67. 
    
68.     ' / --------------------------------------------------------------------------
    
69.     ' / ฟังค์ชั่นในการแปลงเลขอารบิคเป็นเลขไทย
    
70.     Function ConvertArabic2Thai(ByVal strPage As String) As String
    
71.         Dim strWord As String = String.Empty
    
72.         '// แยก PageNumber ออกจาก PageCount ด้วยเครื่องหมาย /
    
73.         Dim p As String() = Split(strPage, "/")
    
74.         '// วนรอบ 2 ครั้งโดยข้อมูลชุดแรกเป็น PageNumber (หมายเลขหน้า)/PageCount จำนวนหน้าทั้งหมด
    
75.         '// หรือแก้ไขให้นับจำนวนหน้าทั้งหมดเพียงครั้งเดียวก็พอ
    
76.         For Cnt = 0 To UBound(p)
    
77.             For i = 1 To Len(p(Cnt))
    
78.                 Select Case Mid(p(Cnt), i, 1)
    
79.                     Case 0
    
80.                         strWord = strWord & "๐"
    
81.                     Case 1
    
82.                         strWord = strWord & "๑"
    
83.                     Case 2
    
84.                         strWord = strWord & "๒"
    
85.                     Case 3
    
86.                         strWord = strWord & "๓"
    
87.                     Case 4
    
88.                         strWord = strWord & "๔"
    
89.                     Case 5
    
90.                         strWord = strWord & "๕"
    
91.                     Case 6
    
92.                         strWord = strWord & "๖"
    
93.                     Case 7
    
94.                         strWord = strWord & "๗"
    
95.                     Case 8
    
96.                         strWord = strWord & "๘"
    
97.                     Case 9
    
98.                         strWord = strWord & "๙"
    
99.                 End Select
    
100.             Next
     
101.             If Cnt <> UBound(p) Then strWord = strWord & "/"
     
102.         Next
     
103.         Return strWord
     
104.     End Function
     
105. 
     
106. End Class

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

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

dekdar

ตามมาอ่าน

juachan

ขอบคุณครับ