[VB.NET] การตรวจสอบค่าว่างใน TextBox ทุกๆตัวที่อยู่บนฟอร์ม
อันนี้ถือว่าเป็นบันทึกกันลืมก็แล้วกันครับ โดยแอดมินจะทำไว้ 2 เวอร์ชั่น ...เวอร์ชั่นแรก ...
For Each c As Control In Me.Controls
If TypeOf (c) Is TextBox AndAlso c.Text = "" Then
MsgBox("TextBox is empty: " & c.Name)
Exit For
End If
Next
เวอร์ชั่นสอง ... สำหรับการตรวจสอบและแจ้งให้รู้ว่ามี TextBox ตัวใดบ้างที่ยังไม่มีการป้อนต่าใดๆ ...
Dim empty = Me.Controls.OfType(Of TextBox)().Where(Function(txt) txt.Text.Length = 0)
If empty.Any Then
MsgBox(String.Format("กรุณาป้อนข้อมูลลงใน: {0}", String.Join(", ", empty.Select(Function(txt) txt.Name))))
End If
ขอบพระคุณคับ
หน้า:
[1]