Syntax

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

Description

This method is used to add a list of columns.

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 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 Header"      frm.show() End Sub Public Sub frm1_btn1_click()      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() End Sub

See Also

• ClearColumns
• RemoveColumnByIndex
• RemoveColumnByKey

Back to VTL Server Script Index