查看: 9009|回复: 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- ' h Q1 `! j! b) U& j
>Caption进行，与其它列不同，所以要单独进行排序。 
5 |. P. H& t4 o& Y1 T" hif (n==0) 
. \& d9 o6 t, \8 k3 V! O' S{ $ {& _, I' W7 m, l
for(i=0;i< m-1;i++) 
& g% \& J/ }1 O8 H' Hfor(j=i+1;j< m;j++) 8 o y, q \1 R' }9 I( m
if(od) ) u1 V$ x3 H. G- ]' y
{ 
2 ]1 F9 b' G* w* z" a& j6 u5 d, zif(ListView1- >Items- >Item- >Caption > 
2 _. \# h2 {+ B/ ^ListView1- >Items- >Item[j]- >Caption) $ m+ d2 n$ R; i. c3 t, \" M3 a/ c6 T
{ 
6 y$ i6 x" x3 {# D5 b6 c/ P* F qListView1- >Items- >Item[m]= ) ~9 s ~. d0 A5 m% p2 X- l% v
ListView1- >Items- >Item; 4 t% S6 C! I' D
ListView1- >Items- >Item= ' x# _6 i7 q/ p; f# {3 d% T
ListView1- >Items- >Item[j]; 
* f& i ^# u9 OListView1- >Items- >Item[j]= 
0 N+ n$ y4 n' C/ oListView1- >Items- >Item[m]; 
. @# U d' o! D2 H7 l! e} 8 R( j5 f/ n; J' T# b
} ' k5 y+ U& t* k1 ?0 K
else ; i1 Y+ o+ J; }) @ K
{ 
1 n- }, P. e# a% {6 p' aif(ListView1- >Items- >Item- >Caption< ; I7 ?( E. k+ g5 L1 }' D) H" s
ListView1- >Items- >Item[j]- >Caption) 
7 Y0 E1 b2 x' c{ 
. W) K( y/ Y$ _- i$ eListView1- >Items- >Item[m]= 
8 T: {- c; N, E* T |2 Z9 ^ListView1- >Items- >Item; 
: O( T$ ^' w5 o0 G! u/ X% ]; c! zListView1- >Items- >Item= 
0 X3 B" o( b: p* j ?0 i0 h/ T: MListView1- >Items- >Item[j]; 0 O7 Y2 R# @- e N) [0 v2 _" s
ListView1- >Items- >Item[j]= 
3 X# Y/ |, ?% Z% x" B! Y8 \ListView1- >Items- >Item[m]; $ w+ `. R1 Q8 c* k( K2 P
} : X: p) Z, [! b# I# x
} 
 s% y; ~# U2 |+ M4 BListView1- >Items- >Delete(m); 
+ \0 |. @) j! H) K0 \. breturn; * u8 M' i& h! b' n
} 
* X' V* T# t C ' }3 h* y) s1 q$ [' q
---- 点击其它列时，需要将所点击的列内容从ListView1- >Items- 
& I9 P6 @ _8 G$ k- \>Item- > SubItems- >Text中抽出,并参照其进行排序。子项目在存储中，形 ; {0 S1 f" f6 \( p
式为_子项目１\r\n子项目2\r\n子项目3\r\n...子项目N\r\n_。为抽取其中某一 : E- r" _1 v; w$ R6 A$ s& n' R% f/ X
子项目，需编写如下函数,并将其放于void __fastcall TForm1:: , ]% @1 m6 I1 C! A- `
ListView1ColumnClick前面即可。 , ^7 Q2 t3 i& N0 `
#include < vcl/dstring.h > & W0 l$ X$ k0 I: @0 L( Y# J, {3 F/ B
AnsiString __stdcall sg(AnsiString str,int n) 
+ l* P) U+ [- C1 d3 h, Z$ F/ u{ 
 b, ^7 q% G) r B% r4 W% Cint l,i; ; y- ^2 I- c5 Z& A
AnsiString qq(str); 
" L! x5 C2 N- C- M. K" _0 \6 T; vl=qq.Length(); 
 f& T. J1 b& i4 T+ H8 R- v eAnsiString p(str); 
# t+ P: v1 H" g- T: y' o% @. ^! pchar a[]="\r\n"; 
6 l" w( j4 t; Cint j=0,k=0; 
5 x8 {; c9 J) w, ]( Q7 J$ w% P+ jfor(j=1;j< l;j++) 3 y/ r3 E: f* ?* Z% K
{ 
8 i2 e& N q4 Z" ^2 f% f7 ?i=1; 
( X |9 \6 @/ G; hwhile(qq[j]!=a[0] && qq[j+1]!=a[1]) 
7 C" P% j! v$ ?" _& X! ?6 Y( R{ 
: T. ]6 p8 a8 Q3 y2 B& Yp[i++]=qq[j]; ) O& q4 W' N2 a( ]0 M3 m5 M3 C! X
j++; 
+ h1 z4 i. n& |/ K# @" B. ]} 
- l, S" e, R* I" Z2 c8 P7 t) Sk++; , R: ^( p/ B& c' y6 D F$ e7 E3 o
if((k-1)==n) 
/ T# K" y( I0 {* `; Ybreak; ! d! ^4 B' h6 T8 f2 A
} 
2 Q+ a7 l6 K ?3 |, J8 T, u2 T% _p=NULL; 2 a4 Y+ h6 d5 w: g$ U1 Z1 q8 p0 d
return (p); 
0 m4 g3 Y9 q0 W' }: ^} 
3 @- k% G% `9 B$ r 
% f, t1 v2 }; G. T---- 有了此函数以后，只需将上面的ListView1- >Items- >Item- 
7 p, r% M/ ~% x>Caption更换为sg(ListView1- >Items- >Item- >SubItems- >Text,n-1)即 
5 V. r0 I( N" q. I3 f: [% D可完成对此项目的点击排序功能。 
0 t) g* J' o5 S8 g, Ufor(i=0;i< m-1;i++) 
( ?: f3 n8 |, `# s, m! ^4 t0 O5 U9 `for(j=i+1;j< m;j++) 
- b6 ~8 {$ T7 \( yif(od) 9 a6 D8 t0 j- J* @ o+ v' F* e* ~
{ 
1 w+ z4 W8 v9 W Lif(sg(ListView1- >Items- > & q D1 R4 N l
Item- >SubItems- >Text,n-1) > 
% V0 l, Z9 c) `5 @, jsg(ListView1- >Items- > 
0 U1 G. q% H8 r/ I7 IItem[j]- >SubItems- >Text,n-1)) ( p0 I3 W2 |. n- P p6 c: C1 t

3 v+ t; H9 r0 |( n5 a// ...以下从略 
 c4 `6 }4 x+ A9 v/ m& t. ] ( ^" u3 l* W9 o# L- G
最后，删除临时的交换项目。 & p6 g1 m' O1 T$ s
ListView1- >Items- >Delete(m); 
; Y) W& A' Z- z" n " l O! s2 }; j. D, T% c9 X
---- 编译运行程序后，即会看到我们预期的结果。另外,本程序是按照字符串方 
& d2 |0 i8 f; n, b- b* d0 x式进行排序的,如果需要按照数字或其它方式排序,只需进行相应的类型转换即可 & b4 c( B5 ^+ \0 u6 j) j0 K