Syntax

Public Sub AddListItem(ByVal value As List(Of VTLControls.ListViewItem))

Description

This method is used to add item in list view.

Parameters

Sample

 Dim colvalues as System.Collections.Generic.List(Of VTLGeneral.VTLControls.ListViewcolumn)
 Dim colvalue as VTLGeneral.VTLControls.ListViewcolumn
 Dim lst as VTLGeneral.VTLControls.VTLListView
 Dim frm as VTLGeneral.VTLForm
 Dim itemvalues as New System.Collections.Generic.List(Of VTLGeneral.VTLControls.ListViewItem)
 Dim itemvalue as VTLGeneral.VTLControls.ListViewItem

  Public Sub main()

            lst = New VTLGeneral.VTLControls.VTLListView("lst1") 
      frm = New VTLGeneral.VTLForm("frm1")
      frm.AddVTLControl(lst)
      lst.Height = "2000"
      lst.width = "2000"

      Dim btn as VTLGeneral.VTLControls.CChartObjectButton

          btn = New VTLGeneral.VTLControls.CChartObjectButton("btn1")

          frm.AddVTLControl(btn)

       btn.caption = "Add"

       colvalues = New System.Collections.Generic.List(Of VTLGeneral.VTLControls.ListViewcolumn)

       colvalue= New VTLGeneral.VTLControls.ListViewcolumn
       colvalue.Text = "Col1"
       colvalue.Key = "Col1"
       colvalue.Index = cstr(1)
       colvalues.add(colvalue)

       lst.AddHeader(colvalues)
       colvalues.clear()

       colvalues = New System.Collections.Generic.List(Of VTLGeneral.VTLControls.ListViewcolumn)
       colvalue = New VTLGeneral.VTLControls.ListViewcolumn
       colvalue.Text = "Col2"
       colvalue.Key = "Col2"
       colvalue.Index = cstr(2)
       colvalues.add(colvalue)

       lst.AddHeader(colvalues)
       colvalues.clear()

       frm.show()

 End Sub

 Public Sub frm1_btn1_click()

       itemvalue = New VTLGeneral.VTLControls.ListViewItem
       itemvalue.Text = "Data"
       itemvalue.Key = "S" 
       itemvalue.Index=CSTR(1)
       itemvalue.AddSubItem("info1")

       itemvalues.add(itemvalue)

       lst.AddListItem(itemvalues)

 End Sub​

See Also

• ClearListItems
• RemoveItemByIndex
• RemoveItemByKey

Back to VTL Server Script Index