- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- [求助]如何实现单选目录树 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=74319)
-- 发布时间：2015/9/8 13:44:00
-- [求助]如何实现单选目录树
此主题相关图片如下：qq截图20150908134216.png
如图：节点层级为0 时，只能单选。如何做到
[此贴子已经被作者于2015/9/8 13:58:25编辑过]
-- 发布时间：2015/9/8 14:08:00
--
去编写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
-- 发布时间：2015/9/11 13:21:00
--
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
若选定的是第一节点，只能勾选本子节点，其它节点不得勾选。如何实现
-- 发布时间：2015/9/11 14:27:00
--
代码这样写，但双击的情况控制不了。
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
-- 发布时间：2015/9/11 14:28:00
--
如果要做，就必须绑定事件
| 下载信息 [文件大小：292.0 KB 下载次数：35] | |
 点击浏览该文件:管理项目1.table |
-- 发布时间：2015/9/11 14:50:00
--
测试了一下快速双击勾选的话，只触发一次事件，这个是treeview的bug，没办法解决。