ASP

本类阅读TOP10

·asp常用数据库连接方法和技巧
·无组件生成BMP验证码
·一些常用的辅助代码 (网络收藏)
·JavaScript实现的数据表格:冻结列、调整列宽和客户端排序
·VisualStudio.NET_2003及其 MSDN 下载地址
·ASP模拟MVC模式编程
·图片以二进制流输出到网页
·MD5加密算法 ASP版
·ASP.NET编程中的十大技巧
·改进 ASP 的字符串处理性能

分类导航
VC语言Delphi
VB语言ASP
PerlJava
Script数据库
其他语言游戏开发
文件格式网站制作
软件工程.NET开发
TreeView&CheckBox(VB.NET)

作者:未知 来源:月光软件站 加入时间:2005-2-28 月光软件站

首先设置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


相关文章

相关软件