查看: 8990|回复: 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- . K' V! k% w( B( ?; w
>Caption进行，与其它列不同，所以要单独进行排序。 & u. R& x! P( ^! @( d# f2 ^( w
if (n==0) : A- B) U2 T# o# _5 e
{ 6 i t# H/ W3 p% i0 N$ t
for(i=0;i< m-1;i++) / T( O$ {' c2 T+ }3 j; Z3 W
for(j=i+1;j< m;j++) . A6 [9 z5 A J' ^
if(od) 
0 G- H* ~8 U2 p{ 7 O# W$ Y* F; h! b0 q9 e! U
if(ListView1- >Items- >Item- >Caption > + m& w9 p* R' P
ListView1- >Items- >Item[j]- >Caption) 3 h2 t; n( j7 B! U
{ 
0 a4 O* M# q+ P" @2 `3 s! yListView1- >Items- >Item[m]= 7 w7 R8 B- [. q7 S
ListView1- >Items- >Item; ( K6 r/ z/ b( ]% t J# }
ListView1- >Items- >Item= $ T& ?2 b8 t$ k& V
ListView1- >Items- >Item[j]; 
; g' h* R' }# b! MListView1- >Items- >Item[j]= / E1 d; n K- W. p# g# t; S; ^
ListView1- >Items- >Item[m]; 6 [: R2 e6 d2 Q, V
} 
3 M7 z2 }6 V8 o: B5 ?} # Q# N" j6 e6 ?/ S& Q1 L
else 
7 w0 R" ]/ @* j, D1 |{ . a. H' I/ Y" |
if(ListView1- >Items- >Item- >Caption< 9 c6 E$ q& B8 z2 O/ ` b
ListView1- >Items- >Item[j]- >Caption) 
; V8 ^9 H/ ^: u: j. c{ 
8 ^# G/ i$ F0 S) Z# F, k5 s3 |ListView1- >Items- >Item[m]= - V5 {# ^7 l: X1 G
ListView1- >Items- >Item; 
5 s, j, ?& @. ]& c ^ListView1- >Items- >Item= 
8 Q( o$ j$ q/ z" B/ l" U+ W$ A+ sListView1- >Items- >Item[j]; 6 e& c, j* \4 D- s
ListView1- >Items- >Item[j]= . p& m( j0 o8 Q$ V
ListView1- >Items- >Item[m]; I( z# d8 @( T( T
} 
3 f1 G2 J0 e: A! J. R$ b} 
- a- G2 ~% J F! Z3 ~" f5 i- H/ zListView1- >Items- >Delete(m); 5 j* C. |! T! g1 u( W5 g- s* P
return; d6 R" f5 d3 A& h0 E* X6 P
} : q4 s. o( `# p8 f Z8 G) k
 ( a, k0 K8 j9 J3 r C! k3 t# s
---- 点击其它列时，需要将所点击的列内容从ListView1- >Items- 
0 b; m% i9 X- O. {5 @, V' F>Item- > SubItems- >Text中抽出,并参照其进行排序。子项目在存储中，形 " G$ d( `. F+ F/ u6 G* ]3 h6 w
式为_子项目１\r\n子项目2\r\n子项目3\r\n...子项目N\r\n_。为抽取其中某一 3 P6 j+ Z, {7 S6 q4 }6 x* s9 C
子项目，需编写如下函数,并将其放于void __fastcall TForm1:: 
/ R0 E2 E9 n' A. J9 i$ ^ListView1ColumnClick前面即可。 5 t: z0 ?8 E( C
#include < vcl/dstring.h > 
9 H2 W0 k8 X0 S1 X3 VAnsiString __stdcall sg(AnsiString str,int n) 
0 h# u" a5 S8 c2 ^{ " `* h: }% Y) f8 n
int l,i; , j. h- `* @4 B) l& u
AnsiString qq(str); 
* q# b7 x8 ^9 f, H) x6 H4 D Wl=qq.Length(); 
- L7 h/ z0 U) l1 U% _AnsiString p(str); ; h5 h- ?0 _& z* y$ m4 Q; A- P5 D
char a[]="\r\n"; 
8 `6 F( k) y' Y+ s/ Sint j=0,k=0; 
, S/ ~8 ]1 R& Q( Y5 Yfor(j=1;j< l;j++) 
' c# l5 y' B7 D9 D+ ^* b{ 7 Q- z1 g1 b" r! w
i=1; 9 i" {3 ]7 \* @# a0 ]5 \1 \- T
while(qq[j]!=a[0] && qq[j+1]!=a[1]) 5 M6 N% S2 s# y- g: u
{ - C' O! t+ z' F( C9 d
p[i++]=qq[j]; 
6 O3 g8 S4 G& E. O% qj++; 5 T/ Z; K* H# O0 H
} . v; L& _0 G9 Z# l
k++; 4 i5 j- p. t! V6 U" k$ @3 Y/ R- y8 L
if((k-1)==n) 
/ H% C5 X- p+ J5 rbreak; 
# N5 Q# [4 [! j7 S- o} ' \0 d3 G6 P! U' V4 ?/ w* q) U% k
p=NULL; % h( r9 J, u# j% B
return (p); . k n2 [0 j& @2 m* ?
} / Q9 E1 D7 x+ ?; N) {. v# g3 R6 W
 4 J( X! i! Y0 @& t! U4 K0 {
---- 有了此函数以后，只需将上面的ListView1- >Items- >Item- 
4 R, S: U0 @& B) n# Q: N4 z( ?>Caption更换为sg(ListView1- >Items- >Item- >SubItems- >Text,n-1)即 ! p3 {" X- d8 X0 e3 P
可完成对此项目的点击排序功能。 
. J0 H. b5 a( ]! w4 L( m1 m( P1 Kfor(i=0;i< m-1;i++) 
3 A$ V/ }+ Q$ r' {$ x# pfor(j=i+1;j< m;j++) ! v7 t, `/ j4 O. z* J8 S
if(od) 
( [! Y' U1 v3 q* d+ y6 v; U{ 
% c7 K: X: H0 A7 A$ W1 iif(sg(ListView1- >Items- > ! n8 J, t" v+ R5 `1 D ?* N" J
Item- >SubItems- >Text,n-1) > 2 f T- r) _/ E( a* t- F
sg(ListView1- >Items- > ( H8 c- c2 @! H' \1 I
Item[j]- >SubItems- >Text,n-1)) + } z4 ?; y6 W0 @6 j& U
! x9 m9 ?7 j" @: i
// ...以下从略 
; @. @1 s; Q$ ?3 p s9 w5 z 
% \- P$ K- ^- u# z+ p6 s最后，删除临时的交换项目。 " N# U; X2 q8 i8 l! f) ~
ListView1- >Items- >Delete(m); 
6 V" G# t; Y/ _9 x; Q% @/ s# B8 Q$ v. o 
4 P; S( W7 U. h+ B---- 编译运行程序后，即会看到我们预期的结果。另外,本程序是按照字符串方 ) Y' D% }) c' P T
式进行排序的,如果需要按照数字或其它方式排序,只需进行相应的类型转换即可 
2 V: \1 o1 d4 K3 b% L