获取TreeView中选中节点下的所有子节点（数目及Caption）

在使用控件TreeView时，没有设置各节点的Key,有没有办法获取选中节点下的所有子节点（包括子节点的子节点）的文本。 问题点数：20、回复次数：4Top

1 楼4_Eye_Cat（四眼喵喵）回复于 2001-11-05 22:36:37 得分 10

用遍历调用  
  dim   n   as   node  
  n.child   表示第一个子结点  
  n.childen表示结点数  
  n.next表示下一个结点  
   
  循环用就是了  
  Top

2 楼4_Eye_Cat（四眼喵喵）回复于 2001-11-05 22:37:09 得分 0

给我发mail我给你个demoTop

3 楼DTWUJP（建平.net）回复于 2001-11-05 22:54:00 得分 0

4_Eye_Cat(没钱上网明天想戒网现在还是上网的四眼喵)　  
  给我发一个好吗？dtwujp@sohu.comTop

4 楼foolishtiger（冬蛩）回复于 2001-11-06 09:14:30 得分 10

 
  '         Purpose:  
  '           Author:吴文智  
  '               Date:2001-1  
  'Description:要试用本例请在窗体中填加一个TreeView和一个按钮  
  '                         然后在代码窗体中粘贴如下代码  
  '                         Good   luck!  
   
  Private   Sub   Command1_Click()  
          Dim   nodEach   As   Node  
           
          MsgBox   "节点"   &   TreeView1.SelectedItem.Text   &   "有"   &   TreeView1.SelectedItem.Children   &   "个子节点",   vbInformation  
   
          For   Each   nodEach   In   TreeView1.Nodes  
                  '对有父节点的进行遍历,无父节点的是根节点  
                  If   nodEach.Parent   Is   Nothing   Then  
                  Else  
                          If   nodEach.Parent.Key   =   TreeView1.SelectedItem.Key   Then  
                                  MsgBox   nodEach.Text   &   "是"   &   TreeView1.SelectedItem.Text   &   "的子节点",   vbInformation  
                          End   If  
                  End   If  
          Next  
  End   Sub  
   
  Private   Sub   Form_Load()  
          Command1.Caption   =   "子节点个数"  
           
          With   Me.TreeView1  
                  .Nodes.Add   ,   ,   "nodBoot",   "Boot"  
                  .Nodes.Add   "nodBoot",   tvwChild,   "Child1",   "Child1"  
                  .Nodes.Add   "nodBoot",   tvwChild,   "Child2",   "Child2"  
                  .Nodes.Add   "Child1",   tvwChild,   "Child3",   "Child3"  
                  .Nodes.Add   "Child1",   tvwChild,   "Child4",   "Child4"  
          End   With  
  End   Sub  
   
   
  Top

相关问题

• 节点
• nodeach
• treeview
• nodboot
• child
• tvwchild
• selecteditem
• nodes
• 表示
• sub

• 帖主：sanmui
• 4_Eye_Cat
• foolishtiger

• Visual Basic类图书
• Visual Basic类源码下载