Syntax
Public Sub SetTreeNode(formID As String, TreeName As String, Prop_ID As ENUM_GUI_TREE_NODE, prop_Value As Variant, Index As Integer) As BooleanDescription
This subprocedure is used to create a node under a given tree name with the specific property.
Parameters
| Key | Description |
| formID | The form identifier which the tree created on it, a value of type is String |
| TreeName | The tree name which the node will be created under it, a value of type is String |
| Prop_ID | The node property to set , can be one of the ENUM_GUI_TREE_NODE |
| prop_Value | The node property value, a value of type is Variant |
| Index | The node index on the tree, a value of type is Integer |
Return value
Returns True if the node set successfully otherwise will return false. In Order to get an error call GetLastError() function.
Sample
Public Sub main() ''''TODO: Script program start method Dim frmID,Tdata,Ndata frmID = "3450" CreateVTLForm CLng(frmID),false,CSTR("Tree View") CreateVTLControl CSTR(frmID),"treeV",GUI_TREE_VIEW 'set Form GUI properties SetGUIObject CSTR(frmID),"",GUI_PROPERTY_HEIGHT, 3000 SetGUIObject CSTR(frmID),"",GUI_PROPERTY_WIDTH, 9000 'set Tree View GUI Settings SetGUIObject CSTR(frmID),CSTR("treeV"),GUI_PROPERTY_HEIGHT, 2000 SetGUIObject CSTR(frmID),CSTR("treeV"),GUI_PROPERTY_WIDTH,8000 SetGUIObject CSTR(frmID),CSTR("treeV"),GUI_PROPERTY_TOP,50 SetGUIObject CSTR(frmID),CSTR("treeV"),GUI_PROPERTY_LEFT,10 SetTreeData CSTR(frmID),"treeV",TREE_ADD_NODE, "",false,CSTR("Root"),CSTR("Root") SetTreeData CSTR(frmID),"treeV",TREE_ADD_NODE,CSTR("Root"),true,CSTR("Child"),CSTR("Child") SetTreeData CSTR(frmID),"treeV",TREE_ADD_NODE, "",false,CSTR("Root2"),CSTR("Root2") SetTreeData CSTR(frmID),"treeV",TREE_ADD_NODE,CSTR("Root2"),true,CSTR("Child2"),CSTR("Child2") SetTreeData CSTR(frmID),"treeV",TREE_ADD_NODE,CSTR("Child2"),true,CSTR("Child3"),CSTR("Child3") GetTreeData CSTR(frmID),"treeV",TREE_COUNT,CSTR(Tdata) SetTreeNode CSTR(frmID),"treeV",NODE_CHECKED,true,CINT(1) AlertMessage SetTreeNodeData (CSTR(frmID),"treeV",TREE_NODE_KEY,"ChildOfRoot1",CINT(1)) GetTreeNodeData CSTR(frmID),CSTR("treeV"),TREE_NODE_ROOT,CSTR(Ndata) End SubSee Also