查看: 8947|回复: 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- 
; I9 f) {* ~3 M) t' k>Caption进行，与其它列不同，所以要单独进行排序。 ' Z0 R; ~1 @) w8 Q. X4 u ]
if (n==0) 
 g [) a* K+ O0 K{ " [0 H, w- X8 D# O6 l+ N# j6 J: C
for(i=0;i< m-1;i++) 8 m, ?3 I" z: H9 L. G
for(j=i+1;j< m;j++) 
# p/ c' c# Q5 @; yif(od) 7 p( o7 }$ B4 I- x; L3 g; I
{ ; z, u( O6 J* c) X6 z
if(ListView1- >Items- >Item- >Caption > 9 Z/ }% h9 P" V. z% ?# F0 ^7 ?9 m
ListView1- >Items- >Item[j]- >Caption) 
, j9 @- D- V0 ]4 d0 e# v. \, z{ % T3 I& X& \* a/ q" l& o- H
ListView1- >Items- >Item[m]= . c( Y! P% i, u/ C( Z! O2 a( |
ListView1- >Items- >Item; 8 R6 ?8 C( t# y7 t# Z& e7 d3 B5 S
ListView1- >Items- >Item= 
( \# W- N7 W! sListView1- >Items- >Item[j]; : ?" {' _/ u; T/ A: @5 i! b
ListView1- >Items- >Item[j]= # ]' E6 Q! D/ V- L3 A% B4 O% b) R* B3 `
ListView1- >Items- >Item[m]; 
5 a6 w, b0 ]) S3 b} 
0 p! }( t* \) _} ) I( \* o+ \6 n" Z4 a
else 
. g* A& r7 [0 i/ M: }3 c{ - h4 V8 q) i1 }, K; B" ^1 [
if(ListView1- >Items- >Item- >Caption< $ A! a% N7 {3 g4 {+ a. Z3 \
ListView1- >Items- >Item[j]- >Caption) 
( Y ~2 Q2 ]; @$ S$ r- I8 p{ ) C& a6 s3 V; d3 K1 W; }/ }/ B
ListView1- >Items- >Item[m]= 
. A% v6 a8 B) o3 b) |% B3 Q" T3 }ListView1- >Items- >Item; : {% o7 U! Z; O7 c3 F9 ^
ListView1- >Items- >Item= ( E# h" H+ ], R5 K1 `
ListView1- >Items- >Item[j]; 
( {9 V. L" t7 K% Q; S! q+ LListView1- >Items- >Item[j]= 
$ B# V& g; P2 O* O# r; @" dListView1- >Items- >Item[m]; 
 x: k) p$ w5 Z, Y$ m8 b a} & {; d9 W/ z- S5 C, X- R
} 
" M/ \) {, U8 D+ _4 d( NListView1- >Items- >Delete(m); 
; v% g9 V( z: D3 N4 A# Xreturn; 
& K: W/ p5 w3 Q6 E) E4 X* I} & j) f4 {3 S' E" }
 % z. f& N1 |, L+ Z# _. r1 E8 } V- z3 w
---- 点击其它列时，需要将所点击的列内容从ListView1- >Items- 
: H7 u: a P$ Q3 F, G2 x- _% {>Item- > SubItems- >Text中抽出,并参照其进行排序。子项目在存储中，形 8 v( u$ Z& _3 o8 I" p9 v+ j$ \
式为_子项目１\r\n子项目2\r\n子项目3\r\n...子项目N\r\n_。为抽取其中某一 
2 W2 ~8 Z8 W$ ]& |% e子项目，需编写如下函数,并将其放于void __fastcall TForm1:: ( k6 V3 N9 A. u) e# s
ListView1ColumnClick前面即可。 / Y3 h! p, u& M9 c3 [6 ^1 Y
#include < vcl/dstring.h > 7 W y5 d9 b6 q8 z/ C7 O
AnsiString __stdcall sg(AnsiString str,int n) 7 c4 c9 w( L' f6 C
{ : l: b6 C9 U! ~# o, W
int l,i; 6 G; B J# M* ^1 e; b
AnsiString qq(str); 1 Y3 ~, M, r0 w: M$ F- @
l=qq.Length(); : @% m f) r* N5 v2 l- U7 @
AnsiString p(str); 
( f$ Z t# R e. t* W+ bchar a[]="\r\n"; 
: A0 v/ g7 a$ J( C# \int j=0,k=0; ( z; S0 f* ]7 }9 O$ s" G* b0 K
for(j=1;j< l;j++) 6 j+ _+ u) i/ ^) ^9 @/ Y8 D
{ $ r: l) \9 H( G+ w C
i=1; 
0 ^* l' n1 D0 kwhile(qq[j]!=a[0] && qq[j+1]!=a[1]) 
( ]9 q1 j0 D( c2 Y3 U{ ; R1 Q" u" e0 Y3 y
p[i++]=qq[j]; 5 U( u* G4 O* m7 C+ K$ U: G
j++; 
, s3 n W- Y5 \9 m, p} + I% V5 @+ |( |9 s; Q& m2 c
k++; 1 ^2 D9 l% H9 l& s
if((k-1)==n) 
% ?+ V& ~1 r3 E0 Y3 l8 h) n& |% |break; 7 |! |$ `- p2 Q% ?6 J, V8 {9 s5 m1 F$ A0 P
} 
1 J/ F% B U* Q( Cp=NULL; ; r' {0 i0 ?2 d
return (p); 
7 `3 |. S+ Q& t; X; |; e& F} 
6 W8 C+ l$ T, t- t$ c- ?8 j; O) t 6 d' k, c1 y; \8 p
---- 有了此函数以后，只需将上面的ListView1- >Items- >Item- 
" E" s1 L' S) w( E>Caption更换为sg(ListView1- >Items- >Item- >SubItems- >Text,n-1)即 
8 {; q2 k7 W/ M) R, H2 e3 b可完成对此项目的点击排序功能。 2 K" t/ C" F/ M7 [. q6 H6 Y8 X' f
for(i=0;i< m-1;i++) 
- N. z! h' c0 W2 s$ \) I1 v* hfor(j=i+1;j< m;j++) 
; ~: Z6 c& T' y/ \! `+ |% qif(od) 
5 j5 s2 ]" X. G& Y$ z. W8 [2 b{ 
8 E j4 T0 G- A$ pif(sg(ListView1- >Items- > # q* i) [: b9 b# ]
Item- >SubItems- >Text,n-1) > 
1 Q s$ o( u0 z1 D; c- l/ Fsg(ListView1- >Items- > 
1 {6 X g' h. E$ N8 s) R# zItem[j]- >SubItems- >Text,n-1)) 9 C* D& c* |) |3 w% d9 V3 _
 A3 z- c5 b' C& ?- n: T+ H: e
// ...以下从略 5 t$ o& y8 O9 r( B- m+ X
 
# f7 F7 s+ m$ n% e7 \7 l7 p6 e# Y5 l最后，删除临时的交换项目。 9 L) }3 Z: y! p
ListView1- >Items- >Delete(m); 
% s$ u9 M2 |9 T 
& T) u& T @9 |; o---- 编译运行程序后，即会看到我们预期的结果。另外,本程序是按照字符串方 " j( D7 L3 m& j- d! E
式进行排序的,如果需要按照数字或其它方式排序,只需进行相应的类型转换即可 
: k7 c& r, d9 t4 M