|
อันนี้ถือว่าเป็นบันทึกกันลืมก็แล้วกันครับ โดยแอดมินจะทำไว้ 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
คัดลอกไปที่คลิปบอร์ด
|
|