AfterCheckNode 事件处理
If e.node.level = 0 Then '第一层,不处理 ElseIf e.node.level = 1 Then '第二层,只能单选 If e.node.checked = True Then For Each nd As WinForm.TreeNode In e.node.parentnode.Nodes If nd.name <> e.node.name nd.Checked = False End If Next End IfEnd If