Question

vb中树状图带有复选框，我想实现点击一个节点，其他节点的复选框被选中的对勾取消，

Answer 1

实现单选功能吗？

'返回选定的Key值
Sub sub_CheckOne(ByVal Node As MSComctlLib.Node)

If Node.Checked = True Then

Dim iA
For iA = 1 To Obj_TreeView.Nodes.Count
If Obj_TreeView.Nodes(iA).Checked Then
If Obj_TreeView.Nodes(iA).Key <>node.key Then
Obj_TreeView.Nodes(iA).Checked = False
end if
End If
Next

End If
end sub

追问

但是我有1、2、3级目录，想点击1节目录时，2、3级都被选中，点击2级时，1级不选中，但是3级被全选中，点3级的某一个节点，只有该节点复选框被选中，

追答

Sub sub_CheckMe(ByVal Node As MSComctlLib.Node)

If Not Node.Checked = True Then Exit Sub

Dim iA
For iA = 1 To Obj_TreeView.Nodes.Count

If fun_Isson(Obj_TreeView, Obj_TreeView.Nodes(iA), Node.Key) Then
oNode.Checked = True
Else
If Obj_TreeView.Nodes(iA).Checked Then
If Obj_TreeView.Nodes(iA).Key Node.Key Then
Obj_TreeView.Nodes(iA).Checked = False
End If
End If
End If
Next

End Sub
'*********************************************************************************************
'名称 fun_Isson
'作者　　 Morn Woo 2005-3-16
'功能 检查节点oNode是否键值为skey节点的子节点
'参数 tr 树对象,onode 待检查的节点对象,skey 父节点的键值
'*********************************************************************************************
Function fun_Isson(ByVal tr As TreeView, ByVal oNode As Node, sKey As String) As Boolean
fun_Isson = False
While (oNode.Index 0) And (oNode.Key sKey)
Set oNode = oNode.Parent
Wend
If oNode.Key = sKey Then
fun_Isson = True
End If
End Function

追问

上面这段程序不可以哦，点击一级目录，复选框打钩，但是其他2、3级目录都没有被选中呀
选中2级目录程序提示with块变量未设置

追答

‘窗口上放置一个name=Obj_TreeView 的treeview

Sub sub_CheckMe(ByVal NODE As MSComctlLib.NODE)

If Not NODE.Checked Then Exit Sub

Dim iA
For iA = 1 To Obj_TreeView.Nodes.Count

If fun_Isson(Obj_TreeView.Nodes(iA), NODE.Key) Then

Obj_TreeView.Nodes(iA).Checked = True
Else
If Obj_TreeView.Nodes(iA).Checked Then
If Obj_TreeView.Nodes(iA).Key NODE.Key Then
Obj_TreeView.Nodes(iA).Checked = False
End If
End If
End If

Next
'Debug.Print NODE.Key & "=" & NODE.Checked
' NODE.EnsureVisible
' NODE.Selected = True
' NODE.Checked = True
'If NODE.Index = 1 Then NODE.Checked = False
End Sub
'*********************************************************************************************
'名称 fun_Isson
'作者　　 Morn Woo 2005-3-16
'功能 检查节点oNode是否键值为skey节点的子节点
'参数 tr 树对象,onode 待检查的节点对象,skey 父节点的键值

Function fun_Isson(ByVal oNode As NODE, sKey As String) As Boolean
fun_Isson = False
While (oNode.Index 1) And (oNode.Key sKey)
Set oNode = oNode.Parent
Wend
If oNode.Key = sKey Then
fun_Isson = True
End If
End Function

Private Sub Form_Load()
With Obj_TreeView
.Nodes.Add , , "K0", "0"
.Nodes.Add "K0", tvwChild, "K1", "1"
.Nodes.Add "K1", tvwChild, "K11", "11"
.Nodes.Add "K0", tvwChild, "K2", "2"
.Nodes.Add "K2", tvwChild, "K22", "22"
.Nodes.Add "K0", tvwChild, "K3", "3"
.Nodes("K11").EnsureVisible
End With
End Sub

Private Sub Obj_TreeView_Click()
sub_CheckMe Obj_TreeView.SelectedItem
End Sub

Private Sub Obj_TreeView_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
If Obj_TreeView.HitTest(x, y) Is Nothing Then Exit Sub
Set Obj_TreeView.SelectedItem = Obj_TreeView.HitTest(x, y)
End Sub

追问

哥们，不行呀~~

追答

哪儿不行，我专门给你写的代码，并且在我机器测试通过，实现了你说的功能。

你自己建立一个工程，搞一个窗口，上面放一个treeview
名字是 Obj_TreeView
复选框，有效都选中
然后把上边的代码拷贝进去，看行不行

追问

哥们，那不是很辛苦你，专门给我写的代码，真的是眼泪涮涮的往下流呀，太感动了，(*^__^*) 嘻嘻……
这个“名字是 Obj_TreeView”在哪里写？？

追答

下次，一次把问题说清楚。
以为是小问题，结果越搞越大。
不用感动，我乐于帮助那些好学的人。

追问

我能不能得到你的其他联系方式，因为我有自己的代码，但是不知道要修改哪里可以实现我要带功能，但是代码太长，这里发不上来。~~怎么不回答我，是不是对我的方式表示不满意？

Answer 2

删除回复代码
有眼不识金镶玉

追问

你别这么生气吗，我没有那个意思，你的代码我也试了，是可以的，因为我不知道我接下来一个个的问题，会不会让你没有耐心的回答，干嘛这么生气，这么大的脾气呀，莫生气呀~~