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