AllowColumnReor der used programmaticall y

[VR]

Please, help.

Is there any way to take advantage of re-ordering columns
in ListView control programmaticall y when
AllowColumnReor der is set to true?

I have a ListView with 3 columns, LabelEdit is set to
true. That allows user to edit 0th column. I want the user
to be able to edit the 1st (or the middle) column. I
figured my item (0th) column should be somehow switched
with the 1st sub-item's column.

It's pretty easy to do by setting AllowColumnReor der to
true and then, manually re-orderding columns by drag-and-
dropping them.

Is there any way to do it programmaticall y without user
intervention?

Thanks.
VR

[Parker Zhang [MSFT]]

Hi,

Sending the lvm_setcolumnor derarray message to the listview along with
an array that specifies the left to right order of the columns will allow
you to
programatically change the order of the columns in the listview. The
ListView view
should be set to Details

Here is VB.NET code. I think you can easily convert it to C#.

'Sendmessage declare
Const LVM_FIRST As Integer = &H1000
Const LVM_SETCOLUMNOR DERARRAY = LVM_FIRST + 58

<DllImport("use r32.dll", EntryPoint:="Se ndMessageA")> _
Private Shared Function ListViewColumnO rder(ByVal hwnd As Integer,
ByVal Msg As
Integer, ByVal wParam As Integer, ByRef lParam As Integer) As Integer
End Function
'Sub to change order of columns

Public Sub SetColumnOrder( ByVal ListViewToReord er As ListView, ByVal
SortOrder As Integer())
If SortOrder.Lengt h < 1 Then Exit Sub
If SortOrder.Lengt h > ListViewToReord er.Columns.Coun t Then Exit
Sub
Dim liSetColumnOrde rArray As Integer = LVM_SETCOLUMNOR DERARRAY
Dim liSuccess As Integer
liSuccess = ListViewColumnO rder(ListView1. Handle.ToInt32,
liSetColumnOrde rArray, SortOrder.Lengt h, SortOrder(0))
If Not liSuccess.Equal s(0) Then
ListView1.Refre sh()
End If
End Sub
'Code to call sub - pass desired order of columns in an array
Dim sortorder() As Integer
ReDim sortorder(ListV iew1.Columns.Co unt - 1)
sortorder(0) = 2 'assumes 3 columns
sortorder(1) = 1
sortorder(2) = 0
SetColumnOrder( ListView1, sortorder)
Below is a sample that illustrates how this could be done. It uses a
Windows
Application project with a ListView and a Commnad button added.

Imports System.Runtime. InteropServices
Public Class Form1
Inherits System.Windows. Forms.Form

Const LVM_FIRST As Integer = &H1000
Const LVM_SETCOLUMNOR DERARRAY = LVM_FIRST + 58

<DllImport("use r32.dll", EntryPoint:="Se ndMessageA")> _
Private Shared Function ListViewColumnO rder(ByVal hwnd As Integer,
ByVal Msg As
Integer, ByVal wParam As Integer, ByRef lParam As Integer) As Integer
End Function

Dim FirstTime As Boolean = True
Dim arrData(2, 2) As String
Windows Form Designer generated code

Private Sub Form1_Load(ByVa l sender As System.Object, _
ByVal e As System.EventArg s) Handles MyBase.Load

'Fill the array with some data
arrData(0, 0) = "Charlotte"
arrData(0, 1) = "NC"
arrData(0, 2) = "[phone]"
arrData(1, 0) = "Dallas"
arrData(1, 1) = "TX"
arrData(1, 2) = "[phone]"
arrData(2, 0) = "Redmond"
arrData(2, 1) = "WA"
arrData(2, 2) = "[phone]"

SetupListView()

End Sub

Sub SetupListView()
Dim lv As ListView = ListView1
Dim lvitem As ListViewItem
Dim i As Long
Dim ch As ColumnHeader
Dim lvsitem As ListViewItem.Li stViewSubItem
Dim lvsitem2 As ListViewItem.Li stViewSubItem
Dim intLVItemCounte r As Integer
Dim intSubItemCount er As Integer

'Clear the Listview, enable GridLines and FullRowSelect
lv.Clear()
lv.GridLines = True
lv.FullRowSelec t = True
lv.View = View.Details
Dim imageListSmall As New ImageList()

For intLVItemCounte r = 0 To arrData.GetUppe rBound(0)
'Create a new ListViewItem, and set its Text to
'the appropriate value from the array
lvitem = New ListViewItem()
lvitem.Text = arrData(intLVIt emCounter, 0)

'Loop through the array elements of the first dimension
'to create SubItems.
For intSubItemCount er = 1 To arrData.GetUppe rBound(1)
'Add a SubItem with the text from the appropriate location
in the
array
lvitem.SubItems .Add(arrData(in tLVItemCounter,
intSubItemCount er))
Next

'Add the ListViewItem to the control
lv.Items.Add(lv item)

Next

'Setup imagelist
imageListSmall. Images.Add(Bitm ap.FromFile("C: \Program
Files\Microsoft
Visual Studio .NET\Common7\Gr aphics\icons\Tr affic\trffc05.i co"))
imageListSmall. Images.Add(Bitm ap.FromFile("C: \Program
Files\Microsoft
Visual Studio .NET\Common7\Gr aphics\icons\Tr affic\trffc06.i co"))
imageListSmall. Images.Add(Bitm ap.FromFile("C: \Program
Files\Microsoft
Visual Studio .NET\Common7\Gr aphics\icons\Tr affic\trffc07.i co"))
lv.SmallImageLi st = imageListSmall

For i = 0 To lv.Items.Count - 1
lv.Items(i).Ima geIndex = i
Next i

'Add columns to the control
AddColumns("Cit y")
AddColumns("Sta te")
AddColumns("Tel ephone")

For Each ch In lv.Columns
ch.Width = -2
Next

End Sub

Sub AddColumns(ByVa l Text As String)
Dim lv As ListView = ListView1
Dim ch As ColumnHeader
ch = New ColumnHeader()
ch.Text = Text
lv.Columns.Add( ch)
End Sub
Private Sub Button1_Click(B yVal sender As System.Object, ByVal e As
System.EventArg s) Handles Button1.Click

Static c As Integer
ListView1.Allow ColumnReorder = True
ListView1.Label Edit = True
Dim sortorder() As Integer
ReDim sortorder(ListV iew1.Columns.Co unt - 1)
If FirstTime Then
c = 2
FirstTime = False
End If
If c > 2 Then c = 0
sortorder(0) = c
c += 1
If c > 2 Then c = 0
sortorder(1) = c
c += 1
If c > 2 Then c = 0
sortorder(2) = c

SetColumnOrder( ListView1, sortorder)

End Sub
Public Sub SetColumnOrder( ByVal ListViewToReord er As ListView, ByVal
SortOrder
As Integer())
If SortOrder.Lengt h < 1 Then Exit Sub
If SortOrder.Lengt h > ListViewToReord er.Columns.Coun t Then Exit Sub
Dim liSetColumnOrde rArray As Integer = LVM_SETCOLUMNOR DERARRAY
Dim liSuccess As Integer
liSuccess = ListViewColumnO rder(ListView1. Handle.ToInt32,
liSetColumnOrde rArray, SortOrder.Lengt h, SortOrder(0))
If Not liSuccess.Equal s(0) Then
ListView1.Refre sh()
End If
End Sub


End Class

[VR]

Thanks for your help. It works flawlessly.

VR

-----Original Message-----
Hi,

Sending the lvm_setcolumnor derarray message to the listview along withan array that specifies the left to right order of the columns will allowyou to
programaticall y change the order of the columns in the listview. TheListView view
should be set to Details

Here is VB.NET code. I think you can easily convert it to C#.
'Sendmessage declare
Const LVM_FIRST As Integer = &H1000
Const LVM_SETCOLUMNOR DERARRAY = LVM_FIRST + 58

<DllImport("use r32.dll", EntryPoint:="Se ndMessageA")> _ Private Shared Function ListViewColumnO rder(ByVal hwnd As Integer,ByVal Msg As
Integer, ByVal wParam As Integer, ByRef lParam As Integer) As Integer End Function
'Sub to change order of columns

Public Sub SetColumnOrder( ByVal ListViewToReord er As ListView, ByValSortOrder As Integer())
If SortOrder.Lengt h < 1 Then Exit Sub
If SortOrder.Lengt h > ListViewToReord er.Columns.Coun t Then ExitSub
Dim liSetColumnOrde rArray As Integer = LVM_SETCOLUMNOR DERARRAY Dim liSuccess As Integer
liSuccess = ListViewColumnO rder (ListView1.Hand le.ToInt32,liSetColumnOrd erArray, SortOrder.Lengt h, SortOrder(0))
If Not liSuccess.Equal s(0) Then
ListView1.Refre sh()
End If
End Sub
'Code to call sub - pass desired order of columns in an array Dim sortorder() As Integer
ReDim sortorder(ListV iew1.Columns.Co unt - 1)
sortorder(0) = 2 'assumes 3 columns
sortorder(1) = 1
sortorder(2) = 0
SetColumnOrder( ListView1, sortorder)
Below is a sample that illustrates how this could be done. It uses aWindows
Application project with a ListView and a Commnad button added.
Imports System.Runtime. InteropServices
Public Class Form1
Inherits System.Windows. Forms.Form

Const LVM_FIRST As Integer = &H1000
Const LVM_SETCOLUMNOR DERARRAY = LVM_FIRST + 58

<DllImport("use r32.dll", EntryPoint:="Se ndMessageA")> _ Private Shared Function ListViewColumnO rder(ByVal hwnd As Integer,ByVal Msg As
Integer, ByVal wParam As Integer, ByRef lParam As Integer) As Integer End Function

Dim FirstTime As Boolean = True
Dim arrData(2, 2) As String
Windows Form Designer generated code

Private Sub Form1_Load(ByVa l sender As System.Object, _
ByVal e As System.EventArg s) Handles MyBase.Load
'Fill the array with some data
arrData(0, 0) = "Charlotte"
arrData(0, 1) = "NC"
arrData(0, 2) = "[phone]"
arrData(1, 0) = "Dallas"
arrData(1, 1) = "TX"
arrData(1, 2) = "[phone]"
arrData(2, 0) = "Redmond"
arrData(2, 1) = "WA"
arrData(2, 2) = "[phone]"

SetupListView()

End Sub

Sub SetupListView()
Dim lv As ListView = ListView1
Dim lvitem As ListViewItem
Dim i As Long
Dim ch As ColumnHeader
Dim lvsitem As ListViewItem.Li stViewSubItem
Dim lvsitem2 As ListViewItem.Li stViewSubItem
Dim intLVItemCounte r As Integer
Dim intSubItemCount er As Integer

'Clear the Listview, enable GridLines and FullRowSelect lv.Clear()
lv.GridLines = True
lv.FullRowSelec t = True
lv.View = View.Details
Dim imageListSmall As New ImageList()

For intLVItemCounte r = 0 To arrData.GetUppe rBound (0) 'Create a new ListViewItem, and set its Text to 'the appropriate value from the array
lvitem = New ListViewItem()
lvitem.Text = arrData(intLVIt emCounter, 0)

'Loop through the array elements of the first dimension 'to create SubItems.
For intSubItemCount er = 1 To arrData.GetUppe rBound(1) 'Add a SubItem with the text from the appropriate locationin the
array
lvitem.SubItems .Add(arrData (intLVItemCount er,intSubItemCoun ter))
Next

'Add the ListViewItem to the control
lv.Items.Add(lv item)

Next

'Setup imagelist
imageListSmall. Images.Add(Bitm ap.FromFile ("C:\ProgramFiles\Microsof t
Visual Studio .NET\Common7 \Graphics\icons \Traffic\trffc0 5.ico")) imageListSmall. Images.Add(Bitm ap.FromFile ("C:\ProgramFiles\Microsof t
Visual Studio .NET\Common7 \Graphics\icons \Traffic\trffc0 6.ico")) imageListSmall. Images.Add(Bitm ap.FromFile ("C:\ProgramFiles\Microsof t
Visual Studio .NET\Common7 \Graphics\icons \Traffic\trffc0 7.ico")) lv.SmallImageLi st = imageListSmall

For i = 0 To lv.Items.Count - 1
lv.Items(i).Ima geIndex = i
Next i

'Add columns to the control
AddColumns("Cit y")
AddColumns("Sta te")
AddColumns("Tel ephone")

For Each ch In lv.Columns
ch.Width = -2
Next

End Sub

Sub AddColumns(ByVa l Text As String)
Dim lv As ListView = ListView1
Dim ch As ColumnHeader
ch = New ColumnHeader()
ch.Text = Text
lv.Columns.Add( ch)
End Sub
Private Sub Button1_Click(B yVal sender As System.Object, ByVal e AsSystem.EventAr gs) Handles Button1.Click

Static c As Integer
ListView1.Allow ColumnReorder = True
ListView1.Label Edit = True
Dim sortorder() As Integer
ReDim sortorder(ListV iew1.Columns.Co unt - 1)
If FirstTime Then
c = 2
FirstTime = False
End If
If c > 2 Then c = 0
sortorder(0) = c
c += 1
If c > 2 Then c = 0
sortorder(1) = c
c += 1
If c > 2 Then c = 0
sortorder(2) = c

SetColumnOrder( ListView1, sortorder)

End Sub
Public Sub SetColumnOrder( ByVal ListViewToReord er As ListView, ByValSortOrder
As Integer())
If SortOrder.Lengt h < 1 Then Exit Sub
If SortOrder.Lengt h > ListViewToReord er.Columns.Coun t Then Exit Sub Dim liSetColumnOrde rArray As Integer = LVM_SETCOLUMNOR DERARRAY Dim liSuccess As Integer
liSuccess = ListViewColumnO rder (ListView1.Hand le.ToInt32,liSetColumnOrd erArray, SortOrder.Lengt h, SortOrder(0))
If Not liSuccess.Equal s(0) Then
ListView1.Refre sh()
End If
End Sub


End Class
.