各テキストボックスループについて

Question

私はパネル内のすべてのTextBoxをチェックし、Textが何もない場合はBackColorを変更するforeachループを作成しようとしています。

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

が、私はエラーを取得しています：

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

Answer 1

は、代わりに、このような何かを試してみてください：

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

はこれを試してみてください私は、次の試してみました。あなたも、データを入力するときには、バックの色を出してあげる

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 

継承されたTextBoxコントロールを作成し、フォーム上のことを使用することを含む、これを行うための別の方法もあります：

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

には、ネストされたコントロールが存在しないと仮定すると：

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