UC知道Private Sub ListView1_ColumnClick(ByVal ColumnHeader As MSComctlLib.ColumnHeader)
来源：百度知道 编辑：UC知道 时间：2024/06/16 23:18:56
Private Sub ListView1_ColumnClick(ByVal ColumnHeader As MSComctlLib.ColumnHeader)
On Error GoTo myerr
ListView1.SortKey = ColumnHeader.Index - 1
If ListView1.SortOrder = lvwDescending Then
ListView1.SortOrder = lvwAscending
Else
ListView1.SortOrder = lvwDescending
End If
ListView1.Sorted = True
myerr:
Exit Sub
End Sub
这段代码的含义
On Error GoTo myerr
ListView1.SortKey = ColumnHeader.Index - 1
If ListView1.SortOrder = lvwDescending Then
ListView1.SortOrder = lvwAscending
Else
ListView1.SortOrder = lvwDescending
End If
ListView1.Sorted = True
myerr:
Exit Sub
End Sub
这段代码的含义
On Error GoTo myerr 出错则转到MYERR标识后执行
ListView1.SortKey = ColumnHeader.Index - 1 排序关键字＝点击列索引号-1
If ListView1.SortOrder = lvwDescending Then 如排序顺序为降序
望给个最佳！谢谢