[ツリー表示へ] [ワード検索] [Home]
タイトル ： 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 |
をクリックするとツリー全体を一括表示します） - 画面クリア - ちょこ 03/21-10:41No.1494