主题：[求助]如何实现单选目录树

去编写AfterCheckedNode事件，如

 

If e.Node.Level = 0 Then
    If e.node.Checked Then
        For Each nd As WinForm.TreeNode In e.Sender.Nodes
            nd.Checked = False
        Next
        e.node.Checked = True
    End If
End If

代码这样写，但双击的情况控制不了。

 

If e.Node.Level = 0 Then
    If e.node.Checked Then
        For Each nd As WinForm.TreeNode In e.Sender.Nodes
            nd.Checked = False
        Next
        e.node.Checked = True
    End If
Else
   
    Dim pnd As WinForm.TreeNode = e.Node.ParentNode
    Do While pnd IsNot Nothing
        If pnd.checked = False Then
            pnd = pnd.ParentNode
        Else
            Exit Do
        End If
    Loop
   
    If pnd Is Nothing Then
        e.node.Checked = False
    End If
End If

如果要做，就必须绑定事件

 

下载信息  [文件大小：292.0 KB  下载次数：35]

点击浏览该文件:管理项目1.table

测试了一下快速双击勾选的话，只触发一次事件，这个是treeview的bug，没办法解决。