Syntax
Public Function SetTreeData(formID As String, TreeName As String, actionType As ENUM_GUI_TREE_ACTION, Optional Relative As String, Optional ISClient As Boolean = False, Optional Key As String, Optional Text As String, Optional Index As Integer) As BooleanDescription
This function is used to set data according to actionTypefor a specific tree (GUI control).
Parameters
| Key | Description |
| formID | Form identifier, must be a number greater than 3000 and less than 10,000 |
| TreeName | Tree identifier, value of type String. |
| actionType | Value can be one of the ENUM_GUI_TREE_ACTION |
| Relative | Parent node, Optional value of type String. |
| ISClient | To indicate if the new node is a child in a subtree,Optional value of type Boolean. |
| Key | Node key , Optional value of type String. |
| Text | Text of the node, Optional value of type String. |
| Index | Index of the node,Optional value of type Integer. |
Return value
Returns true if the GUI control (tree) data has been sat to the specified property. Otherwise, returns 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,10 SetGUIObject CSTR(frmID),CSTR("treeV"),GUI_PROPERTY_LEFT,10 SetTreeData CSTR(frmID),"treeV",TREE_ADD_NODE,CSTR(""),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,CSTR(""),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) AlertMessage "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) AlertMessage NdataEnd SubSee Also