Syntax
Public Sub RemoveColumnByIndex(ByVal columns As List(Of ListViewcolumn))
Description
This method is used to remove column base on index .
Parameters
Parameter | Description |
columns | List of ListViewcolumn to add |
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 = "Clear" 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() 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 Public Sub frm1_btn1_click() colvalues = New System.Collections.Generic.List(Of VTLGeneral.VTLControls.ListViewcolumn) colvalue = New VTLGeneral.VTLControls.ListViewcolumn colvalue.Index = cstr(2) colvalues.add(colvalue) lst.RemoveColumnByIndex(colvalues) End Sub
See Also