[VB.NET] การเคลียร์ค่า TextBox ที่อยู่ใน GroupBox ให้เป็นค่าว่างเปล่า

thongkorn

เวลาเราใส่ TextBox Control เอาไว้ใน GroupBox Control (บน VB6 เรียกว่า Frame) หรือ Control อื่นๆ ปัญหาก็คือเราจะสั่งเคลียร์ค่าใน TextBox ผ่านฟอร์มโดยตรงไม่ได้ ต้องสั่งผ่าน Container Control ที่มวลหมู่ TextBox ทั้งหลายเข้าไปอยู่ในนั้น ...


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

1.         For Each gb As GroupBox In Me.Controls.OfType(Of GroupBox)()
   
2.             For Each tb As TextBox In gb.Controls.OfType(Of TextBox)()
   
3.                 tb.Clear()
   
4.             Next
   
5.         Next

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

puklit

ขออนุญาต อาจารย์ทองก้อน นำไปต่อยอดเพิ่มนะครับ
สำหรับโค้ดข้างล่างนี้ ผมได้เพิ่มค่าพารามิเตอร์ชื่อ Container_Control_Name
สำหรับรับประเภท Control เข้ามา ใช้ในการระบุว่า Textbox นั้นได้วางอยู่บน Control อะไร เช่น Form = Me หรือ Groupbox
เราก็จะสามารถเคลีย์ค่า textbox ที่วางอยู่ภายใต้ Form หรือ GroupBox ภายใต้โค้ดเดียวกันได้ครับ

1. Private Sub Cls_Textbox(Container_Control_Name As Control)
   
2. 
   
3.         For Each txt As TextBox In Container_Control_Name.Controls.OfType(Of TextBox)
   
4.             txt.Clear()
   
5.         Next
   
6. 
   
7.     End Sub

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

ตัวอย่างโค้ดการเคลีย์ค่า textbox ที่วางอยู่ภายใต้ Form
Cls_Textbox(Me)

ตัวอย่างโค้ดการเคลีย์ค่า textbox ที่วางอยู่ภายใต้ GroupBox
Cls_Textbox(GroupBox1)