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