[VB.NET] การตรวจสอบค่าว่างใน TextBox ทุกๆตัวที่อยู่บนฟอร์ม

thongkorn

อันนี้ถือว่าเป็นบันทึกกันลืมก็แล้วกันครับ โดยแอดมินจะทำไว้ 2 เวอร์ชั่น ...

เวอร์ชั่นแรก ...

1.         For Each c As Control In Me.Controls
   
2.             If TypeOf (c) Is TextBox AndAlso c.Text = "" Then
   
3.                 MsgBox("TextBox is empty: " & c.Name)
   
4.                 Exit For
   
5.             End If
   
6.         Next

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

เวอร์ชั่นสอง ... สำหรับการตรวจสอบและแจ้งให้รู้ว่ามี TextBox ตัวใดบ้างที่ยังไม่มีการป้อนต่าใดๆ ...

1.         Dim empty = Me.Controls.OfType(Of TextBox)().Where(Function(txt) txt.Text.Length = 0)
   
2.         If empty.Any Then
   
3.             MsgBox(String.Format("กรุณาป้อนข้อมูลลงใน: {0}", String.Join(", ", empty.Select(Function(txt) txt.Name))))
   
4.         End If
   

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