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
------------------------------------------------------------------------------
Register Now & Save for Velocity, the Web Performance & Operations
Conference from O'Reilly Media. Velocity features a full day of
expert-led, hands-on workshops and two days of sessions from industry
leaders in dedicated Performance & Operations tracks. Use code vel09scf
and Save an extra 15% before 5/3. http://p.sf.net/sfu/velocityconf
_______________________________________________
Gambas-user mailing list
Gambas-user@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/gambas-user
