Syntax

 Public Sub AddHeader(ByVal columns As List(Of ListViewcolumn))

Description

Anobject that hold listView item data.

Parameters

Sample

 Public Sub main()        Dim colvalue As VTLGeneral.VTLControls.ListViewcolumn        Dim itemvalue As VTLGeneral.VTLControls.ListViewItem        Dim colvalues As new System.Collections.Generic.List(Of VTLGeneral.VTLControls.ListViewcolumn)        Dim itemvalues As new System.Collections.Generic.List(Of VTLGeneral.VTLControls.ListViewItem)        Dim frm As new VTLGeneral.VTLForm("frm1")        Dim lst As VTLGeneral.VTLControls.VTLListView        Dim listOfcolumns As new VTLGeneral.VTLControls.ListViewcolumns        lst = new VTLGeneral.VTLControls.VTLListView("lst1")         lst.Width = "3600"        frm.AddVTLControl(lst)        frm.show()        lst.Height = "1600"         for  i as integer = 1 to 11        colvalue = new VTLGeneral.VTLControls.ListViewcolumn        colvalue.Text = "VertexVTL" & i        colvalue.Key = "VertexVTL" & i        colvalue.Index = cstr(i)        colvalues.add(colvalue)         next         lst.AddHeader(colvalues)        colvalues.clear()        colvalue = new VTLGeneral.VTLControls.ListViewcolumn        colvalue.Text = "VertexVTL" & 5        colvalue.Key = "VertexVTL" & 5        colvalue.Index = cstr(5)        colvalues.add(colvalue)         colvalue = new VTLGeneral.VTLControls.ListViewcolumn        colvalue.Text = "VertexVTL" & 6        colvalue.Key = "VertexVTL" & 6        colvalue.Index = cstr(6)        colvalues.add(colvalue)         lst.RemoveColumnByIndex(colvalues)         for j as integer = 1 to 50        itemvalue = new VTLGeneral.VTLControls.ListViewItem        itemvalue.Text = "Text" & j        itemvalue.Key = "Key" & j        itemvalue.Index = CSTR(j)        itemvalue.AddSubItem("item" & j)        itemvalue.AddSubItem("item" & j)        itemvalue.AddSubItem("item" & j)        itemvalue.AddSubItem("item" & j)         itemvalues.add(itemvalue)         next         lst.AddListItem(itemvalues)        itemvalues.clear()         itemvalue = new VTLGeneral.VTLControls.ListViewItem        itemvalue.Text = "Text" & 11        itemvalue.Key = "Key" & 11        itemvalue.Index = CSTR(11)         itemvalues.add(itemvalue)        lst.RemoveItemByIndex(itemvalues)  End Sub

See Also

• VTLForm
• AddVTLControl
• Show

Back to VTL Server Script Index