Tree View Structure

[Gintaras]

One method is to use tree view control messages. Other method - use accessible object function Navigate. Example with Windows Explorer:

Code:

Copy      Help

Acc a=acc("" "OUTLINE" "+ExploreWClass" "SysTreeView32" "" 0x1000) ;;captured with Find Accesible Object dialog
Acc a1
str s ss
a.Navigate("f" a1) ;;first item
rep
,s=a1.Name
,ss=a1.Value
,ss.set(9 0 val(ss))
,out "%s%s" ss s
,a1.Navigate("n"); err break