В голову приходит следующее:

ListView1.ColumnHeaders(номер нужного столбца).Width =0 ' для скрытия столбца

Для нормальной сортировки возможно:

если ListView присоединен к базе данных, то соответственно проводит сортировку в Recordset'е, если нет, то заполнять отсортированными данными сразу.

Ответить

Я сейчас и так пользую способ нулевой ширены... но пользователи иногда изменяют ширину столбца и соответственно видят чисто служебную инфу... а это не есть гуд...

По поводу сортировки... если база то вопросов нет .... Order By и все...

Но неужели не существует нормального способа ?????

Или хотябы не совсем нормального ??? )

Ответить

Это модуль:

===========================================

Imports System.Collections

Imports System.Windows.Forms

Public Class ListViewColumnSorter

Implements System.Collections.IComparer

Private ColumnToSort As Integer

Private OrderOfSort As SortOrder

Private ObjectCompare As CaseInsensitiveComparer

Public Sub New()

' Initialize the column to '0'.

ColumnToSort = 0

' Initialize the sort order to 'none'.

OrderOfSort = SortOrder.None

' Initialize the CaseInsensitiveComparer object.

ObjectCompare = New CaseInsensitiveComparer()

End Sub

Public Function Compare(ByVal x As Object, ByVal y As Object) As Integer Implements IComparer.Compare

Dim compareResult As Integer

Dim listviewX As ListViewItem

Dim listviewY As ListViewItem

' Cast the objects to be compared to ListViewItem objects.

listviewX = CType(x, ListViewItem)

listviewY = CType(y, ListViewItem)

' Compare the two items.

'Здесь можно поиграться типами для сортировки (например добавить Date)

If IsNumeric(listviewX.SubItems(ColumnToSort).Text) Then

compareResult = ObjectCompare.Compare(Convert.ToInt16 (listviewX.SubItems(ColumnToSort).Text), Convert.ToInt16(listviewY.SubItems(ColumnToSort).Text))

Else

compareResult = ObjectCompare.Compare(listviewX.SubItems(ColumnToSort).Text, listviewY.SubItems(ColumnToSort).Text)

End If

' Calculate the correct return value based on the object

' comparison.

If (OrderOfSort = SortOrder.Ascending) Then

' Ascending sort is selected, return typical result of

' compare operation.

Return compareResult

ElseIf (OrderOfSort = SortOrder.Descending) Then

' Descending sort is selected, return negative result of

' compare operation.

Return (-compareResult)

Else

' Return '0' to indicate that they are equal.

Return 0

End If

End Function

Public Property SortColumn() As Integer

Set(ByVal Value As Integer)

ColumnToSort = Value

End Set

Get

Return ColumnToSort

End Get

End Property

Public Property Order() As SortOrder

Set(ByVal Value As SortOrder)

OrderOfSort = Value

End Set

Get

Return OrderOfSort

End Get

End Property

End Class

=================================================

Это на форме:

=================================================

Private lvwColumnSorter As ListViewColumnSorter

#Region " Windows Form Designer generated code "

Public Sub New()

MyBase.New()

'This call is required by the Windows Form Designer.

InitializeComponent()

'Add any initialization after the InitializeComponent() call

' Create an instance of a ListView column sorter and assign it

' to the ListView control.

lvwColumnSorter = New ListViewColumnSorter()

Me.ListView1.ListViewItemSorter = lvwColumnSorter

End Sub

End region

В нужном событии (например Form_Load)

lvwColumnSorter.SortColumn = <столбец для сортировки>

lvwColumnSorter.Order = SortOrder.Ascending

=====================================================

Ответить