TreeViewで、チェックをキャンセルする方法について (ID:79290)

名前

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

本文 はじめまして。 OssAと申します。 開発環境は、VB6SP5、Win2000です。 TreeViewコントロールで、チェックボックスを使用 しているのですが、NodeCheckイベントでチェックされたことを 検知させ、条件を満たしていない場合、チェックされたものを はずしたいと思っています。 以下、簡単ですが私の書いたキャンセルさせるソースです。 ※やりたいことは、Rootの場合のみ、チェックを付けさせないようにするです。 Private Sub TreeView1_NodeCheck(ByVal Node As MSComctlLib.Node) '条件1です If Node.Children <> 0 Then '条件2です If Node.Checked = True Then Node.Checked = False Exit Sub End If End If End Sub 上記のExit Subまでは、正常に動作しているように見えるのですが、 Exit Subでプロシージャーを抜けた瞬間に、CheckedがTrueに戻って しまいます。 他に何か設定しなければならない箇所があるのでしょうか？ よろしくお願いします。