提问：用TreeView实现的树型菜单如何是其中一个节点灰掉

Question

就像文本框等控件将enabled设为false的那种效果，灰掉，不能点
如果没有这个功能，只能自己改背景，然后在nodeclick事件里面做判断了，那太麻烦了

Answer 1

Private Sub TreeView1_NodeClick(ByVal Node As MSComctlLib.Node)
If Node = Me.TreeView1.Nodes(1).Text Then msgbox "111"
End Sub
用msgbox可以跳过node打开
也可以
Private a As Boolean
Private Sub TreeView1_NodeClick(ByVal Node As MSComctlLib.Node)
    
    If Node = Me.TreeView1.Nodes(1).Text And a = False Then
        
        a = True
        TreeView1_NodeClick Node
    End If
    a = False
End Sub
不过双击时会有问题，有待改进

Answer 2

我现在只能在form_load里面判断权限，然后把没有权限的模块的菜单的forecolor设为灰色
然后在treeview的nodeclick事件里面加上权限判断，屏蔽掉一些click以后的程序
不知道API里面有没有什么函数可以做到这个事情

Answer 3

帮你up大家来看看这个帖http://expert.csdn.net/Expert/topic/2116/2116432.xml?temp=.3066828

Answer 4

不知道API里面有没有什么函数可以做到这个事情==============================================Windows提供了Costom Draw功能
但是VB的TreeView封装得太@#$^#&#了，居然自创Index访问，无法得到HTREEITEM