VB6 Treeview的添加节点子节点、Treeview打开、Treeview关闭

VB6 Treeview的添加节点子节点、Treeview打开、Treeview关闭

2010年01月01日 12:48:00 雪娇8 阅读数：6445 标签： vbcommandinteger

===================
VB6 Treeview的添加节点子节点、Treeview打开、Treeview关闭
'在窗体上方一个Treeview,四个command   
  Option   Explicit   
    
  Private   Sub   Command1_Click()   
  Static   i   As   Integer   
          TreeView1.Nodes.Add   ,   ,   "Text"   &   i,   "Text"   &   i   
          TreeView1.Nodes("Text"   &   i).Selected   =   True   
          TreeView1.SetFocus   
          i   =   i   +   1   
  End   Sub   
    
  Private   Sub   Command2_Click()   
  Static   i   As   Integer   
          TreeView1.Nodes.Add   TreeView1.SelectedItem.Key,   tvwChild,   "TestSub"   &   i,   "TestSub"   &   i   
          TreeView1.SetFocus   
          i   =   i   +   1   
  End   Sub   
    
  Private   Sub   Command3_Click()   
  Dim   i   As   Integer   
          For   i   =   1   To   TreeView1.Nodes.Count   
                  If   TreeView1.Nodes(i).Expanded   =   False   Then   
                          TreeView1.Nodes(i).Expanded   =   True   
                  End   If   
          Next   
  End   Sub   
    
  Private   Sub   Command4_Click()   
  Dim   i   As   Integer   
          For   i   =   1   To   TreeView1.Nodes.Count   
                  If   TreeView1.Nodes(i).Expanded   =   True   Then   
                          TreeView1.Nodes(i).Expanded   =   False   
                  End   If   
          Next   
  End   Sub   
    
  Private   Sub   Form_Load()   
          TreeView1.LineStyle   =   tvwRootLines   
          TreeView1.Indentation   =   200   
          Command1.Caption   =   "添加节点"   
          Command2.Caption   =   "添加子节点"   
          Command3.Caption   =   "展开所有"   
          Command4.Caption   =   "收缩所有"   
  End   Sub