Private Sub Option1_Click() If Option1.Value Then Me.TreeView1.Nodes("Node5").Selected = True End If End SubPrivate Sub TreeView1_NodeClick(ByVal Node As MSComctlLib.Node) Option1.Visible = False Option2.Visible = False Option1.Value = False Option2.Value = False Select Case UCase$(Node.Key) Case "NODE1" Option1.Visible = True Case "NODE2" Option2.Visible = True End Select End Sub
你可以在click或者mousedown事件里面判断
如果被按下的node 是你指定的那个node或者is nothing then exit sub2.trv.nodes.item().selected=true
我意思是说,使某个Node不可有就像commandbutton的enabled被设置成True一样!!!
各位大侠帮帮忙吧!
比如:在一个TreeView控件中,有几个Node。Key值分别是node1……,当点击node1时,Option1显示点击node2时,Option2显示,如果当我选中Option1的时候,就要跳到node5上,选中node5请问应该怎么做啊?
If Option1.Value Then
Me.TreeView1.Nodes("Node5").Selected = True
End If
End SubPrivate Sub TreeView1_NodeClick(ByVal Node As MSComctlLib.Node)
Option1.Visible = False
Option2.Visible = False
Option1.Value = False
Option2.Value = False
Select Case UCase$(Node.Key)
Case "NODE1"
Option1.Visible = True
Case "NODE2"
Option2.Visible = True
End Select
End Sub