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

名前

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

本文 NodeCheckイベントではCheckedプロパディ塗り替えられないみたいなので、 MouseUpイベントとKeyPressイベントを併用すれば出来ました。 無条件でチェックをオフするようにしてます。 オフにしたい条件は自分で入れてください。 まずプロシージャレベルに変数を定義してください。 Private pblnCheck As Boolean 'NodeCheckされたかどうか Private pintIndex As Integer 'NodeCheckされたインデックス Private Sub TreeView1_KeyPress(KeyAscii As Integer) ' SPACEが押されたら If KeyAscii = vbKeySpace Then ' NodeCheckされたら If pblnCheck = True Then pblnCheck = False TreeView1.Nodes.Item(pintIndex).Checked = False End If End If End Sub Private Sub TreeView1_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single) Call TreeView1_KeyPress(vbKeySpace) End Sub Private Sub TreeView1_NodeCheck(ByVal Node As MSComctlLib.Node) pblnCheck = True pintIndex = Node.Index End Sub 一瞬チェックが付きますがすぐにオフになります。 こんな感じでどうでしょう？