vb.net点击列头排序 vb listview排序

在VB.net中，如何把listbox中的数值进行排序

Public Class Form1

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

ListBox1.Items.Add("Apple")

ListBox1.Items.Add("Cat")

ListBox1.Items.Add("Yellow")

ListBox1.Items.Add("Guilty")

End Sub

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

ListBox1.Sorted = True

End Sub

End Class

相关问答

Q1: 单击datagridview的列头后，如何获得排序方式 vb.net2005

String s = dataGridView1.Rows[0].Cells[1].Value.ToString();为第一行第二列vb.net点击列头排序的值

dataGridView获取排序可以把数据库的数据读到数据集，再把数据集绑定到控件上，就可以用DataTable的DefaultView获取数据源，就可以对数据进行筛选和排序vb.net点击列头排序了

DataTable dt= (DataTable)dataGridView1.DataSource;

dt.RowFilter="sex='女'";//用来筛选出性别是女的

dt.Sort="sex desc";//按性别降序排 sex为数据源中字段或列名

好像是这样，走java后，.net忘vb.net点击列头排序了，好像是这样的

Q2: vb.net datagridview控件 如何点击列头进行排序的时候 第一次点击为降序 求助各路大神

DataGridView.Sort(this.dataGridViewTextBoxColumn1, ListSortDirection.Descending);降序

DataGridView.Sort(this.dataGridViewTextBoxColumn1, ListSortDirection.Ascending);升序

dataGridViewTextBoxColumn1是列名

Q3: listview的排序功能是怎么实现的

在VB.NET中vb.net点击列头排序，您可以通过创建一个类来实现System.Collections.IComparer接口vb.net点击列头排序，实现ListView控件的排序功能。具体实现是vb.net点击列头排序：创建该类的实例，赋予给ListView1控件对象的ListViewItemSorter属性，然后在ListView的ColumnClick事件句柄（ListView1_ColumnClick）中添加代码实现按点击列排序。

下面提供一段示例代码功能参考，请根据您的系统的实际情况进行相应的修改：

Private Sub ListView1_ColumnClick(ByVal sender As Object, ByVal e As System.Windows.Forms.ColumnClickEventArgs) Handles ListView1.ColumnClick

ListView1.Sorting = SortOrder.Ascending

Dim Sorter = New ListViewSorter(e.Column)

ListView1.ListViewItemSorter = Sorter

End Sub

Public Class ListViewSorter

Implements System.Collections.IComparer

Public SortIndex As Integer

Public Sub New(ByVal SortIndex As Integer)

Me.SortIndex = SortIndex

End Sub

//这里只考虑按数值排序

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

Dim x1, y1 As ListViewItem

Dim intx, inty As Integer

x1 = x

y1 = y

intx = ParseListItemString(x1.SubItems(SortIndex).ToString())

inty = ParseListItemString(y1.SubItems(SortIndex).ToString())

If (intx inty) Then

Return -1

ElseIf (intx = inty) Then

Return 0

End If

Return 1

End Function

Private Function ParseListItemString(ByVal x As String) As Integer

Dim counter, i As Integer

counter = 0

For i = x.Length - 1 To 0 Step -1

If (x.Chars(i) = "{") Then

Exit For

End If

counter = counter + 1

Next i

Return CInt((x.Substring(x.Length - counter, counter - 1)))

End Function

End Class

Q4: VB中用datagrid中单击（或双击）表头的某一列实现排序

要正确排序取决于与 DataGrid 连接vb.net点击列头排序的数据源 Adodc数据控件中vb.net点击列头排序的数据.

如下这样修改:

Private Sub DataGrid1_HeadClick(ByVal ColIndex As Integer)

Adodc1.RecordSource="SELECT * FROM 信息表 Order By "+ DataGrid1.Columns(ColIndex).DataField

Adodc1.Refresh

End Sub

vb.net点击列头排序的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于vb listview排序、vb.net点击列头排序的信息别忘了在本站进行查找喔。