[Gambas-user] Need help on treeview

[Fabien Bodard]

Private Sub Filter()

  Dim s As String

    With $hTreeView
    .MoveFirst
    While .Available
      $hFltCV.Add(.item.Key, .item.Text, .Item.Picture)
      Print .Key
        If Not .MoveChild Then
          Print .Item.Count
          Filter()
          .MoveParent
        Endif
      .MoveNext
    Wend

    Print "sortie"

  End With

End

this is a code that intend to copy a treeview on another one :/

but I've missed the curses on treeview, someone have more affinity on this ?


My code just detect the first entry and don't purchase on childs....

PLEEAASE HEEELP !

Regards
Fabien Bodard