Posted by Mohammad Rahhal, Last modified by Salameh Abu Hashish on 20 February 2019 11:05 AM


Public Function SetTreeNodeData(formID As String, TreeName As String, prop_Id As ENUM_GUI_TREE_NODE_SETTINGS, ByRef prop_Value As Variant,Optional Index As Integer = 1) As Boolean

This function is used to set value for a given property to a specific tree node.


Key  Description 
formID Form identifier, must be a number greater than 3000 and less than 10,000.
TreeName Tree identifier, value of type String.
prob_Id Value can be one of the ENUM_GUI_TREE_NODE_SETTINGS.
prob_Value The value of the specified property.
Index The node index, value of type Integer.

Return value

Returns true if the tree node has been set to the specified property. Otherwise, returns false. In order to get an error, call GetLastError() function



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_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


  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)


  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 Sub



See Also

Back to VTL Client Script Index

(0 vote(s))
Not helpful

Comments (0)
Post a new comment
Full Name:
CAPTCHA Verification 
Please enter the text you see in the image into the textbox below (we use this to prevent automated submissions).

Help Desk Software by Hybrid Solutions