这个是针对二级的目录树(大家可以试一试) : 多级的还没想通啊~ 呵呵 请高手赐教::::::::
Dim n as integer = e.Node.FullPath.Split("\").length
Dim Vals() As String = e.Node.FullPath.Split("-:special:1:-)
Dim tr As WinForm.TreeView
tr = Forms("窗口2").Controls("TreeView1")
for i as integer = 0 to tr.Nodes.count-1
if tr.Nodes(i).text = Vals(0)
n = i+1
exit for
end if
next
If e.Node.Level > 0
for ii as integer = 0 to tr.Nodes(n-1).Nodes.count-1
if tr.Nodes(n-1).Nodes(ii).checked = true '
if tr.Nodes(n-1).checked = false
tr.Nodes(n-1).checked = true
exit for
else
return
end if
else
if tr.Nodes(n-1).checked = true
tr.Nodes(n-1).checked = false
end if
end if
next
end if
说明: 一级复选框打勾对二级无效, 二级复选框只要有一个打勾,一级框自动勾上,当二级框全部取消后,一级框也自动取消。