[VB.NET] การป้อนค่าลง TextBox เพื่อให้รับค่าเฉพาะที่ต้องการได้เท่านั้น

thongkorn

ตัวอย่างนี้จะให้สามารถกดได้เพียงตัวอักขระ (Character) คือ A - Z, 0 - 9 เครื่องหมาย - และ _ ได้เท่านั้น

1. Private Sub TextBox1_KeyPress(sender As Object, e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
   
2.         '// ดักค่าการกดคีย์ที่เราต้องการ
   
3.         '// ต้องการ A - Z, 0 - 9 อักขระพิเศษ - และ _
   
4.         e.Handled = SpecialChar(Asc(e.KeyChar))
   
5.     End Sub
   
6. 
   
7.     Function SpecialChar(index As Byte) As Boolean
   
8.         SpecialChar = True
   
9.         Select Case index
   
10.             '// 48 To 57 คือรหัสแอสกี้โค้ดตั้งแต่ '0' ถึง '9'
    
11.             Case 48 To 57, Asc("A") To Asc("Z"), Asc("_"), Asc("-")
    
12.                 SpecialChar = False
    
13.             Case 8 ' Back Space
    
14.                 SpecialChar = False
    
15.             Case 13 ' Enter
    
16.                 SpecialChar = False
    
17. 
    
18.                 '// ตัวที่ไม่อยู่ในรายการให้ Return True
    
19.             Case Else
    
20.                 SpecialChar = True
    
21.         End Select
    
22. 
    
23.     End Function

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

puklit

ผมขออนุญาตอาจารย์ทองก้อนเพิ่มอีกรูปแบบครับ
การระบุประเภทข้อความให้กับ Textbox ในรูปแบบ Class
โดยหากต้องการข้อมูลประเภทไหนก็ให้ Textbox เรียกใช้ผ่าน Class Clstextbox โดยใช้ Events KeyPress ดังนี้ครับ

ตัวอย่างฟอร์ม


โค้ดของ Class Clstextbox

1. Public Class ClsTextbox
   
2. 
   
3.     ' ระบุประเภทรูปแบบของ Textbox
   
4.     Public Enum Text_type
   
5. 
   
6.         Number_Only
   
7.         Number_with_dot
   
8.         Thai_alphabet
   
9.         Thai_alphabet_with_number
   
10.         English_alphabet
    
11.         English_alphabet_with_number
    
12. 
    
13.     End Enum
    
14. 
    
15.     ' กำหนดรูปแบบข้อความของ Textbox แต่ละประเภท
    
16.     Public Shared Sub Set_textbox_value(sender As Object, e As KeyPressEventArgs, Value_Type As Text_type)
    
17. 
    
18.         Dim key_ascii As Byte
    
19.         key_ascii = Asc(e.KeyChar) ' รับค่า e.keychar จาก textbox เป็น Key ascii
    
20. 
    
21.         ' อนุญาตให้ใช้ปุ่ม Backspace = 8 / Enter = 13
    
22.         If key_ascii = 8 Or key_ascii = 13 Then
    
23.             Exit Sub
    
24.         End If
    
25. 
    
26.         Select Case (Value_Type)
    
27. 
    
28.             Case Text_type.Number_Only
    
29. 
    
30.                 If key_ascii >= 48 And key_ascii <= 57 Then ' 48 = 0 - 57 = 9
    
31.                     e.Handled = False
    
32.                 Else
    
33.                     e.Handled = True
    
34.                 End If
    
35. 
    
36.             Case Text_type.Number_with_dot
    
37. 
    
38.                 If ((key_ascii >= 48 And key_ascii <= 57) Or key_ascii = 46) Then ' 48 = 0 - 57 = 9 / 46 - "."
    
39.                     e.Handled = False
    
40.                 Else
    
41.                     e.Handled = True
    
42.                 End If
    
43. 
    
44.             Case Text_type.Thai_alphabet
    
45. 
    
46.                 If key_ascii >= 161 And key_ascii <= 240 Then ' ภาษาไทยรวมทั้งตัวสระ + วรรณยุกต์
    
47.                     e.Handled = False
    
48.                 Else
    
49.                     e.Handled = True
    
50.                 End If
    
51. 
    
52.             Case Text_type.Thai_alphabet_with_number
    
53. 
    
54.                 If key_ascii >= 48 And key_ascii <= 57 Then ' 48 = 0 - 57 = 9
    
55.                     e.Handled = False
    
56.                 ElseIf key_ascii >= 161 And key_ascii <= 240 Then
    
57.                     e.Handled = False
    
58.                 Else
    
59.                     e.Handled = True
    
60.                 End If
    
61. 
    
62.             Case Text_type.English_alphabet
    
63. 
    
64.                 If key_ascii >= 58 And key_ascii <= 122 Then ' ภาษาอังกฤษ 58 - 122
    
65.                     e.Handled = False
    
66.                 Else
    
67.                     e.Handled = True
    
68.                 End If
    
69. 
    
70.             Case Text_type.English_alphabet_with_number
    
71. 
    
72.                 If key_ascii >= 48 And key_ascii <= 57 Then ' 48 = 0 - 57 = 9
    
73.                     e.Handled = False
    
74.                 ElseIf key_ascii >= 58 And key_ascii <= 122 Then ' ภาษาอังกฤษ 58 - 122
    
75.                     e.Handled = False
    
76.                 Else
    
77.                     e.Handled = True
    
78.                 End If
    
79. 
    
80.         End Select
    
81. 
    
82.     End Sub
    
83. 
    
84. 
    
85. End Class

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

กรณีที่ต้องการกำหนดให้ Textbox ใช้รูปแบบข้อความที่สามารถป้อนได้ในแต่ละรูปแบบ ให้เรียกใช้ผ่าน Class Clstextbox โดยใช้ Events KeyPress ดังนี้

1. Public Class Form1
   
2. 
   
3.     ' Number_Only
   
4.     Private Sub TextBox1_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TextBox1.KeyPress
   
5.         ClsTextbox.Set_textbox_value(sender, e, ClsTextbox.Text_type.Number_Only)
   
6.     End Sub
   
7. 
   
8.     'Number_with_dot
   
9.     Private Sub TextBox2_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TextBox2.KeyPress
   
10.         ClsTextbox.Set_textbox_value(sender, e, ClsTextbox.Text_type.Number_with_dot)
    
11.     End Sub
    
12. 
    
13.     ' Thai_alphabet
    
14.     Private Sub TextBox3_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TextBox3.KeyPress
    
15.         ClsTextbox.Set_textbox_value(sender, e, ClsTextbox.Text_type.Thai_alphabet)
    
16.     End Sub
    
17. 
    
18.     ' Thai_alphabet_with_number
    
19.     Private Sub TextBox4_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TextBox4.KeyPress
    
20.         ClsTextbox.Set_textbox_value(sender, e, ClsTextbox.Text_type.Thai_alphabet_with_number)
    
21.     End Sub
    
22. 
    
23.     ' English_alphabet
    
24.     Private Sub TextBox5_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TextBox5.KeyPress
    
25.         ClsTextbox.Set_textbox_value(sender, e, ClsTextbox.Text_type.English_alphabet)
    
26.     End Sub
    
27. 
    
28.     ' English_alphabet_with_number
    
29.     Private Sub TextBox6_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TextBox6.KeyPress
    
30.         ClsTextbox.Set_textbox_value(sender, e, ClsTextbox.Text_type.English_alphabet_with_number)
    
31.     End Sub
    

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

ท่านที่สนใจสามารถดาวน์โหลดโค้ด VB2017 ได้ที่นี่ครับ
Textbox_valueVB.rar (186.68 KB, ดาวน์โหลดแล้ว: 12028)

2018-5-7 10:10 อัปโหลด

คลิกชื่อไฟล์เพื่อดาวน์โหลด
ประโยชน์ของ Class คือหากโค้ดตัวไหนที่เราคิดว่าใช้บ่อยและเป็นประโยชน์กับอีกหลายโปรเจคแน่นอน สามารถสร้างเป็นไฟล์ .dll (ไลบรารี่ลิงก์แบบไดนามิก)
โดยจะเป็นการเขียนโค้ดแค่ครั้งเดียวไม่ต้องมาเขียนโค้ดเดิมซ้ำ อีกต่อไป ดังนี้
1. สร้างโปรเจคแบบ คลาสไลบรารี่ขึ้นมา


2. หลังจากที่เขียนโค้ดสำหรับสร้างไฟล์ .dll เสร็จ ให้เลือก เมนู Build ==> Build Solution


จะได้ไฟล์ .dll ออกมาดังนี้


3. ต่อไปสร้างโปรเจคใหม่ของเราขึ้นมาเพื่อเรียกใช้ไฟล์ .dll ที่เราสร้างขึ้นมาโดยไม่ต้องเขียนโค้ดใหม่
โดยการ Add reference ไฟล์ .dll เข้ามาในโปรเจคของเรา


หลังจากที่ Add reference แล้ว


สำหรับการเรียกใช้โค้ดจากไฟล์ .dll ดังนี้

1. Imports T = TextValue.TextValue
   
2. 
   
3. Public Class Form1
   
4. 
   
5.     Dim txt As New TextValue.TextValue
   
6. 
   
7.     Private Sub TextBox1_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TextBox1.KeyPress
   
8.         txt.Set_textbox_value(sender, e, T.Text_type.Number_Only)
   
9.     End Sub
   
10. 
    
11.     Private Sub TextBox2_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TextBox2.KeyPress
    
12.         txt.Set_textbox_value(sender, e, T.Text_type.Number_with_dot)
    
13.     End Sub
    
14. 
    
15.     Private Sub TextBox3_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TextBox3.KeyPress
    
16.         txt.Set_textbox_value(sender, e, T.Text_type.Thai_alphabet)
    
17.     End Sub
    
18. 
    
19.     Private Sub TextBox4_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TextBox4.KeyPress
    
20.         txt.Set_textbox_value(sender, e, T.Text_type.Thai_alphabet_with_number)
    
21.     End Sub
    
22. 
    
23.     Private Sub TextBox5_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TextBox5.KeyPress
    
24.         txt.Set_textbox_value(sender, e, T.Text_type.English_alphabet)
    
25.     End Sub
    
26. 
    
27.     Private Sub TextBox6_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TextBox6.KeyPress
    
28.         txt.Set_textbox_value(sender, e, T.Text_type.English_alphabet_with_number)
    
29.     End Sub
    
30. 
    
31. End Class

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

เป็นอันเสร็จขั้นตอนสำหรับการเขียนโค้ด โดยไม่ต้องเขียนโค้ดตาม Class Clstextbox อีกต่อไปสามารถทำให้งานเราเสร็จเร็วขึ้นได้ในระดับหนึ่ง

ตัวอย่างโค้ดไฟล์ .dll และโปรเจคที่เรียกใช้ไฟล์ .dll ท่านที่สนใจสามารถดาว์นโหลดได้ที่นี่ครับ
ไฟล์ VB2017
Textboxvalue_dll.rar (348.23 KB, ดาวน์โหลดแล้ว: 12286)

2018-5-9 10:39 อัปโหลด

คลิกชื่อไฟล์เพื่อดาวน์โหลด

pankiat913

ขอบคุณครับอาจารย์ thongkorn และคุณ puklit