2013-04-05 76 views

回答

0

“Clickable”非常含糊。我会假设你不希望他们是可选的。使用BeforeSelect事件很容易,您可以取消它。例如:

Private Sub TreeView1_BeforeSelect(ByVal sender As Object, ByVal e As TreeViewCancelEventArgs) Handles TreeView1.BeforeSelect 
    If e.Node.Nodes.Count > 0 Then e.Cancel = True 
End Sub 

这不会为一个伟大的用户界面,用户将非常,当他点击没有效果confuzzled。您可以通过不点击点击并自动选择允许选择的节点来使其更直观一些。使其看起来类似于:

Private Sub TreeView1_BeforeSelect(ByVal sender As Object, ByVal e As TreeViewCancelEventArgs) Handles TreeView1.BeforeSelect 
    If e.Node.Nodes.Count > 0 Then 
     e.Cancel = True 
     Me.BeginInvoke(New Action(Of TreeNode)(AddressOf SelectNode), e.Node.Nodes(0)) 
    End If 
End Sub 

Private Sub SelectNode(ByVal node As TreeNode) 
    node.Expand() 
    node.TreeView.SelectedNode = node 
End Sub