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