2010年01月01日 12:48:00
雪嬌8 閱讀數：6445 標簽：
vbcommandinteger===================
VB6 Treeview的添加節點(diǎn)子節點(diǎn)、Treeview打開(kāi)、Treeview關(guān)閉
'在窗體上方一個(gè)Treeview,四個(gè)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 = "添加節點(diǎn)"
Command2.Caption = "添加子節點(diǎn)"
Command3.Caption = "展開(kāi)所有"
Command4.Caption = "收縮所有"
End Sub
