タイトル : Re: 画面クリア 投稿日 : 2005/03/21(Mon) 12:19 投稿者 : じゃんぬねっと 参照先 : http://jeanne.wankuma.com/
こんにちは、じゃんぬねっと です。 > テキストボックスなどをそれぞれクリアしていけばいいのですが、 > その処理を簡単に行いたいと思います。 > 方法をご存知の方がいらっしゃいましたら、ぜひお教え下さい。 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 |