【VisualFreeBasic】ListView控件点击列名排序

勇芳软件

ListView控件，列表名点击一下，自动排序此列，同时显示小3角，再点一次自动切换正序与倒序，  
啥都不说，直接上代码，复制去，调用即可。  
使用例题

1. '用法：在列单击事件中加入下面内容即可
   
2. 'Function FORM10_LISTVIEW2_LVN_COLUMNCLICK ( _
   
3. '                                          ControlIndex  As Long,            _  ' 在控件数组索引
   
4. '                                          hWndForm      As DWord,           _  ' 窗体的句柄
   
5. '                                          hWndControl   As DWord,           _  ' 控件的句柄
   
6. '                                          ByVal lpNMV   As NM_LISTVIEW Ptr  _  ' 指针指向 NM_LISTVIEW
   
7. '                                          ) As Long
   
8. '    ' 排序 ListView
   
9. '    JPL_ListView_ColumnToSort(hWndControl, lpNMV)
   
10. 'End Function

复制代码

排序源码：

1. 
   
2. ' 要能够使用 ListView_ColumnToSort() 函数的结构
   
3. Type JPL_ListView_ComparePar
   
4.     hWndControl As HWnd
   
5.     Column      As UInteger
   
6.     SortOrder   As UInteger
   
7. End Type
   
8. ' 常数
   
9. Const SO_NONE       = 0
   
10. Const SO_ASCENDING  = 1
    
11. Const SO_DESCENDING = 2
    
12. '--------------------------------------------------------------------------------
    
13. Sub JPL_ListView_DrawHeaderArrow(hWndControl As HWnd , ByVal pColumn As Long, ByVal pSortOrder As Long)
    
14.     Dim hHeader As HWnd  
    
15.     Dim HDI As HD_ITEM
    
16.     hHeader =Cast(HWnd, SendMessage(hWndControl, LVM_GetHeader, 0, 0) )   
    
17.     HDI.mask = HDI_FORMAT
    
18.     Header_GetItem(hHeader, pColumn, @HDI)
    
19.     ' 取决于排序次序 (SO_NONE, SO_ASCENDING, SO_DESCENDING)
    
20.     Select Case pSortOrder
    
21.         Case SO_NONE
    
22.             ' 删除向下箭头或向上箭头
    
23.             HDI.fmt = HDI.fmt And Not (HDF_SORTDOWN Or HDF_SORTUP)
    
24.         Case SO_ASCENDING
    
25.             ' 这一项目上绘制一个向上箭头
    
26.             HDI.fmt = HDI.fmt And Not HDF_SORTDOWN
    
27.             HDI.fmt = HDI.fmt Or      HDF_SORTUP                       
    
28.         Case SO_DESCENDING
    
29.             ' 在这个项目上绘制一个向下箭头
    
30.             HDI.fmt = HDI.fmt And Not HDF_SORTUP
    
31.             HDI.fmt = HDI.fmt Or      HDF_SORTDOWN                             
    
32.     End Select      
    
33.     Header_SetItem(hHeader, pColumn, @HDI)
    
34. End Sub
    
35. '--------------------------------------------------------------------------------
    
36. Function JPL_ListView_CompareFunc ( ByVal index1 As Long, _
    
37.                                   ByVal index2 As Long, _
    
38.                                   ByVal lpListView_ComparePar As JPL_ListView_ComparePar Ptr _
    
39.                                   )  As Long
    
40.   Dim zItem1    As String
    
41.   Dim zItem2    As String
    
42.   Dim lNumeric1 As Double
    
43.   Dim lNumeric2 As Double
    
44.   Dim lReturn   As Integer
    
45.   ' 从列表视图中获取价值
    
46.   zItem1 =FF_ListView_GetItemText(lpListView_ComparePar->hWndControl, index1, lpListView_ComparePar->Column)
    
47.   zItem2 =FF_ListView_GetItemText(lpListView_ComparePar->hWndControl, index2, lpListView_ComparePar->Column)
    
48.   '--------------------------------------------------------------------------------------------
    
49.   ' 确定哪种类型的排序 （日期、 数字或字符） 根据列点击
    
50.   '--------------------------------------------------------------------------------------------
    
51.   ' 日期
    
52. '  If IsDate(zItem1) And IsDate(zItem2) Then '速度太慢，放弃
    
53. '      lNumeric1 = DateValue(zItem1)
    
54. '      lNumeric2 = DateValue(zItem2)
    
55. '      If lNumeric1 < lNumeric2 Then lReturn = -1 Else If lNumeric1 > lNumeric2 Then lReturn = +1 Else lReturn = 0
    
56. '  Else
    
57.       ' 数字
    
58.       If JPL_IsNumeric(zItem1) And JPL_IsNumeric(zItem2) Then
    
59.           zItem1=FF_Remove (zItem1," ")   ' Remove Any numeric 1000's space
    
60.           zItem2=FF_Remove (zItem2," ")
    
61.           lNumeric1 = Val(zItem1)
    
62.           lNumeric2 = Val(zItem2)
    
63.           If lNumeric1 < lNumeric2 Then lReturn = -1 Else If lNumeric1 > lNumeric2 Then lReturn = +1 Else lReturn = 0
    
64.       Else
    
65.           ' 字符
    
66.           zItem1 = LTrim(zItem1)
    
67.           zItem2 = LTrim( zItem2 )
    
68.           lReturn = Lstrcmpi(zItem1, zItem2)
    
69.       End If
    
70. '  End If
    
71.   If lpListView_ComparePar->SortOrder = SO_ASCENDING Then Function = lReturn Else Function = -lReturn
    
72. End Function
    
73. '--------------------------------------------------------------------------------
    
74. Sub JPL_ListView_ColumnToSort(hWndControl As HWnd , ByVal lpNMV As NM_LISTVIEW Ptr)
    
75.     ' 为比较结构                                                               
    
76.     Dim lListView_ComparePar      As JPL_ListView_ComparePar
    
77.     ' 局部变量                                                               
    
78.     Dim lListViewSortOrder        As Long
    
79.     Dim lListViewLastSortedColumn As Long
    
80.     ' 加载列表视图的当前值   
    
81.     lListViewSortOrder        = ValInt(FF_Control_GetTag (hWndControl))
    
82.     lListViewLastSortedColumn = ValInt(FF_Control_GetTag2(hWndControl))                                                      
    
83.     ' 若要反转排序顺序
    
84.     If lListViewSortOrder = SO_ASCENDING Then lListViewSortOrder = SO_DESCENDING Else lListViewSortOrder = SO_ASCENDING
    
85.     ' 遏止以前排序的列上的箭头 （包含零被单击的基于的列号）
    
86.     If lListViewLastSortedColumn <> - 1 And _
    
87.        lListViewLastSortedColumn <> lpNMV->iSubItem Then  JPL_ListView_DrawHeaderArrow(hWndControl, lListViewLastSortedColumn, SO_NONE )
    
88.     ' 排序列表视图中选择的列
    
89.     lListView_ComparePar.hWndControl = hWndControl
    
90.     lListView_ComparePar.Column      = lpNMV->iSubItem
    
91.     lListView_ComparePar.SortOrder   = lListViewSortOrder  
    
92.      SendMessage( hWndControl , LVM_SORTITEMSEX ,Cast(wParam, @lListView_ComparePar ),Cast(lParam,@JPL_ListView_CompareFunc ) )                                             
    
93.     ' 向下箭头或向上箭头上绘制这一项目。
    
94.     JPL_ListView_DrawHeaderArrow(hWndControl, lpNMV->iSubItem, lListViewSortOrder)
    
95.     ' 要保存的已排序的列号
    
96.     lListViewLastSortedColumn = lpNMV->iSubItem
    
97.     ' 保存对此列表视图的最新设置
    
98.     FF_Control_SetTag(hWndControl , Str(lListViewSortOrder))
    
99.     FF_Control_SetTag2(hWndControl, Str(lListViewLastSortedColumn))   
    
100. 
     
101. End Sub
     
102. '--------------------------------------------------------------------------------
     
103. Function JPL_IsNumeric(pValue As String ) As Long
     
104.     If UCase(Left(pValue,2))="&H" Then
     
105.         If FF_Verify (1,Mid(pValue,3), "0123456789") = 0 Then Function = True Else Function = False
     
106.     Else
     
107.         If FF_Verify (1,pValue, "0123456789.,'+-") = 0 Then Function = True Else Function = False
     
108.     End If   
     
109. End Function

复制代码

勇芳软件

看官们是不是觉得和VB代码很像，但的确不是VB，而好VFB，VB想用？但需要改造，只是太麻烦了。

勇芳软件

纠正错误：
在最后函数里，有16进制判断，
"0123456789" 应该写："0123456789ABCDEF"
但还是存在大小写问题的，假如16进制用小写字母，就有问题。如何做，不用我说了吧。

xiawan

你们懂的，楼主好人