【求助】vb treeview 双击不触发事件

[ohye1188]

vb treeview 这个控件，双击某个节点时，他会自动展开/收缩下面的子节点，我现在不想让他展开/收缩，这个代码怎么写？

[of123]

那你的 treeview 是做什么用的？如果仅仅是看的，用一个图片覆盖它，就不响应任何事件了。

[舉杯邀明月]

不知道HOOK它的消息处理能不能做到。

[脆皮大雪糕]

treeview的expand和Collapse事件里面去处理
举个例子

Private Sub Command1_Click()
    t1.Nodes.Add , , "n1", "node1"
    t1.Nodes.Add "n1", tvwChild, "n1-1", "node1-1"
    t1.Nodes.Add , , "n2", "node2"
    t1.Nodes.Add "n2", tvwChild, "n2-1", "node2-1"
End Sub

Private Sub t1_Collapse(ByVal Node As MSComctlLib.Node)
    If Node.Key = "n2" Then
     Node.Expanded = Not (Node.Expanded)
    End If
End Sub

Private Sub t1_Expand(ByVal Node As MSComctlLib.Node)
    If Node.Key = "n1" Then
     Node.Expanded = Not (Node.Expanded)
    End If
End Sub

node1 和 node2 都有子项
node1不允许展开，node2不允许收缩