RE:olvide indicar algo importante
Private Sub Form_Click()
If TreeView1.Nodes.Count = 0 Then FillTree
TreeView1.Nodes(TreeView1.Nodes.Count).EnsureVisible
End Sub
Private Sub Wait()
Dim I As Integer
For I = 1 To 10000
DoEvents
Next
End Sub
Private Sub FillTree()
Dim nodX As Node
Screen.MousePointer = vbHourglass
ProgressBar1.Visible = True
Set nodX = TreeView1.Nodes.Add(, , , "Family", 1)
ProgressBar1.Value = 10
Wait
Set nodX = TreeView1.Nodes.Add(1, tvwChild, "g", "George", 1, 2)
ProgressBar1.Value = ProgressBar1.Value + 6
Wait
Set nodX = TreeView1.Nodes.Add(1, tvwChild, , "Julie", 1, 3)
ProgressBar1.Value = ProgressBar1.Value + 6
Wait
Set nodX = TreeView1.Nodes.Add(1, tvwChild, , "Robert", 1, 3)
ProgressBar1.Value = ProgressBar1.Value + 6
Wait
Set nodX = TreeView1.Nodes.Add("g", tvwChild, , "Bess", 1, 3)
ProgressBar1.Value = ProgressBar1.Value + 6
Wait
Set nodX = TreeView1.Nodes.Add("g", tvwChild, , "Ardyth", 1, 3)
ProgressBar1.Value = ProgressBar1.Value + 6
Wait
Set nodX = TreeView1.Nodes.Add("g", tvwChild, "l", "Lars", 1, 2)
ProgressBar1.Value = ProgressBar1.Value + 6
Wait
Set nodX = TreeView1.Nodes.Add("g", tvwChild, , "Jedidiah", 1, 3)
ProgressBar1.Value = ProgressBar1.Value + 6
Wait
Set nodX = TreeView1.Nodes.Add("l", tvwChild, , "Chewie", 1, 3)
ProgressBar1.Value = ProgressBar1.Value + 6
Wait
Set nodX = TreeView1.Nodes.Add("l", tvwChild, "s", "Savannah", 1, 2)
ProgressBar1.Value = ProgressBar1.Value + 6
Wait
Set nodX = TreeView1.Nodes.Add("l", tvwChild, , "Nana", 1, 3)
ProgressBar1.Value = ProgressBar1.Value + 6
Wait
Set nodX = TreeView1.Nodes.Add("l", tvwChild, , "Thomas", 1, 3)
ProgressBar1.Value = ProgressBar1.Value + 6
Wait
Set nodX = TreeView1.Nodes.Add("l", tvwChild, , "Cleo", 1, 3)
ProgressBar1.Value = ProgressBar1.Value + 6
Wait
Set nodX = TreeView1.Nodes.Add("l", tvwChild, , "Butch", 1, 3)
ProgressBar1.Value = ProgressBar1.Value + 6
Wait
Set nodX = TreeView1.Nodes.Add("l", tvwChild, , "Sundance", 1, 3)
ProgressBar1.Value = ProgressBar1.Value + 6
Wait
Set nodX = TreeView1.Nodes.Add("s", tvwChild, , "Kimba", 1, 3)
ProgressBar1.Value = ProgressBar1.Value + 6
Wait
ProgressBar1.Visible = False
Screen.MousePointer = vbNormal
End Sub
Private Sub Form_Load()
ProgressBar1.Visible = False
ProgressBar1.Max = 100
TreeView1.Top = ProgressBar1.Height + ProgressBar1.Top + 120
TreeView1.Left = 120
TreeView1.Width = Form1.Width - 250
TreeView1.Height = Form1.Height - 500
TreeView1.ImageList = ImageList1
Form1.Caption = "Pulsa en el formulario para mostrar los nodos"
End Sub
Private Sub TreeView1_NodeClick(ByVal Node As Node)
Dim answer As Integer
If Node.Children > 1 Then
answer = MsgBox("¿Ordenar este nodo?", vbYesNo)
If answer = vbYes Then
Node.Sorted = True
End If
End If
End Sub