パネル内にあるグループボックス内に複数のテキストボックスをクリアする

Question

Public Sub ClearTextBoxes(ByVal Frm As Form) 
    Dim Ctl As Control 
    For Each Ctl In Frm.Controls 
     If TypeOf Ctl Is TextBox Then Ctl.Text = "" 
     If TypeOf Ctl Is GroupBox Then 
      Dim Ctl1 As Control 
      For Each Ctl1 In Ctl.Controls 
       If TypeOf Ctl1 Is TextBox Then 
        Ctl1.Text = "" 
       End If 
      Next 
     End If 
     Next 
     End Sub 

私はこの方法がありますが、私のグループボックスはパネル内にあり、これらのコントロールで混乱しています。ここで

Answer 1

はそれを行うための一つの方法です：

Public Sub ClearTextBoxes(ByVal Frm As Form) 
     Dim Ctl As Control 

     For Each Ctl In Frm.Controls 
     If TypeOf Ctl Is TextBox Then Ctl.Text = "" 

     If TypeOf Ctl Is Panel Then 
      Dim Ctl1 As Control 

      For Each Ctl1 In Ctl.Controls 
       If TypeOf Ctl1 Is TextBox Then Ctl1.Text = "" 

       If TypeOf Ctl1 Is GroupBox Then 
        Dim Ctl2 As Control 

        For Each Ctl2 In Ctl1.Controls 
        If TypeOf Ctl2 Is TextBox Then Ctl2.Text = "" 
        Next 
       End If 
      Next 
     End If 
     Next 
    End Sub 

それはすべてのシナリオをカバーしていないかもしれないが、それはあなたが私たちに語っているもののために動作します。

Answer 2

最も簡単な方法は、単に列挙型のコントロールをフィルタリングすることである。

For Each p As Panel In Frm.Controls.OfType(Of Panel)() 
    For Each gb As GroupBox In p.Controls.OfType(Of GroupBox)() 
    For Each tb As TextBox In gb.Controls.OfType(Of TextBox)() 
     tb.Clear() 
    Next 
    Next 
Next 

Answer 3

は、私は、このコードは私のために完璧に動作することを締結している、すべてのご提案をいただき、ありがとうございます。

Public Sub ClearTextBoxes(ByVal Frm As Form) 
    Dim Ctl As Control 

    For Each Ctl In Frm.Controls 
     If TypeOf Ctl Is TextBox Then Ctl.Text = "" 

     If TypeOf Ctl Is Panel Then 
      Dim Ctl1 As Control 

      For Each Ctl1 In Ctl.Controls 
       If TypeOf Ctl1 Is TextBox Then Ctl1.Text = "" 

       If TypeOf Ctl1 Is GroupBox Then 
        Dim Ctl2 As Control 

        For Each Ctl2 In Ctl1.Controls 
         If TypeOf Ctl2 Is TextBox Then Ctl2.Text = "" 
        Next 
       End If 
      Next 
     End If 

     If TypeOf Ctl Is GroupBox Then 
      Dim Ctl1 As Control 
      For Each Ctl1 In Ctl.Controls 
       If TypeOf Ctl1 Is TextBox Then 
        Ctl1.Text = "" 
       End If 
      Next 
     End If 
    Next 
End Sub