hi,
thank you so much,

have a nice time

regards



>

>#Define tvwFirst	0
>#Define tvwLast	1
>#Define tvwNext	2
>#Define tvwPrevious	3
>#Define tvwChild	4
>
>CREATE CURSOR myForms (nodeID i, parentID i, nodeText c(20),formName c(10))
>INSERT INTO myForms VALUES (1,0,"Root 1","")
>INSERT INTO myForms VALUES (2,0,"Root 2","")
>
>INSERT INTO myForms VALUES (4,1,"Root 1-C1","myForm1")
>INSERT INTO myForms VALUES (5,1,"Root 1-C2","myForm2")
>INSERT INTO myForms VALUES (6,1,"Root 1-C3","myForm3")
>
>INSERT INTO myForms VALUES (7,2,"Root 2-C1","myForm21")
>INSERT INTO myForms VALUES (8,2,"Root 2-C2","myForm22")
>INSERT INTO myForms VALUES (9,2,"Root 2-C3","myForm23")
>
>Public oForm
>oForm = Createobject('myForm')
>oForm.Show()
>
>With oForm.Tree
>  .Left = 10
>  .Top = 10
>  .Width = 200
>  .Height = 200
>  SELECT myForms
>  SCAN
>    IF parentID = 0
>      .Nodes.Add(,tvwFirst,PADL(nodeID,3,'_'),NodeText)
>    ELSE
>      .Nodes.Add(PADL(parentID,3,'_'),tvwChild,PADL(nodeID,3,'_'),NodeText)
>    ENDIF
>  endscan
>Endwith
>
>Define Class myForm As Form
>  oNode= .Null.
>  Add Object Tree As OleControl With ;
>    Name = 'Tree',OleClass='MSComCtlLib.TreeCtrl'
>
>  Procedure Init
>    With This.tree
>      .linestyle = 1
>      .Font.Name = 'Times New Roman'
>      .Font.Size = 10
>      .indentation = 5
>    Endwith
>  ENDPROC
>  PROCEDURE Tree.NodeClick(oNode)
>    SELECT myForms
>    LOCATE FOR nodeID = VAL(chrtran(oNode.Key,'_',''))
>    IF !EMPTY(myForms.FormName)
>      IF FILE( FORCEEXT(myForms.FormName,'scx') )
>        DO FORM (myForms.FormName)
>      ELSE
>        MESSAGEBOX( FORCEEXT(myForms.FormName,'scx') + " is missing." )
>      ENDIF
>    endif
>  endproc
>Enddefine
>

Cetin
>
>>hi,
>>i try as under , but how i can run it at node or child i can choices
>>

>>PROCEDURE click
>>  With This.tree
>>         .DO FORM myform
>>    Endwith
>>  Endproc
>>

>>>I didn't say with .Nodes.Click
>>>NodeClick is an event of treeview.
>>>Cetin
>>>
>>>>hi,
>>>>thank you very much,
>>>>about do form,
>>>>main
>>>>WITH .Nodes.click(do form myform)&& not work
>>>>