查看: 8971|回复: 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- $ n' v' K3 o% g% F) `, f L/ x4 Q
>Caption进行，与其它列不同，所以要单独进行排序。 
 F) Q- z9 Y' o% X& ]+ vif (n==0) 
5 L/ B: ^% T6 H5 u{ : d1 h# H7 m! U- S0 ~3 V1 f& u
for(i=0;i< m-1;i++) % b3 U3 }8 B/ E- k! }: y) }
for(j=i+1;j< m;j++) 
8 J) }' m9 @9 p$ [. a. `if(od) 5 G- P$ m1 K6 K7 L- d
{ 
0 F3 H" R1 M% ?$ _3 h# w% Wif(ListView1- >Items- >Item- >Caption > 
3 _2 n1 T. x; f8 u6 X0 F- R+ bListView1- >Items- >Item[j]- >Caption) 5 k* w3 e2 D' Q O0 \# p
{ 
; N% O. @) _& Y0 ?* q4 DListView1- >Items- >Item[m]= 
, L; X. P6 h/ ?4 `; e3 kListView1- >Items- >Item; 
8 i5 I4 |9 m/ n c. V) X7 uListView1- >Items- >Item= 
& }% x1 d) C- p# `- M% IListView1- >Items- >Item[j]; 
0 N* z$ k, \" sListView1- >Items- >Item[j]= $ S6 X# r5 i/ e4 L$ h; M
ListView1- >Items- >Item[m]; ' ~" t, E* U& m; Y) k% P9 j
} 
1 E- C* B4 {+ U8 i/ L! z} 
9 E- O4 l- ?& m4 \else - n2 H* D) W# `( M( F6 D
{ 
% [* x% A, W& b% [+ v8 t2 tif(ListView1- >Items- >Item- >Caption< 
7 A" E6 t9 w: lListView1- >Items- >Item[j]- >Caption) 7 [+ M% M2 X* S& \4 C1 m8 v9 c7 N
{ 
$ I9 ]8 s! J, Y2 ?. Z, Q; D- lListView1- >Items- >Item[m]= 4 i! L8 d! Y- D
ListView1- >Items- >Item; # ]6 }6 |- e f8 q
ListView1- >Items- >Item= . \1 y9 H/ o/ S
ListView1- >Items- >Item[j]; 
3 Y; J. Z$ f: P% l- b4 G2 @- p1 Q' TListView1- >Items- >Item[j]= - N8 t0 M) D. l
ListView1- >Items- >Item[m]; ' O: S( M# y5 y" b
} 
) G4 k/ J5 @+ t# a} ) c) v9 l4 a( C
ListView1- >Items- >Delete(m); 9 F& ]2 b! R: F) W( p4 ]
return; ( m4 l0 k6 j5 ?+ S- m8 Q
} 
! D2 r- v+ G- Y) F/ Q5 {7 N; ? ' F7 p2 H/ P+ s! i: z6 }
---- 点击其它列时，需要将所点击的列内容从ListView1- >Items- 
$ |0 P* l" T( v( l>Item- > SubItems- >Text中抽出,并参照其进行排序。子项目在存储中，形 
2 G9 g& P, q4 |- r* z8 ^! p式为_子项目１\r\n子项目2\r\n子项目3\r\n...子项目N\r\n_。为抽取其中某一 4 `# m+ `* X5 h
子项目，需编写如下函数,并将其放于void __fastcall TForm1:: 
+ m( }: I8 f( I- h+ m& FListView1ColumnClick前面即可。 
5 T- U$ w2 ^& j1 J- x5 n#include < vcl/dstring.h > 
9 B+ J" A2 v) [) p5 G( e$ \! s8 N& IAnsiString __stdcall sg(AnsiString str,int n) 4 Y2 q) I$ p! g, X
{ 
6 J+ U& L8 [$ A) C/ ]int l,i; / n N. l; I% [% k
AnsiString qq(str); $ a- q! B( O: U8 E: j3 x
l=qq.Length(); a* b- m( k4 v/ O- r
AnsiString p(str); 
+ i7 w8 B* m, J$ e1 c. ^" w+ vchar a[]="\r\n"; 5 h0 ~, Y F5 v
int j=0,k=0; ) n$ O( b5 O" |0 F7 S, J
for(j=1;j< l;j++) 
8 z2 a7 m$ Q; n4 T; {% S{ " W2 `# V# ?5 h# v
i=1; / I. s& m0 \0 o+ Q, B! l
while(qq[j]!=a[0] && qq[j+1]!=a[1]) 
, w% L( L' X4 f' g0 Q+ c% a{ 
4 G! L: F4 P' A! A; a5 Q7 pp[i++]=qq[j]; 3 W+ r! Z7 }4 o
j++; 
0 V" ~7 _# P$ t6 \, [9 r' ^4 E+ c} ) T* H: K9 b+ k( W! ]* W* a- t
k++; ' |2 q( w1 ~0 D3 N2 s0 U
if((k-1)==n) , D2 C# Q$ ?% \) z4 |- c
break; 
* ]* I7 O2 o8 g( j% P2 g} 
% S% G3 M5 }4 j8 D; l7 A8 Zp=NULL; 
3 L2 W: v! V/ [5 w; Mreturn (p); 3 w# f2 U+ e, c9 ?
} 8 ? c0 K' ^% R. Y+ V6 P& T
 
6 N& p/ L L" g8 [% W& o" Q---- 有了此函数以后，只需将上面的ListView1- >Items- >Item- 0 x, F* [8 x) I" C& D/ C
>Caption更换为sg(ListView1- >Items- >Item- >SubItems- >Text,n-1)即 
% J/ T |7 Q% @0 _% f/ F# T* p可完成对此项目的点击排序功能。 
! y: a1 i5 i" m5 L# H" Rfor(i=0;i< m-1;i++) 
 l9 s/ Z+ r4 a7 r8 u1 Z" Gfor(j=i+1;j< m;j++) 
3 G1 D1 T- O% N5 X b0 nif(od) 
" ]( c, B$ s5 _; H) V2 L" q2 E9 u{ 
2 g5 y4 }- C6 o) ^' qif(sg(ListView1- >Items- > 
- G. \) ^/ B+ N7 A# qItem- >SubItems- >Text,n-1) > ; V" }, j2 Z O" X% d
sg(ListView1- >Items- > ( X# {8 |% S& p8 W% N6 x
Item[j]- >SubItems- >Text,n-1)) 6 k9 |) N5 P9 ^, a6 Z% W6 a$ [

: L' i3 i! C9 b* e// ...以下从略 
+ m5 v) {$ _( f; s: t: m4 C " C( T1 i: B A1 L$ W
最后，删除临时的交换项目。 + ~0 ]$ |5 T3 L+ O/ G
ListView1- >Items- >Delete(m); 
; P! b0 a& \1 K3 M 
; t0 a/ C7 T* A) g---- 编译运行程序后，即会看到我们预期的结果。另外,本程序是按照字符串方 
0 i! T; ^6 j C+ f9 c& }式进行排序的,如果需要按照数字或其它方式排序,只需进行相应的类型转换即可 : O" l9 p( ~# {5 i