查看: 8942|回复: 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- 4 \/ S9 ]' r* v( C7 V* Z6 X
>Caption进行，与其它列不同，所以要单独进行排序。 
- r" _" E4 u( c R" s+ Aif (n==0) 3 K, Z5 k& q* ?" }
{ . G; Q4 h! o3 u1 F- ?2 `8 J6 V
for(i=0;i< m-1;i++) 
for(j=i+1;j< m;j++) 
* x, _3 W) q) q- g* M3 e" m7 e' ?& Yif(od) ! Q% r6 W2 k+ e6 T- [2 \; O
{ 
$ O6 W; Q% h9 Z4 Y: N% oif(ListView1- >Items- >Item- >Caption > 
0 i6 g/ i* t8 lListView1- >Items- >Item[j]- >Caption) 
4 U r! T! I" k) r{ 
( [' _/ W/ t1 {" e9 X2 ?0 qListView1- >Items- >Item[m]= 
* t4 b, X' e0 p( G; S9 F+ jListView1- >Items- >Item; $ R- p$ L+ B4 H
ListView1- >Items- >Item= 
: \7 w; g& G1 G; F' S; F3 HListView1- >Items- >Item[j]; 
; S& R/ R! ?. ~ListView1- >Items- >Item[j]= 
7 G% F0 } {" N8 x: [. FListView1- >Items- >Item[m]; ' e8 F; d# A. i, e( U% q+ d, P
} * T2 [1 H6 m3 h% L$ `: I, v: D
} & V' _) d' I: i( a; V) u
else 9 n6 m1 z% e0 X, \+ L' @/ z& P
{ * G! k9 j- x2 r1 J1 }
if(ListView1- >Items- >Item- >Caption< - {) r2 ?+ L0 h3 s, Z9 }' @
ListView1- >Items- >Item[j]- >Caption) 
( u5 A" a3 u N9 g9 {" ?{ 
# L8 K, b9 E6 ^ListView1- >Items- >Item[m]= 
* V3 v1 E" T5 _ ^ListView1- >Items- >Item; 5 n" {4 a4 O7 f3 ~2 X
ListView1- >Items- >Item= - Y+ g3 j: _( f/ t4 o1 {
ListView1- >Items- >Item[j]; 4 r6 m; D; U; _0 [' k
ListView1- >Items- >Item[j]= & K- h! J6 V3 b) B9 b5 f/ M! O: \
ListView1- >Items- >Item[m]; 
7 G/ i7 J' T; f) c0 l8 ?$ e p} 7 o: i/ H: `* |- M# V. f
} 
ListView1- >Items- >Delete(m); 
0 R/ ]" b3 H% xreturn; 
; @7 j/ T. \0 r: a} , T, U2 ^% l" x# f) z3 `
 
" {1 M* T- p2 t---- 点击其它列时，需要将所点击的列内容从ListView1- >Items- % e* X( z7 s% Z
>Item- > SubItems- >Text中抽出,并参照其进行排序。子项目在存储中，形 
# A8 @& H/ d3 d7 R% |/ w7 X- `6 I式为_子项目１\r\n子项目2\r\n子项目3\r\n...子项目N\r\n_。为抽取其中某一 
5 i2 m/ ^ \/ \, c# T子项目，需编写如下函数,并将其放于void __fastcall TForm1:: 7 \( v8 p: E/ c
ListView1ColumnClick前面即可。 1 O$ U8 V+ O) C6 A. Y/ e
#include < vcl/dstring.h > 
5 i3 y$ x( M7 uAnsiString __stdcall sg(AnsiString str,int n) 
) g3 k' E$ H1 v{ " l, m' V+ }5 ~
int l,i; y% N% u! d" |2 E7 j) R( p% h
AnsiString qq(str); 1 g' t/ q% _7 \. v2 V! i
l=qq.Length(); 6 q+ M# C7 k7 x8 ~
AnsiString p(str); 
2 Z; A" ~# m1 O% \- r7 G- a2 A( Wchar a[]="\r\n"; 5 \! Q9 p9 i; k9 a; {
int j=0,k=0; 
8 T! a* P+ B2 r8 Y. w5 h! gfor(j=1;j< l;j++) 
; G$ G! R$ N" \! R H( C- W6 K{ 
6 h6 n6 N- o: F6 ti=1; 
' y4 o, h! I: F' p' [, M) Pwhile(qq[j]!=a[0] && qq[j+1]!=a[1]) 9 a' f- P3 \' d$ a( d$ Z* }
{ , n0 [( l( ?7 R, Z
p[i++]=qq[j]; 
" N4 v7 o6 C Gj++; ; ]6 P5 ^( }- `& X) F
} 
9 v0 T/ P8 `& N8 P; `k++; 7 P4 }& T2 F9 U$ ~8 R5 b, n7 h
if((k-1)==n) % t6 o; n- z7 S) ^0 Q! Q$ Z
break; 
} 4 x: m+ R0 N" ^5 x0 n% E( u
p=NULL; , j1 u* G8 u2 w, g8 T- X
return (p); 
3 U. E7 v! f/ r& {8 {' \} 
. @0 s0 x: i: H 3 q; w, e4 r J% R E$ b" n5 Z
---- 有了此函数以后，只需将上面的ListView1- >Items- >Item- - |, b6 r5 E5 x: }1 P/ k j
>Caption更换为sg(ListView1- >Items- >Item- >SubItems- >Text,n-1)即 4 x/ j! O1 u, s( ?3 c+ ]- I8 X
可完成对此项目的点击排序功能。 & s4 x _* F9 T* h' k
for(i=0;i< m-1;i++) 9 n* B5 o9 ?& l" G. J# [
for(j=i+1;j< m;j++) 
- P' M' H" i9 d) ~if(od) 1 A( |6 q9 K; T2 P8 i! C+ f
{ 
6 d3 T, D) j D' C4 b9 Q' yif(sg(ListView1- >Items- > $ B8 }& _! d q. Q: O
Item- >SubItems- >Text,n-1) > 
( Q* ^- @. C I2 I, @: i+ G) ~sg(ListView1- >Items- > 
8 V2 z& ^$ N1 w2 `Item[j]- >SubItems- >Text,n-1)) ! D0 f# M: Q$ }% u0 W/ H

) Q% }: K" v H, K3 F// ...以下从略 , V3 `& F/ ?$ E4 K
 : i: T6 i$ ]1 ~3 i9 m z4 h
最后，删除临时的交换项目。 
9 P4 @; V# J1 R1 W) `% @ListView1- >Items- >Delete(m); ( V; S8 ]& K/ N3 a! U( H1 f
 
5 O! }1 r! D$ `( k' K---- 编译运行程序后，即会看到我们预期的结果。另外,本程序是按照字符串方 : y1 x9 [2 B9 i+ k9 g N- O2 v
式进行排序的,如果需要按照数字或其它方式排序,只需进行相应的类型转换即可 1 H+ R) O: A8 g- r: o# X2 Y4 k