タイトル : Re: Formの全てのコントロールのTextをクリアするには 投稿日 : 2007/08/25(Sat) 00:34 投稿者 : 花ちゃん
下記のように再帰的に実行すればいいのでは。 (別途エラー処理をするようにして下さいね) Private Sub Button1_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button1.Click GetAllControls(Me) End Sub Private Sub GetAllControls(ByVal control As Control) If control.HasChildren Then For Each childControl As Control In control.Controls GetAllControls(childControl) ' If TypeOf childControl Is TextBox Then childControl.Text = "花ちゃん" ' End If Next childControl End If End Sub |