こんにちは、じゃんぬねっと です。
> テキストボックスなどをそれぞれクリアしていけばいいのですが、
> その処理を簡単に行いたいと思います。
> 方法をご存知の方がいらっしゃいましたら、ぜひお教え下さい。
For Each でコントロールを列挙してはいかがですか?
For Each pControl As Control In Me.Controls
If TypeOf pControl Is TextBox Then
DirectCast(pControl, TextBox).Text = ""
End If
Next pControl
ただし、GroupBox や Panel のようなコンテナ内に配置されたコントロールは
再帰によって検索する必要があります。
そういうメソッドを自作しましょう。
Public Shared Sub ClearAllTextBox(ByVal pParent As Control)
For Each pControl As Control In pParent.Controls
Select Case pControl.GetType().Name
Case "GroupBox", "Panel"
Call ClearAllTextBox(pControl)
Case "TextBox"
DirectCast(pParent, TextBox).Text = ""
End Select
Next pControl
End Sub
|