VB如何调用Listview的ColumnClick事件
'以下排序代码测试没有问题的。现在想通过调用这个Listview的ColumnClick事件来对Listveiw控件进行排序。请大家帮忙。
Private Declare Function LockWindowUpdate Lib "user32" _
(ByVal hWndLock As Long) As Long
Private Declare Function GetTickCount Lib "kernel32" () As Long
Sub ListView1_ColumnClick(ByVal ColumnHeader As MSComctlLib.ColumnHeader)
Dim lngStart As Long
lngStart = GetTickCount
With ListView1
Dim lngCursor As Long
lngCursor = .MousePointer
.MousePointer = vbHourglass
LockWindowUpdate .hWnd
Dim l As Long
Dim strFormat As String
Dim strData() As String
Dim lngIndex As Long
lngIndex = ColumnHeader.Index - 1
Select Case UCase$(ColumnHeader.Tag)
'排序日期==========================================
Case "DATE"
strFormat = "YYYYMMDDHhNnSs"
With .ListItems
If (lngIndex > 0) Then
For l = 1 To .Count
With .Item(l).ListSubItems(lngIndex)
.Tag = .Text & Chr$(0) & .Tag
If IsDate(.Text) Then
.Text = Format(CDate(.Text), strFormat)
Else
.Text = ""
End If
End With
Next l
Else
For l = 1 To .Count
With .Item(l)
.Tag = .Text & Chr$(0) & .Tag
If IsDate(.Text) Then
.Text = Format(CDate(.Text), strFormat)
Else
.Text = ""
End If
End With
Next l
End If
End With
' .SortOrder = (.SortOrder + 1) Mod 2 '是否升序或者降序
.SortKey = ColumnHeader.Index - 1
.Sorted = True
With .ListItems
If (lngIndex > 0) Then
For l = 1 To .Count
With .Item(l).ListSubItems(lngIndex)
strData = Split(.Tag, Chr$(0))
.Text = strData(0)
.Tag = strData(1)
End With
Next l
Else
For l = 1 To .Count
With .Item(l)
strData = Split(.Tag, Chr$(0))
.Text = strData(0)
.Tag = strData(1)
End With
Next l
End If
End With
End Select
LockWindowUpdate 0&
.MousePointer = lngCursor
End With
'=======================================================
[解决办法]
排序是这个事件里实现，但默认是按文本。
如果需要按数字、日期、IP地址等排序，需要用到API。
[解决办法]
call ListView1_ColumnClick(ListView1.ColumnHeaders(1))
其中的1就是对应第几列
