VB 2005 Listview column reordering

[fenris]

I am working with VB 2005 express edition and I have a listview control on a form with 2 buttons. I want to allow the user to be able to reorder columns to suit their needs. I have no problems with this. I also want them to be able to remove columns or re-add columns based on their wishes. My problem is if a column is added, after the user changes the position, the data gets added to the wrong column.

 

Any ideas on how to do this properly? The code below illustrates what I am taking about.

 

Public Class Form1
   Private myColumns(6) As ColumnHeader    ' Used for creating column headers.

   Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
       ' Make sure that the view is set to show details.
       ListView1.View = View.Details
       ListView1.AllowColumnReorder = True
       ListView1.GridLines = True

       ' Create some column headers for the data.
       myColumns(0) = New ColumnHeader()
       myColumns(0).Text = "Column 1"
       myColumns(1) = New ColumnHeader()
       myColumns(1).Text = "Column 2"
       myColumns(2) = New ColumnHeader()
       myColumns(2).Text = "Column 3"
       myColumns(3) = New ColumnHeader()
       myColumns(3).Text = "Column 4"
       myColumns(4) = New ColumnHeader()
       myColumns(4).Text = "Column 5"
       myColumns(5) = New ColumnHeader()
       myColumns(5).Text = "Column 6"
       myColumns(6) = New ColumnHeader()
       myColumns(6).Text = "Column 7"

       Me.ListView1.Columns.AddRange(myColumns)

       ' Loop through and size each column header to fit the column header text.
       ListView1.AutoResizeColumns(ColumnHeaderAutoResizeStyle.ColumnContent)
       ListView1.AutoResizeColumns(ColumnHeaderAutoResizeStyle.HeaderSize)
   End Sub

   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       AddRow()
   End Sub

   Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
       ListView1.Columns.Remove(myColumns(3))
       ListView1.Columns.Remove(myColumns(0))
       ListView1.Columns.Insert(3, myColumns(3))
   End Sub


   Private Sub AddRow()
       Dim row As ListViewItem
       Dim subText_Col(5) As ListViewItem.ListViewSubItem

       row = New ListViewItem("Col 1")
       subText_Col(0) = New ListViewItem.ListViewSubItem(row, "Col 2")
       subText_Col(1) = New ListViewItem.ListViewSubItem(row, "Col 3")
       subText_Col(2) = New ListViewItem.ListViewSubItem(row, "Col 4")
       subText_Col(3) = New ListViewItem.ListViewSubItem(row, "Col 5")
       subText_Col(4) = New ListViewItem.ListViewSubItem(row, "Col 6")
       subText_Col(5) = New ListViewItem.ListViewSubItem(row, "Col 7")

       row.SubItems.AddRange(subText_Col)

       ListView1.Items.Add(row)
   End Sub
End Class

[Cags]

I'm not sure this will work as I haven't tested it but when you add a row instead of explicitly stating the index you could try using the IndexOf() property to find the right column.

 

   Private Sub AddRow()
       Dim row As ListViewItem
       Dim subText_Col(5) As ListViewItem.ListViewSubItem


       Dim chTest as ColumnHeader()
       
       row = New ListViewItem("Col 1")
       chTest.Text = "Column 1"
       subText_Col( listView1.Columns.IndexOf(chTest)) = New ListViewItem.ListViewSubItem(row, "Col 1")
       chTest.Text = "Column 2"
       subText_Col( listView1.Columns.IndexOf(chTest)) = New ListViewItem.ListViewSubItem(row, "Col 2")
       chTest.Text = "Column 3"
       subText_Col( listView1.Columns.IndexOf(chTest)) = New ListViewItem.ListViewSubItem(row, "Col 3")
       chTest.Text = "Column 4"
       subText_Col( listView1.Columns.IndexOf(chTest)) = New ListViewItem.ListViewSubItem(row, "Col 4")
       chTest.Text = "Column 5"
       subText_Col( listView1.Columns.IndexOf(chTest)) = New ListViewItem.ListViewSubItem(row, "Col 5")

       row.SubItems.AddRange(subText_Col)

       ListView1.Items.Add(row)
   End Sub

[fenris]

I'll have to test it out, but that looks like what I have been trying to acomplish! Thank you very much :D

[fenris]

Here is what I have done and it seems to work well:

 

Private Sub AddRow()
       Dim row As ListViewItem
       Dim column As ColumnHeader

       If ListView1.Columns Is Nothing OrElse ListView1.Columns.Count = 0 Then Return

       Dim subText_Col(ListView1.Columns.Count - 1) As ListViewItem.ListViewSubItem

       For Each column In ListView1.Columns
           If column.DisplayIndex = 0 Then
               row = New ListViewItem(column.Name)
           ElseIf column.DisplayIndex > 0 Then
               subText_Col(column.Index) = New    ListViewItem.ListViewSubItem(row, column.Name)
           End If
       Next

       row.SubItems.AddRange(subText_Col)

       ListView1.Items.Add(row)
   End Sub

 

It is a little different, but your idea helped point me in the right direction.

 

Thanks!