チェックボックス付きのリストボックスについて(その２） (ID:117358)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 魔界の仮面弁士 さま みなさまありがとうございます(_ _) 魔界の仮面弁士 さま のいう通りの悩みなのです！！ デバックで一行ずつ実行していくとレ点がでるときもあったので 魔界の仮面弁士 さま のTimerを使用して試してみましたが・・ そのまま実行すると やはり項目選択しただけではつきませんでした・・。 実際に動かして見たロジックを書いておきます・・ので問題点などありましたら ご指摘よろしくお願いいたします。 ・複数（４つ）のリストボックスを配列コントロールで設定しております。 Private Sub List1_ItemCheck(Index As Integer, Item As Integer)Private Timer1.Enabled = True With List1(Index) If List1(Index).Selected(Item) Then ' チェックボックスがオンのときは MsgBox .List(Item) & "のチェックボックスをオンにしました。" ’＊＊チェックされた時の処理が入る予定です。＊＊＊ Else ' チェックボックスがオフのときは MsgBox .List(Item) & "のチェックボックスをオフにしました。" End If End With End Sub Private Sub Timer1_Timer() Timer1.Enabled = False MsgBox "タイマーです。。。" End Sub