チェックボックスのチェック状態を取得したいのですが への返答

投稿で使用できる特殊コードの説明。(別タブで開きます。)
本名は入力しないようにしましょう。
投稿した後で削除するときに使うパスワードです。返答があった後は削除できません。
返答する人が目安にします。相手が小学生か社会人かで返答の仕方も変わります。
最初の投稿が質問の場合、質問者が解決時にチェックしてください。(以降も追加書き込み・返信は可能です。)
※「過去ログ」について書くときはその過去ログのURLも書いてください。

以下の返答は逆順(新しい順)に並んでいます。

投稿者 大池  (社会人) 投稿日時 2009/8/26 06:08:50
よねKEN様
早速にご指導いただきましてありがとうございます。
るしぇ様
詳細な解説をいただきありがとうございます。
よねKEN様のプログラムを一段と深く理解することができました。
ご両人様ありがとうございました。今後ともよろしくお願いいたします。
0
投稿者 るしぇ  (社会人) 投稿日時 2009/8/25 23:49:59
コンパイル時は、コードで指定された情報に頼るしかないですからね。
実行時にはチェックボックスが入っているとしても、コード上で
Control 型なら、コントロールに共通したメンバしか表示されません。
だからこそ、よねＫＥＮ さん御紹介の型変換のコードがあります。

逆にコンパイルを通すだけなら、
For Each ctr As Control In grpA.Controls

    If TypeOf ctr Is Button Then

        Dim chk As CheckBox = DirectCast(ctr, CheckBox)

    End If

Next 

でも通ります。
ボタンだったらチェックボックスにする。。。
こんなバカなコードもバカ正直に命令どおり実行してくれます。

。。。で、実行時エラーと。
そんな仕組みになってます。なので型を意識したコーディングが
必要になります。
0
投稿者 よねＫＥＮ  (社会人) 投稿日時 2009/8/25 23:23:51
変数ctrはControl型ですのでCheckedプロパティを使うにはCheckBox型にキャストする必要があります。

For Each ctr As Control In grpA.Controls
    If TypeOf ctr Is CheckBox Then
　　　　Dim chk As CheckBox = DirectCast(ctr, CheckBox)
　　    If chk.Checked then
          'チェックされていた場合の処理
       End If
    End If
Next 
0
投稿者 大池  (社会人) 投稿日時 2009/8/25 22:56:50
いつもお世話になりありがとうございます。
・XPでVB2008　Express Editionを使っています。
・For Each　文でCheckBoxのチェック状態を取得したくつぎのように
したのですが、Checked プロパティが出てきません。このような場合は
どのようにすればいいのでしょうか？
ご教授のほどよろしくお願いいたします。
’
For Each ctr As Control In grpA.Controls
    If TypeOf ctr Is CheckBox Then
       ' Debug.Print(ctr.Name & "=" & ctr.Tag & ":" & ctr.Text)
　　    If ctr.Checked then ・・・と期待していました。　　
    End If
Next
0