Knowledgebase:
SetTreeNode
Posted by Mohammad Rahhal, Last modified by Rawan Al Hourani on 30 July 2018 01:56 PM

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 Boolean

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 Sub

 

 


See Also


Back to VTL Client Script Index

(0 vote(s))
Helpful
Not helpful

Comments (0)
Post a new comment
 
 
Full Name:
Email:
Comments:
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