查看: 8940|回复: 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- ) k1 J: y. s2 w# F b
>Caption进行，与其它列不同，所以要单独进行排序。 5 h, n; v: @- W
if (n==0) 
 J; m# L7 X3 f% e& ]0 _1 e* G, f/ D{ 1 ~1 ]3 j: {& `
for(i=0;i< m-1;i++) 
7 }# |0 c5 Z2 f, @for(j=i+1;j< m;j++) 
% x/ H; Y4 J9 u9 Fif(od) . R' d3 N9 y) ]
{ 5 k9 d9 u& [ C, w" {4 M2 h
if(ListView1- >Items- >Item- >Caption > 9 S8 I- z. o* Y$ Y' n
ListView1- >Items- >Item[j]- >Caption) 5 @! m+ Q& d: }5 Q( e# ?3 \! P
{ 
' E- l6 U. z: _5 PListView1- >Items- >Item[m]= 
* s) g- A. n I* lListView1- >Items- >Item; 
3 r" x) u# ]3 TListView1- >Items- >Item= 
) Q3 \2 ?7 j: s2 m" f+ J# b8 L# r7 DListView1- >Items- >Item[j]; 
& C. a. Y! Y0 S. MListView1- >Items- >Item[j]= 7 }- d5 r" v" F
ListView1- >Items- >Item[m]; + Z, d0 i' ]) e v- X
} 
2 Z4 U, A) M/ k$ M} 
/ s2 L, @" t9 M5 E/ h( ]( z; B$ F5 welse 
% S% {& S+ k, Z( o- m{ 7 C3 X4 P3 F" d$ ?
if(ListView1- >Items- >Item- >Caption< & e- N9 I4 K# O9 ~- B% ~6 \
ListView1- >Items- >Item[j]- >Caption) 
8 c/ H$ A+ v, R; p6 S{ 5 S: y- u9 z/ f: @ W8 F* j
ListView1- >Items- >Item[m]= , t" Q U0 _, ^$ w" J; y* O2 i
ListView1- >Items- >Item; 
, p& K8 G* d; j: L3 Z, E u+ WListView1- >Items- >Item= - n4 p! y1 y# j
ListView1- >Items- >Item[j]; ' P- {- ]3 R# V$ T( ` X
ListView1- >Items- >Item[j]= 
' c* A1 i( w I1 e% h$ LListView1- >Items- >Item[m]; 1 ^' v) ]! h6 [3 \/ J* K! [
} 5 F+ N1 q% a; P
} 
! N; g: n9 x3 q9 K1 gListView1- >Items- >Delete(m); 
/ }+ ?+ k) S ?& N" Ureturn; ! ]+ X$ F: |: J @$ N
} 4 V, c' P# V% _- ^$ R/ I
 8 @5 U( h5 @$ b+ x" d4 m C- R
---- 点击其它列时，需要将所点击的列内容从ListView1- >Items- ( p# W& H' C; ]) c" p8 O) I
>Item- > SubItems- >Text中抽出,并参照其进行排序。子项目在存储中，形 
4 E5 W/ s- L' w0 Y1 F式为_子项目１\r\n子项目2\r\n子项目3\r\n...子项目N\r\n_。为抽取其中某一 
2 G5 w# [6 p1 ]( v/ D子项目，需编写如下函数,并将其放于void __fastcall TForm1:: 
! j6 s; Q. ^( V. {8 z+ sListView1ColumnClick前面即可。 
0 m& i( L/ ~) _7 A, e" ]) N#include < vcl/dstring.h > # [ {% N/ f; ?/ y+ ^( ^' S
AnsiString __stdcall sg(AnsiString str,int n) $ W. R7 l6 [. R/ T0 `" Q t
{ ' u( w7 z5 \! k& q# Q8 D: C
int l,i; 
' {3 p5 C: h/ q7 ~7 HAnsiString qq(str); 
, s5 }6 R2 E o6 b T+ R/ ~9 Al=qq.Length(); # ?6 q* i E [" Z) g9 `0 j
AnsiString p(str); 
) R, M$ h, L5 C( T# j+ P' Ychar a[]="\r\n"; 7 o# B9 u% _, o7 c( F/ m# m. c8 j
int j=0,k=0; 
) K9 R3 d% B- n$ Ofor(j=1;j< l;j++) 
9 |/ p5 [* U" J. R/ J# ~2 U& M{ 
2 a" [6 H L6 pi=1; 
" z& p& P; E2 ^( X8 ?% Mwhile(qq[j]!=a[0] && qq[j+1]!=a[1]) 2 W3 c, w* ]$ f7 l- r- k/ e
{ 
. k- v" S: _2 l& v5 _6 {( m5 mp[i++]=qq[j]; , y' n% y- p$ a
j++; 
& e; f; i, d+ n( C( c1 s} 
2 a. X$ J. O& i4 O4 i! }, s* a! hk++; 
0 c" h, ]7 R( m0 n8 {; Jif((k-1)==n) 
8 F% T2 x$ ~; e1 _! abreak; 
: i& H0 t D9 |} ; ~( E5 a/ T5 S1 ?' U
p=NULL; 
9 ]. N7 a' v6 W D& J/ Mreturn (p); 
/ r+ R8 k. ?, Z} 4 h2 j5 F" \% J8 l/ c2 W
 
8 V# \6 N: H/ t U) h6 p5 D! c---- 有了此函数以后，只需将上面的ListView1- >Items- >Item- 
: Z: ^5 }$ h# a; Q# w8 ^, o& G# Z. @>Caption更换为sg(ListView1- >Items- >Item- >SubItems- >Text,n-1)即 ' `- h( ~3 U+ ] L* `
可完成对此项目的点击排序功能。 
& @' m6 ]% l/ j& s; r w3 K0 x) [: afor(i=0;i< m-1;i++) 8 N2 |) O' h+ j+ j/ k. }4 q
for(j=i+1;j< m;j++) + K- l1 q4 ]3 I" N% i4 h
if(od) 
1 v; X2 d9 X d: d0 n* G: S2 ]# A{ : e( `, P- o0 h5 `; U) y+ @$ }
if(sg(ListView1- >Items- > 9 c$ d% p7 M7 J: Y9 i
Item- >SubItems- >Text,n-1) > 
! Q2 f! U5 D/ }$ a3 A, jsg(ListView1- >Items- > % l, v- w) j' r. q% E8 W
Item[j]- >SubItems- >Text,n-1)) . n/ o5 m! O! e# ^: ^
, ~5 @+ ~1 O' v9 l8 x
// ...以下从略 : _8 L$ k; Q1 B
 
8 p2 C. Q6 \0 w0 C9 ]: t最后，删除临时的交换项目。 . Z7 M( q# ] h% D t
ListView1- >Items- >Delete(m); 
! [1 r2 _! y; B( e 
5 `" D5 [3 h9 a---- 编译运行程序后，即会看到我们预期的结果。另外,本程序是按照字符串方 2 T5 p" G$ }6 ?! O$ X
式进行排序的,如果需要按照数字或其它方式排序,只需进行相应的类型转换即可 T3 \# H+ I3 O4 y