首先设置TreeView的属性AutoPostBack="True",这样才会有Onchange="TreeView2_ChkChange" 的有效。 Sub TreeView2_ChkChange(ByVal sender As Object, ByVal e As TreeViewClickEventArgs) Handles TreeView2.Check CheckAllChildNodes(TreeView2.GetNodeFromIndex(e.Node), True) Session("Groups") = NodeShow(TreeView2.Nodes) Response.Write("Session=" & Session("Groups")) End Sub Sub CheckAllChildNodes(ByVal treeNode As TreeNode, ByVal nodeChecked As Boolean) Dim node As TreeNode For Each node In treeNode.Nodes node.Checked = nodeChecked If node.Checked = True Then If node.Nodes.Count > 0 Then Me.CheckAllChildNodes(node, nodeChecked) End If End If Next End Sub Function NodeShow(ByVal treeNode As TreeNodeCollection) As String Dim node As TreeNode For Each node In treeNode If node.CheckBox Then If node.Checked Then strGroupIds = strGroupIds & node.Text & "," End If If node.Nodes.Count > 0 Then NodeShow(node.Nodes) End If End If Next Return strGroupIds End Function
[C语言系列]NET 中C#的switch语句的语法 [系统软件]托拽Explore中的文件到VB.net的窗口 [系统软件]Boost库在XP+Visual C++.net中的安装 [常用软件]新配色面板:Paint.Net3.0RC1官方下载 [常用软件]用内建的“Net Meeting”聊天 [VB.NET程序]Henry的VB.NET之旅(三)—共享成员 [VB.NET程序]Henry的VB.NET之旅(二)—构造与析构 [VB.NET程序]Henry的VB.NET之旅(一)—失踪的窗体 [VB.NET程序]在托盘上显示Balloon Tooltip(VB.NET) [VB.NET程序]Henry手记-VB.NET中动态加载Treeview节点(二)