[VB.NET] ฟอร์มการชำระเงินด้วยการสร้างปุ่มคำสั่ง (Button) แบบไดนามิค

thongkorn

อย่างที่เรียนให้ทราบมาก่อนแล้วว่า Control ใน VB.NET จะไม่มี Index หรือ Array ซึ่งต่างไปจากเดิมที่มีอยู่ใน VB6 ดังนั้นจึงทำให้เกิดเหตุการณ์ซ้ำๆขึ้นมา เราจึงต้องใช้ List ของ Control เข้ามาเพื่อช่วยแก้ปัญหา เพื่อรวบเหตุการณ์ในการกดคลิ๊กเมาส์ที่ปุ่มคำสั่งมาไว้ที่เดียวกัน (อ่านรายละเอียด การสร้างเหตุการณ์เดียวกันให้กับปุ่มคำสั่ง (Button) แบบหลายตัว) สำหรับบทความนี้แอดมินจะ ทำการสร้างปุ่มคำสั่งในแบบไดนามิค หรือ Run Time ด้วยการใช้ Dictionary object ซึ่งเป็น การจับคู่ระหว่างค่า Text ของ Button Control และตัวปุ่มของมันเอง ซึ่งก็จะคล้ายๆกับ Array นั่นเอง ด้วยการประกาศตัวแปร Dim Buttons As New Dictionary(Of String, Button) ซึ่งจะทำให้ปุ่มคำสั่งถูกบังคับด้วยเหตุการณ์ ClickButton ที่ถูกสร้างขึ้นมาใหม่ ให้มาอยู่ที่เดียวกันหมดทุกๆตัว ...

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

1. #Region "ABOUT"
   
2. ' / ---------------------------------------------------------------
   
3. ' / Developer : Mr.Surapon Yodsanga (Thongkorn Tubtimkrob)
   
4. ' / eMail : thongkorn@hotmail.com
   
5. ' / URL: http://www.g2gnet.com (Khon Kaen - Thailand)
   
6. ' / Facebook: https://www.facebook.com/g2gnet (For Thailand)
   
7. ' / Facebook: https://www.facebook.com/commonindy (Worldwide)
   
8. ' / More Info: http://www.g2gnet.com/webboard
   
9. ' /
   
10. ' / Purpose: Payment with Button Array.
    
11. ' / Microsoft Visual Basic .NET (2010)
    
12. ' /
    
13. ' / This is open source code under @CopyLeft by Thongkorn Tubtimkrob.
    
14. ' / You can modify and/or distribute without to inform the developer.
    
15. ' / ---------------------------------------------------------------
    
16. #End Region
    
17. 
    
18. Public Class frmPayment
    
19. 
    
20.     Private Sub frmPayment_KeyDown(sender As Object, e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
    
21.         Select Case e.KeyCode
    
22.             Case Keys.F8
    
23.                 btnCash_Click(sender, e)
    
24.             Case Keys.F10
    
25.                 Me.Close()
    
26.         End Select
    
27.     End Sub
    
28. 
    
29.     Private Sub frmPayment_Load(sender As Object, e As System.EventArgs) Handles Me.Load
    
30.         '// เพิ่มปุ่มคำสั่ง 3 หลัก จำนวน 9 ตัว
    
31.         Call AddButtons(3, 9)
    
32.         '//
    
33.         Dim Rnd As New Random
    
34.         txtAmount.Text = Format(CDbl(Rnd.Next(1000, 9999)), "#,##")
    
35.         txtCash.Text = "0"
    
36.         txtChange.Text = "0.00"
    
37.         '//
    
38.         txtCash.Focus()
    
39.     End Sub
    
40. 
    
41.     '// เพิ่มปุ่มคำสั่ง (Button Control) รับค่าจำนวนหลัก, จำนวนปุ่มสูงสุด
    
42.     Private Sub AddButtons(ByVal ColCount As Byte, ByVal MaxBtn As Byte)
    
43.         Dim Buttons As New Dictionary(Of String, Button)
    
44.         Me.Panel1.Width = ColCount * 100
    
45.         For i As Integer = 0 To MaxBtn - 1
    
46.             Dim B As New Button
    
47.             '// นำปุ่มไปใส่ไว้ใน Panel
    
48.             Me.Panel1.Controls.Add(B)
    
49.             With B
    
50.                 .Height = 60
    
51.                 .Width = 66
    
52.                 .Left = (i Mod ColCount) * B.Width
    
53.                 .Top = (i \ ColCount) * B.Height
    
54.                 .Text = i + 1
    
55.                 Buttons.Add(B.Text, B)
    
56.                 '// Tag เอาไว้เก็บค่าอย่างอื่นก็ได้
    
57.                 .Tag = i + 1
    
58.                 .Cursor = Cursors.Hand
    
59.                 .Font = New Font("Tahoma", 14, FontStyle.Bold)
    
60.             End With
    
61.             '// Force events handler.
    
62.             AddHandler B.Click, AddressOf ClickButton
    
63.         Next
    
64.     End Sub
    
65. 
    
66.     '// Click Button event, get the text of button
    
67.     Public Sub ClickButton(ByVal sender As Object, ByVal e As System.EventArgs)
    
68.         Dim btn As Button = sender
    
69.         'MessageBox.Show("คุณคลิ๊ก [" + btn.Text + "]" & vbCrLf & "Tag=" & btn.Tag)
    
70.         '// เอาตัวอักขระมาเรียงต่อกันก่อน แล้วค่อยแปลงเป็นตัวเลข
    
71.         txtCash.Text = Val(txtCash.Text + btn.Text)
    
72.         '// คำนวณผลรวม
    
73.         Call CalSum()
    
74.         txtCash.Focus()
    
75.     End Sub
    
76. 
    
77.     ' / ---------------------------------------------------------------
    
78.     ' / ฟังค์ชั่นในการป้อนเฉพาะค่าตัวเลขได้เท่านั้น (ควรนำไปเก็บไว้ใน Module)
    
79.     Function CheckDigitOnly(ByVal index As Integer) As Boolean
    
80.         Select Case index
    
81.             Case 48 To 57 ' เลข 0 - 9
    
82.                 CheckDigitOnly = False
    
83.             Case 8, 13 ' Backspace = 8, Enter = 13
    
84.                 CheckDigitOnly = False
    
85.             Case Else
    
86.                 CheckDigitOnly = True
    
87.         End Select
    
88.     End Function
    
89. 
    
90.     ' / ---------------------------------------------------------------
    
91.     Private Sub btnCash_Click(sender As System.Object, e As System.EventArgs) Handles btnCash.Click
    
92.         If txtCash.Text = "" Or Len(txtCash.Text) = 0 Or Val(txtCash.Text) = 0 Then
    
93.             txtCash.Text = 0
    
94.             txtChange.Text = "0.00"
    
95.             txtCash.Focus()
    
96.             Exit Sub
    
97.         End If
    
98.         '// CDbl = Convert to Double, หากใช้แค่เลขจำนวนเต็ม สามารถใช้การ Convert เป็นแบบเลขจำนวนเต็มแทน เช่น CInt หรือ CLng
    
99.         If CDbl(txtCash.Text) - CDbl(txtAmount.Text) < 0 Then
    
100.             MessageBox.Show("จำนวนเงินยังไม่ครบ กรุณาแก้ไขข้อมูลใหม่ด้วย.", "รายงานสถานะ", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
     
101.             txtCash.Focus()
     
102.         Else
     
103.             MessageBox.Show("ทำรายการเสร็จสิ้น.", "รายงานสถานะ", MessageBoxButtons.OK, MessageBoxIcon.Information)
     
104.             Dim Rnd As New Random
     
105.             txtAmount.Text = Format(CDbl(Rnd.Next(1000, 9999)), "#,##")
     
106.             txtCash.Text = 0
     
107.             txtChange.Text = "0.00"
     
108.             'Me.Close()
     
109.         End If
     
110.     End Sub
     
111. 
     
112.     Private Sub txtCash_KeyPress(sender As Object, e As System.Windows.Forms.KeyPressEventArgs) Handles txtCash.KeyPress
     
113.         '// รับค่าเฉพาะตัวเลขเท่านั้น
     
114.         e.Handled = CheckDigitOnly(Asc(e.KeyChar))
     
115.         txtCash.Text = CDbl(txtCash.Text)
     
116.     End Sub
     
117. 
     
118.     Private Sub txtCash_TextChanged(sender As System.Object, e As System.EventArgs) Handles txtCash.TextChanged
     
119.         Call CalSum()
     
120.     End Sub
     
121. 
     
122.     Private Sub btnClear_Click(sender As System.Object, e As System.EventArgs) Handles btnClear.Click
     
123.         txtCash.Text = "0"
     
124.         txtChange.Text = "0.00"
     
125.     End Sub
     
126. 
     
127.     ' / ---------------------------------------------------------------
     
128.     Private Sub CalSum()
     
129.         '/ Trap Error
     
130.         If Trim(txtCash.Text) = "" Or Len(Trim(txtCash.Text)) = 0 Then
     
131.             txtCash.Text = 0
     
132.             txtChange.Text = "0.00"
     
133.             Exit Sub
     
134.         End If
     
135.         '//
     
136.         Dim dChange As Double = CDbl(txtCash.Text) - CDbl(txtAmount.Text)
     
137.         txtChange.Text = dChange
     
138.         If CDbl(dChange) < 0 Then
     
139.             txtChange.ForeColor = Color.Red
     
140.         Else
     
141.             txtChange.ForeColor = Color.Blue
     
142.         End If
     
143.         txtCash.Focus()
     
144.     End Sub
     
145. 
     
146.     Private Sub btn2Zero_Click(sender As System.Object, e As System.EventArgs) Handles btn2Zero.Click
     
147.         txtCash.Text = CDbl(txtCash.Text + btn2Zero.Text)
     
148.         Call CalSum()
     
149.     End Sub
     
150. 
     
151.     Private Sub btn1Zero_Click(sender As System.Object, e As System.EventArgs) Handles btn1Zero.Click
     
152.         txtCash.Text = CDbl(txtCash.Text + btn1Zero.Text)
     
153.         Call CalSum()
     
154.     End Sub
     
155. 
     
156.     Private Sub txtAmount_KeyPress(sender As Object, e As System.Windows.Forms.KeyPressEventArgs) Handles txtAmount.KeyPress
     
157.         e.Handled = True
     
158.     End Sub
     
159. 
     
160.     Private Sub txtChange_KeyPress(sender As Object, e As System.Windows.Forms.KeyPressEventArgs) Handles txtChange.KeyPress
     
161.         e.Handled = True
     
162.     End Sub
     
163. 
     
164.     Private Sub btnExit_Click(sender As System.Object, e As System.EventArgs) Handles btnExit.Click
     
165.         Me.Close()
     
166.     End Sub
     
167. End Class

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

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