查看: 8972|回复: 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# m+ Q# E- K9 g. ~; ?9 w+ [
>Caption进行，与其它列不同，所以要单独进行排序。 
3 C+ H/ d7 B* u4 Vif (n==0) * I6 A# K" i/ ]5 R$ h, h }, j
{ 
2 U0 q, H: c- p; l) bfor(i=0;i< m-1;i++) 
: C' \# j9 D2 [+ d4 r4 s/ _' Xfor(j=i+1;j< m;j++) 7 b- H0 e# G$ ]* c
if(od) 
$ x; m$ |/ s/ z* L( ?2 s{ 
 T7 I* N7 S+ }* m: d: Nif(ListView1- >Items- >Item- >Caption > # d' }) W0 b' X: ?) F
ListView1- >Items- >Item[j]- >Caption) 
& y2 b% Y3 X7 n1 g, F2 K9 c{ 2 g4 T7 M( R# }/ k" P" s0 a
ListView1- >Items- >Item[m]= ! t9 T) P+ {2 L& n
ListView1- >Items- >Item; 
8 Z. t3 I7 ]8 e5 x% }1 UListView1- >Items- >Item= 
6 |' W1 J7 R9 @+ h' L$ T( t4 IListView1- >Items- >Item[j]; - [; b9 E& K7 H& ~9 h [' O
ListView1- >Items- >Item[j]= 
3 G* B: Z$ M0 ~3 n j: b' JListView1- >Items- >Item[m]; 
. d! J3 {4 q4 p/ J} 
: b- s7 v9 }- F% x6 E} % ?+ l: |+ U# y/ V2 b- Q
else 
; y3 o5 v3 h* R# y( P{ 
' Y. x# x6 G. u3 F. b7 \& @" Lif(ListView1- >Items- >Item- >Caption< 
# C" k0 p$ t! I& v- DListView1- >Items- >Item[j]- >Caption) 
+ H. S( @) V1 }4 n% o( G, [{ 
* `# p: n" l2 j# p/ y+ T1 \ListView1- >Items- >Item[m]= . f z# o2 \' @, h8 }3 Q1 B4 s$ q3 {
ListView1- >Items- >Item; 
2 s2 p V1 ?0 oListView1- >Items- >Item= " j g. X7 z' y5 j. `4 ^$ o6 ^
ListView1- >Items- >Item[j]; ' V' Q, i" J( Z6 u/ d3 I
ListView1- >Items- >Item[j]= 1 M/ x7 W" b9 u' H" f2 A
ListView1- >Items- >Item[m]; 
( u+ L7 W% `7 @/ ~, m} 
5 n6 k \+ Y+ a& O( V} 1 K; s6 v- N0 `6 r
ListView1- >Items- >Delete(m); " d2 y4 o4 t; S! `+ X9 w- \
return; 
: t" Q* ?& T5 e% u* G} 
! u4 V7 r q' t 
9 Q! D; N: |7 o---- 点击其它列时，需要将所点击的列内容从ListView1- >Items- " j5 f6 B% e, ~ B& {
>Item- > SubItems- >Text中抽出,并参照其进行排序。子项目在存储中，形 5 {9 P3 W; s4 a* \# S" N
式为_子项目１\r\n子项目2\r\n子项目3\r\n...子项目N\r\n_。为抽取其中某一 
$ p4 X- R) f' |/ Y0 b& c子项目，需编写如下函数,并将其放于void __fastcall TForm1:: 
6 J8 j9 C) ?9 r' O! QListView1ColumnClick前面即可。 / h9 C, L4 D J* {& w8 r' ^1 F& f
#include < vcl/dstring.h > ( J2 Y, C- _0 Q
AnsiString __stdcall sg(AnsiString str,int n) & Z; q" A9 I3 i7 W
{ $ [5 {4 _3 A- b* L* E4 O' e
int l,i; ! C$ p9 \7 ^0 e; [6 e% A
AnsiString qq(str); & Y2 {0 @9 {( `! O+ `
l=qq.Length(); 9 k+ V) I7 M, `
AnsiString p(str); * Z" X" `! F, y
char a[]="\r\n"; , ^6 Z4 N: Z% I0 f7 W+ I
int j=0,k=0; ' E5 v! z& c6 X* V$ @
for(j=1;j< l;j++) 
/ F$ y* w @# R5 A% z1 c0 t8 b3 @{ 8 t" r3 B; W) S9 F: I( |6 W
i=1; 
/ }( I! J4 r/ }+ ~, `$ Twhile(qq[j]!=a[0] && qq[j+1]!=a[1]) 
- k; Y6 Z0 \. S% q! C3 M6 J: J{ " _+ B5 A. R4 n2 X, ~) }
p[i++]=qq[j]; $ _6 |( C) D4 @) V. ]4 ]8 g9 R
j++; ( f/ _# x( h- a3 T4 K* q. z
} 
/ \, x# M+ ]1 t- _6 O; u4 J3 Sk++; 3 q$ [1 i1 Q& T* X# ?5 g
if((k-1)==n) 
( l$ u# d& b* s9 H6 F- u4 P# |( Ubreak; 
( d( T6 s, |" G* v5 J} 
: w+ j* J* a) I4 a* T# cp=NULL; 
3 W f+ c6 J! Freturn (p); 
& {+ }" N* ]5 r9 h} 
( Z3 N( g% x: W! Q2 v 
2 q# r. @4 _- B---- 有了此函数以后，只需将上面的ListView1- >Items- >Item- 
+ X2 f8 e" h5 R>Caption更换为sg(ListView1- >Items- >Item- >SubItems- >Text,n-1)即 
; h6 l5 P' b% j, n可完成对此项目的点击排序功能。 $ [( h# j) g: w- n# B
for(i=0;i< m-1;i++) : V9 L# m0 j$ B1 o% W' ~
for(j=i+1;j< m;j++) + E5 u+ M ^5 h; ~
if(od) , o) S; R+ Q/ I1 u
{ 
5 [& T4 l' E$ |0 ~7 e0 xif(sg(ListView1- >Items- > # D' n3 b; H @0 I* w
Item- >SubItems- >Text,n-1) > " g$ ^$ u1 ~: D
sg(ListView1- >Items- > 
0 d* v4 I! o1 {' |7 s R9 mItem[j]- >SubItems- >Text,n-1)) * j8 ` k- x% e7 O& R6 V

% l6 t! N+ O$ k$ v// ...以下从略 * E6 D; e7 g4 g! |. E
 
/ K$ g- G- s) ^最后，删除临时的交换项目。 ( |" {3 k4 ^8 w {
ListView1- >Items- >Delete(m); 
! ?; J9 a5 [9 A7 O 
( A5 X- B7 ^1 t' Z) J/ m---- 编译运行程序后，即会看到我们预期的结果。另外,本程序是按照字符串方 
: j, n: a- h/ `8 B) T5 x G式进行排序的,如果需要按照数字或其它方式排序,只需进行相应的类型转换即可 
5 j C. m O# s( P/ b1 l/ ?( i1 q