タイトル : Re^2: VB2005で「フォーム上のすべてのコントロールへのアクセス」 投稿日 : 2008/04/01(Tue) 17:57 投稿者 : 魔界の仮面弁士
> すべてのコントロールに対して「再帰」してください。 実装例: Public Class Form1 Private Sub CheckBox1_CheckedChanged(ByVal sender As Object, ByVal e As EventArgs) Handles CheckBox1.CheckedChanged SetButtonEnabled(Me, CheckBox1.Checked) End Sub Public Shared Sub SetButtonEnabled(ByVal target As Control, ByVal value As Boolean) If TypeOf target Is Button Then target.Enabled = value End If For Each c As Control In target.Controls SetButtonEnabled(c, value) Next End Sub End Class |