Login
Try VertexFX
  • Home
  • Knowledgebase
  • Blog
  • Home
  • Knowledgebase
  • Blog

GUI

home/Knowledge Base/Technical Support/API/Client API's/VTL/VTL Client Scripts/GUI/SetListSubItem

SetListSubItem

5 views 0 Updated on December 16, 2021 hybrid-solutions

Syntax

Public Function SetListSubItem(formID As String, ListName As String, actionType As ENUM_GUI_LIST_SUBITEM_ACTION, Key As String, Text As String, indexSubItem As Integer) As Boolean

Description

This function is used to add or update subitem in list view according to a given actionType.

Parameters

Key Description
formId Form identifier, must be a number greater than 3000 and less than 10,000.
ListName List identifier, value of type String.
actionType Value can be one of the ENUM_GUI_LIST_SUBITEM_ACTION
Key The key of the list view item which contains the desired subitem, value of type String.
Text The subitem text, value of type String.
indexSubItem The index of the subitem, value of type Integer

Return value

Returns true if the specified list view subitem data has been set. Otherwise, returns false. In order to get an error, call GetLastError() function.

Sample

Public Sub Main()Dim frmID frmID = 3600CreateVTLForm Clng(frmID) , false, "CAPTION"CreateVTLControl Cstr(frmID) , "MyList", GUI_LIST_VIEWSetGUIObject CSTR(frmID),CSTR("MyList"),GUI_PROPERTY_BACK_COLOR,Clng(RGB(190,101,190))SetGUIObject CSTR(frmID),"",GUI_PROPERTY_HEIGHT, 6000SetGUIObject CSTR(frmID),"",GUI_PROPERTY_WIDTH, 13000SetGUIObject CSTR(frmID),"",GUI_PROPERTY_LEFT, 100SetGUIObject CSTR(frmID),"",GUI_PROPERTY_TOP, 100SetGUIObject CSTR(frmID),CSTR("MyList"),GUI_PROPERTY_HEIGHT, 2000SetGUIObject CSTR(frmID),CSTR("MyList"),GUI_PROPERTY_WIDTH,12000SetGUIObject CSTR(frmID),CSTR("MyList"),GUI_PROPERTY_TOP,400for i = 1 to PositionTotal         SetListViewAction CSTR(frmID), CSTR("MyList"), LIST_VIEW_ACTION_ADD_LISTITEM, Cstr(i)nextSetListViewAction CSTR(frmID), CSTR("MyList"), LIST_VIEW_ACTION_ADD_COLUMN, "1","TicketNo"SetListViewAction CSTR(frmID), CSTR("MyList"), LIST_VIEW_ACTION_ADD_COLUMN, "2","Date"SetListViewAction CSTR(frmID), CSTR("MyList"), LIST_VIEW_ACTION_ADD_COLUMN, "3","Type"SetListViewAction CSTR(frmID), CSTR("MyList"), LIST_VIEW_ACTION_ADD_COLUMN, "4","Amount"SetListViewAction CSTR(frmID), CSTR("MyList"), LIST_VIEW_ACTION_ADD_COLUMN, "5","Sympol"SetListViewAction CSTR(frmID), CSTR("MyList"), LIST_VIEW_ACTION_ADD_COLUMN, "6","OpenPrice"SetListViewAction CSTR(frmID), CSTR("MyList"), LIST_VIEW_ACTION_ADD_COLUMN, "7","S/L"SetListViewAction CSTR(frmID), CSTR("MyList"), LIST_VIEW_ACTION_ADD_COLUMN, "8","T/P"SetListViewAction CSTR(frmID), CSTR("MyList"), LIST_VIEW_ACTION_ADD_COLUMN, "9","Commision"SetListViewAction CSTR(frmID), CSTR("MyList"), LIST_VIEW_ACTION_ADD_COLUMN, "10","Interest"SetListViewSettings CSTR(frmID), CSTR("MyList"),LIST_VIEW_FULL_ROW_SELECT,trueSetListViewSettings CSTR(frmID), CSTR("MyList"),LIST_VIEW_STYLE,3SetListViewSettings CSTR(frmID), CSTR("MyList"),LIST_VIEW_MULTI_SELECT,trueSetListViewSettings CSTR(frmID), CSTR("MyList"),LIST_VIEW_FLAT_SCROLLBAR,trueSetListViewSettings CSTR(frmID), CSTR("MyList"),LIST_VIEW_SORTED,trueSetListViewSettings CSTR(frmID), CSTR("MyList"),LIST_VIEW_ALLOW_COLUMN_REORDER,truefor j = 1 to 10SetListViewSettings CSTR(frmID), CSTR("MyList"),LIST_VIEW_COLUMN_WIDTH,1200,Cint(j)nextDim ticketNoDim result Dim ticketSympolDim time1 Dim OpenPrice1Dim type1Dim typeStrDim SLDim TPDim CommDim Interestfor i=1 to PositionTotalticketNo = PositionGetTicket(cint (i)) PositionSelect(Clng (ticketNo))ticketNo = PositionGetTicket(cint (i)) time1 = GetPositionTime()type1 = GetPositionType()PositionGetDouble POSITION_SL,SLPositionGetDouble POSITION_TP,TPPositionGetDouble POSITION_COMMISSION,CommPositionGetDouble POSITION_SWAP,InterestSelect case type1  case 1typeStr = "buy"  case -1typeStr = "sell"  case 2typeStr = "buy stop"  case -2typeStr = "sell stop"End SELECTPositionGetDouble POSITION_AMOUNT ,resultticketSympol = Cstr(PositionGetSymbol(Cint(i))) PositionGetDouble POSITION_PRICE_OPEN ,OpenPrice1SetListSubItem CSTR(frmID), CSTR("MyList"), LIST_VIEW_ACTION_ADD_SUBITEM, Cstr(i), Cstr(ticketNo),0SetListSubItem CSTR(frmID), CSTR("MyList"), LIST_VIEW_ACTION_ADD_SUBITEM, Cstr(i), Cstr(time1),1SetListSubItem CSTR(frmID), CSTR("MyList"), LIST_VIEW_ACTION_ADD_SUBITEM, Cstr(i), Cstr(typeStr),2SetListSubItem CSTR(frmID), CSTR("MyList"), LIST_VIEW_ACTION_ADD_SUBITEM, Cstr(i), Cstr(result),3SetListSubItem CSTR(frmID), CSTR("MyList"), LIST_VIEW_ACTION_ADD_SUBITEM, Cstr(i), Cstr(ticketSympol),4SetListSubItem CSTR(frmID), CSTR("MyList"), LIST_VIEW_ACTION_ADD_SUBITEM, Cstr(i), Cstr(OpenPrice1),5SetListSubItem CSTR(frmID), CSTR("MyList"), LIST_VIEW_ACTION_ADD_SUBITEM, Cstr(i), Cstr(SL),6SetListSubItem CSTR(frmID), CSTR("MyList"), LIST_VIEW_ACTION_ADD_SUBITEM, Cstr(i), Cstr(TP),7SetListSubItem CSTR(frmID), CSTR("MyList"), LIST_VIEW_ACTION_ADD_SUBITEM, Cstr(i), Cstr(Comm),8SetListSubItem CSTR(frmID), CSTR("MyList"), LIST_VIEW_ACTION_ADD_SUBITEM, Cstr(i), Cstr(Interest),9nextEnd SubPublic Sub OnTick(symbolName)End SubPublic Sub OnInit()End SubPublic Sub OnDeInit()End SubPublic Sub OnTimer()End SubPublic Sub OnCalculate(symbol, symbolPeriod, openVal, highVal, lowVal, closeVal)End SubPublic Sub AllDataLoaded()End SubPublic Sub AccountSelected()End SubPublic Sub OnOrderTrade(actionType ,orderID , returnValue)End SubPublic Sub OnPositionTrade (actionType ,ticketID)End Sub


See Also

  • GetListSubItemText
  • SetComboBoxData
  • GetComboBoxData


Back to VTL Client Script Index

Was this helpful?

Yes  No
Leave A Comment Cancel reply

  GetListViewData

GetListSubItemText  

About
VertexFX Trader has a closed-loop trading structure with Backoffice dealing desk, Client Terminals, Dedicated Hosting, White Labelling and Bridging Capabilities. Through VertexFX Risk Management Bridge...
Categories
  • Mobile Trader
  • Lite VertexFX Mobile Trader
  • Release Notes
  • Technical Support
  • VertexFX Pro Setup
Community
  • Blog
  • Media Center
Need Support?
If you need any further help, don't hesitate to send a support request to our support team.
Contact Support
  • Privacy Policy
  • Brokers Terms
  • Traders EULA
  • ISV Terms
  • Plugins EULA
  • Copyright 2023 hybridsolutions.com. All Rights Reserved.