Posted by Mohammad Rahhal, Last modified by Diana Alkouni on 21 August 2020 01:34 PM


 Public Sub SetTreeNode(formID As String, TreeName As String, Prop_ID As ENUM_GUI_TREE_NODE, prop_Value As Variant, Index As Integer) As Boolean


This subprocedure is used to create a node under a given tree name with the specific property.


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.


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