VB2008かVB2005で、チェックボックスをループ文を使ってFalseにしたい

質問

Visual Basic 2008か2005で
グループボックス１に50個、
グループボックス２に25個ののチェックボックスがあるとします。
これらのうち、グループボックス１の50個のチェックボックスだけ
全てチェックを外す処理を作りたいのですが、
1個1個チェックボックスをFalseにする文を記述すると
同じ様なソースが増えてしまうので、
Forのようなループを使って簡潔に書くことは出来ないでしょうか？

出来れば、ソースを記述してほしいです。
すみませんがよろしくお願いします。

回答No.1

tom11 · ベストアンサー

こんにちは、

グループボックス1に、チェックボックスのみ50個しかないと
仮定すると（グループボックス1にテキストボックス等などの
コントロールが他にない）

以下のコードで出来そうです。

Dim o As Object

For Each o In Me.GroupBox1.Controls

o.CheckState = 1

Next

すべてのチェックボックスをオンの時
o.CheckState = 1
オフの時
o.CheckState = 0

ちなみに、グループボックスの数は、今回は、関係ないです。
グループボックス、全部オンにするか、オフにするかになります。

回答No.3

noname#187541

こんばんは。

GroupBoxにCheckBox以外のコントロールがある場合はIf文でチェックすればいいでしょう。

Dim myobj As Object
For Each myobj In Me.GroupBox1.Controls
If TypeName(myobj) = "CheckBox" Then
myobj.checkstate = 0
End If
Next

回答No.2

tom11

間違いです。修正
＞ちなみに、グループボックスの数は、今回は、関係ないです。
＞グループボックス、全部オンにするか、オフにするかになります

グループボックスの数ではなく
チェックボックスの数です。

失礼。