Đối với mỗi vòng lặp hộp văn bản

Question

Tôi đang cố gắng tạo vòng lặp foreach kiểm tra mọi Hộp văn bản trong bảng điều khiển và thay đổi BackColor nếu Văn bản của nó không là gì. Tôi đã thử những điều sau đây:

Dim c As TextBox 
For Each c In Panel1.Controls 
    if c.Text = "" Then 
    c.BackColor = Color.LightYellow 
    End If 
Next 

nhưng tôi nhận được lỗi:

Unable to cast object of type System.Windows.Forms.Label to type System.windows.forms.textbox

Answer 1

bạn có thể thử một cái gì đó giống như thay vì điều này:

Dim ctrl As Control 
    For Each ctrl In Panel1.Controls 
    If (ctrl.GetType() Is GetType(TextBox)) Then 
     Dim txt As TextBox = CType(ctrl, TextBox) 
     txt.BackColor = Color.LightYellow 
    End If 

Answer 2

Hãy thử điều này. Nó sẽ đưa các màu sắc trở lại khi bạn nhập dữ liệu cũng

For Each c As Control In Panel1.Controls 
     If TypeOf c Is TextBox Then 
      If c.Text = "" Then 
       c.BackColor = Color.LightYellow 
      Else 
       c.BackColor = System.Drawing.SystemColors.Window 
      End If 
     End If 
    Next 

Ngoài ra còn có một cách khác để làm điều này trong đó bao gồm việc tạo ra một điều khiển TextBox kế thừa và sử dụng rằng vào mẫu của bạn:

Public Class TextBoxCompulsory 
    Inherits TextBox 
    Overrides Property BackColor() As Color 
     Get 
      If MyBase.Text = "" Then 
       Return Color.LightYellow 
      Else 
       Return DirectCast(System.Drawing.SystemColors.Window, Color) 
      End If 
     End Get 
     Set(ByVal value As Color) 

     End Set 
    End Property 
End Class 

Answer 3

Giả sử không có điều khiển lồng nhau:

For Each c As TextBox In Panel1.Controls.OfType(Of TextBox)() 
    If c.Text = String.Empty Then c.BackColor = Color.LightYellow 
Next