查看: 9005|回复: 0

在C++Builder中实现ListView的列标头点击排序功能

字体大小: 正常放大

韩冰

823 主题	3 听众	4048 积分

我的地盘我做主

该用户从未签到

电梯直达

1^#

发表于 2005-1-26 12:28 |只看该作者 |倒序浏览

|招呼Ta 关注Ta

<

> 
<

>天津大学电子与信息工程学院 
<

>宋天宁 
<

>---- 列表框控件在应用程序中的使用率很高，在Ｗｉｎｄｏｗｓ中经常见到， 
<

>它有四种常见的式样，分别具有显示大图标,小目标，含有图标的多列列表，含 
<

>有列标头的列表。我们也经常见到一些扩展功能，例如我们在资源管理器中的文 
<

>件列表框中，在选用详细资料察看时，用鼠标单击列标头,如大小，则所列文件 
<

>按大小排序;单机日期，则按文件日期进行排序.这一功能增强了应用程序的可用 
<

>性，使操作更直观、方便。笔者在以Borland C++Builder 3.0(以下简称BCB）作 
<

>为开发平台实现这一功能时发现，仅通过设定列表框控件的属性值的方法，只能 
<

>根据项目的首列加以排序，不能根据子项目(SubItems)排序。因此，我们需要编 
<

>写自己的代码以完成这一功能。 
<

> 
<

>---- 以下描述如何在BCB开发平台上为列表框添加列标头点击排序功能，当我们 
<

>点击的次数为奇数时，所列内容以降序排列;当我们点击的次数为偶数时，所列 
<

>内容以升序排列。 
<

> 
<

>---- 首先将一个列表框控件安放在Form上，并将其名称设为ListView1。然后在 
<

>其中添加若干项目作为试验对象。方法为：用鼠标右键单击控件，在弹出的对话 
<

>框中选择Columns Editor用来添加列和子列;再选Items Editor用来添加项目（ 
<

>包含子列和主列上的内容）。 
<

> 
<

>---- 为了显示出子项目内容，需要在Object Inspector中修改ListView属性值 
<

>，将ViewStyle设置为vsReport。另外，还必须将SortType设置为None，以使我 
<

>们的排序程序起作用。这样，程序的外观已经符合需要，下面应该增加排序功能 
<

>的代码了。为此需要添加类的方法到源代码中。添加位置为： 
<

> 
<

>void __fastcall TForm1:

istView1ColumnClick 
(TObject *Sender, 
TListColumn *Column) 
 
---- 在该方法的传递参数中，指向TListColumn类型的指针Column中含有用户所 
点击的列的信息。 
---- 下面先定义变量： 
 
int i,m,n,j; 
static bool od=true; 
od=!od; 
 
---- od代表用户点击的次数，奇数时为true,偶数时为false。注意此处od的存 
储类型设定为static,可以保证其数值的连续性。用n记录用户点击的列号,m记录 
列表框中的总项目数。 
n=Column- >Index; 
m=ListView1- >Items- >Count; 
 
---- 在列表框中临时添加一个项目作为排序中交换用的临时空间。 
ListView1- >Items- >Add(); 
 
---- 当用户点击第一列列标头时，排序按ListView1- >Items- >Item- ]7 M! w( `' w8 J, l' H" q
>Caption进行，与其它列不同，所以要单独进行排序。 ( I D% _' h, R
if (n==0) 
0 `$ t* p) N* t5 B6 V9 X; D{ ) r. V- {" J, Q# h+ F+ ^0 @: T5 [
for(i=0;i< m-1;i++) 
, [( K0 v1 l; I0 Xfor(j=i+1;j< m;j++) 
$ Q7 F2 E ]: ^, o1 z6 l2 xif(od) 0 g6 u8 u3 r( g; L! N+ ?7 B
{ 
" \& O" k }: G6 l2 h! rif(ListView1- >Items- >Item- >Caption > 
4 [8 ]/ B5 f7 ~' C; l$ N gListView1- >Items- >Item[j]- >Caption) 
, w/ s1 Y- g, D0 c. c{ . p9 B8 c' j# v* v Q+ `2 u
ListView1- >Items- >Item[m]= 
3 I6 q3 \2 W8 Z; n0 gListView1- >Items- >Item; 
$ D5 r0 }, E4 l+ XListView1- >Items- >Item= , i1 }" H) ^ `5 j& J- i
ListView1- >Items- >Item[j]; ( ^/ p6 o& M/ v o
ListView1- >Items- >Item[j]= 
) q2 Z& R7 |5 K# ~9 y; aListView1- >Items- >Item[m]; 
8 y9 m' }$ G0 o& I} " R# p# d( F# d" _
} 
1 s' P) _ [3 z n+ yelse 
7 h8 k$ n' p9 _0 j( p% }{ 
2 ~. d/ {- B0 J( Y) q; Uif(ListView1- >Items- >Item- >Caption< - M; d5 a6 U( W# q, }3 ^
ListView1- >Items- >Item[j]- >Caption) 
+ l5 I( L8 \7 i* P2 d" ?# N% V{ ( V1 u" r% S. \4 l
ListView1- >Items- >Item[m]= 
+ H7 } J% }; Y4 l7 `: BListView1- >Items- >Item; . v" k! }1 k5 h; S% c
ListView1- >Items- >Item= , T+ \8 X5 x- c0 ~
ListView1- >Items- >Item[j]; 
# d" y" D. [( E2 [& N/ e# F& C4 z; TListView1- >Items- >Item[j]= : S" N2 l# `5 b
ListView1- >Items- >Item[m]; 
1 p4 L( B9 ?: M+ o- ?( r} 
9 T. W/ X3 N. T/ ?' p( U4 o1 |} . X! V! o; P9 K7 L/ n
ListView1- >Items- >Delete(m); 
& [' B. u7 h& m2 z1 Jreturn; 
! F: ?5 v; @6 f* _$ ~} 
7 k+ r5 l% j" P 
! |, M* ?3 ]0 l7 ~& g3 H1 [5 D/ {---- 点击其它列时，需要将所点击的列内容从ListView1- >Items- 
! I M% K/ X! e5 ~/ i>Item- > SubItems- >Text中抽出,并参照其进行排序。子项目在存储中，形 : @9 N; y$ I! u* h: c* k
式为_子项目１\r\n子项目2\r\n子项目3\r\n...子项目N\r\n_。为抽取其中某一 
$ a' B2 C8 G+ [1 T- G6 S7 I子项目，需编写如下函数,并将其放于void __fastcall TForm1:: 
% b0 b6 J1 z7 ]5 L3 Y* AListView1ColumnClick前面即可。 
/ g F' ]& J* C6 E0 z#include < vcl/dstring.h > 
0 u J, `) D/ E0 [ v/ q0 N8 [6 zAnsiString __stdcall sg(AnsiString str,int n) 
4 G3 V1 e H+ {2 _{ 0 o& b7 o2 r5 W2 K8 U* B
int l,i; 
) p7 Y% Y' d% p! m8 kAnsiString qq(str); 
( k- K3 {, R$ M! Y% L' @l=qq.Length(); " @0 L% t8 @( f" p
AnsiString p(str); 
; ^: I0 p; o, s7 C `$ k$ [7 [/ x2 ?char a[]="\r\n"; 
) ~+ m% Y- }) V5 Y. q0 j& Oint j=0,k=0; 
: }: C. Z# H8 P. m5 p$ Q/ y" |: Kfor(j=1;j< l;j++) 2 l; M6 M4 j1 N2 _" u/ a2 ?
{ 
/ J) K3 _% P- J3 f3 A0 {. Wi=1; 
" U' m( O1 X" ^6 Owhile(qq[j]!=a[0] && qq[j+1]!=a[1]) $ P; }( e$ t0 ~. D- _
{ " ]' h( ?* o; F$ l' o) e+ g5 ^
p[i++]=qq[j]; 
, h. G3 z; {" Ij++; 
6 p, ^' ?% y7 x} 
* w0 \4 s' a0 f% A) z( @k++; # C; o* C9 i T3 H& v$ E
if((k-1)==n) 
% Z/ G4 k& V; q) K# Obreak; 
$ P& O7 P3 O, F8 v# }9 E9 v} ) X2 f2 o* h5 i4 p- Q+ O
p=NULL; 2 u$ t$ X4 O$ c4 ~: R
return (p); 
& a9 i) f) k& Z' Z' L} 
8 L/ v. G& k8 `1 b& I$ Q 
0 u F+ A! n. W1 u& f1 I2 M---- 有了此函数以后，只需将上面的ListView1- >Items- >Item- % X* M/ n$ |$ [4 n! E: x2 x' Q
>Caption更换为sg(ListView1- >Items- >Item- >SubItems- >Text,n-1)即 
% c$ K4 y2 p9 e$ y9 E @- }* {可完成对此项目的点击排序功能。 
$ `2 I0 p9 g4 Z4 c0 yfor(i=0;i< m-1;i++) 
1 l; f( P" k# E9 T+ y% v' x7 X, [for(j=i+1;j< m;j++) 
( M" l! b5 N6 B( E, mif(od) 
( _4 S2 A0 h+ e' p" ?* x; J1 _& p{ 
2 d& w- w% D: U. a; Tif(sg(ListView1- >Items- > 
: J; G4 i$ ^: b! _" V6 _Item- >SubItems- >Text,n-1) > 1 L% Q7 L! W C- J
sg(ListView1- >Items- > ' G8 X& a# j: A9 n, h# x
Item[j]- >SubItems- >Text,n-1)) 1 D: i; C$ O" O7 G. Q* p. |

+ V& C; O2 ]* f" ?9 o// ...以下从略 C5 {- Y2 q5 j- \
 
6 @0 v( {, u6 ^5 R2 v/ Q3 z最后，删除临时的交换项目。 8 o" i# l7 ~+ H0 w
ListView1- >Items- >Delete(m); 
' j4 b4 i' s" Q 2 F6 f6 Y* c7 y$ M; u+ t
---- 编译运行程序后，即会看到我们预期的结果。另外,本程序是按照字符串方 4 i6 x( _# o" h- ]; m+ ~
式进行排序的,如果需要按照数字或其它方式排序,只需进行相应的类型转换即可 
; t2 O9 p& R e3 o