C# と VB.NET の質問掲示板

> フォーム上にテキストボックス、ラベルなど様々な
> コントロールが実装されている状態で、「テキストボックスが何個実装されているか」
> を取得するにはどうすればよいのでしょうか？

たとえば:

            int count = 0;
            foreach (Control item in Controls)
            {
                if (item is TextBox) ++count;
            }

VBのコードで確認もしてないけど

Dim i As Integer = GetTextBoxCount(Me)

Private Function GetTextBoxCount(ByVal Ctrl As Control) As Integer
　If Ctrl.Controls.Count = 0 Then
　　If TypeOf Ctrl Is TextBox Then
　　　Return 1
　　Else
　　　Return 0
　　End If
　End If

　Dim i As Integer
　For Each c As Control In Ctrl.Controls
　　i += GetTextBoxCount(c)
　Next
　Return i
End Function