数学建模社区-数学中国

标题: 在C++Builder中实现ListView的列标头点击排序功能 [打印本页]

作者: 韩冰 时间: 2005-1-26 12:28
标题: 在C++Builder中实现ListView的列标头点击排序功能
<

> 
<

>天津大学电子与信息工程学院 
<

>宋天宁 
<

>---- 列表框控件在应用程序中的使用率很高，在Ｗｉｎｄｏｗｓ中经常见到， 
<

>它有四种常见的式样，分别具有显示大图标,小目标，含有图标的多列列表，含 
<

>有列标头的列表。我们也经常见到一些扩展功能，例如我们在资源管理器中的文 
<

>件列表框中，在选用详细资料察看时，用鼠标单击列标头,如大小，则所列文件 
<

>按大小排序;单机日期，则按文件日期进行排序.这一功能增强了应用程序的可用 
<

>性，使操作更直观、方便。笔者在以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- 
% J( @/ h% w) c6 s. R/ h>Caption进行，与其它列不同，所以要单独进行排序。 + s( H$ ^& k4 B6 n# ?
if (n==0) 
% c: F5 A$ ~+ j) q* ?{ 
; y2 N. `; V/ P& Qfor(i=0;i< m-1;i++) / \7 Y# o4 ~/ }
for(j=i+1;j< m;j++) 
3 N' Y1 ~/ J: v/ P6 T9 lif(od) 
{ 
( I+ P! D( H( y3 U6 mif(ListView1- >Items- >Item- >Caption > 
/ D& D+ Y# V6 Z; eListView1- >Items- >Item[j]- >Caption) W7 T; M; t' X& m0 d& C0 d8 k$ o
{ 3 a1 c6 |; y* ^ i9 x$ a5 m
ListView1- >Items- >Item[m]= 
& [1 ?* E1 |9 o- ]5 J: zListView1- >Items- >Item; 
; i4 H4 D T T+ v7 sListView1- >Items- >Item= 
$ d n( Q# C( ~; Z5 g% JListView1- >Items- >Item[j]; 2 o' Z0 o6 [. e$ Z7 u0 N
ListView1- >Items- >Item[j]= 
- X8 J0 V" ?3 p/ ?' SListView1- >Items- >Item[m]; 
$ [( a: g- q- `} 
3 Y5 U" h6 H* Q3 I8 G/ R} ) Z; r: t" Q7 F( M' k# p& l
else 
( m! N3 M6 z j. F% w! H5 x{ 0 m1 f- S' `! z; p6 b" ^; X+ B6 r
if(ListView1- >Items- >Item- >Caption< 8 |+ V3 H' b: Z; u+ ?
ListView1- >Items- >Item[j]- >Caption) 
/ |/ B) \1 r( ~- M; D( f/ v{ : F+ t/ {; v; h" f/ Q; A
ListView1- >Items- >Item[m]= / e; ~$ |4 P' Z. i# p
ListView1- >Items- >Item; 
4 }5 ^( k3 x8 l+ \9 D' UListView1- >Items- >Item= 
" [5 Q( _% g- o( c; `/ n7 ?ListView1- >Items- >Item[j]; 
" F2 _7 p/ u$ i" S, B; m. G1 f' ^* aListView1- >Items- >Item[j]= 
6 c! b; S% x5 o: _. jListView1- >Items- >Item[m]; 
& t" F" o9 z7 E} 
3 l$ ?- f% U- j# S} - G7 q7 @& I* J. D+ ^
ListView1- >Items- >Delete(m); 
 V0 L& A: \) j( }9 \return; 
' l& o, s) O. V4 o} 
2 w/ L, P) }# y! O3 i; u 
---- 点击其它列时，需要将所点击的列内容从ListView1- >Items- / t% }5 d3 |( o% z' ^( b
>Item- > SubItems- >Text中抽出,并参照其进行排序。子项目在存储中，形 
( u9 y- h( |9 ~% B8 Z! x" k式为_子项目１\r\n子项目2\r\n子项目3\r\n...子项目N\r\n_。为抽取其中某一 - \5 G) ?6 u% i! B( T" R$ Y
子项目，需编写如下函数,并将其放于void __fastcall TForm1:: 
. B6 n) \7 a8 f, s, V( \. SListView1ColumnClick前面即可。 - F# C5 Z8 A0 o$ K! `
#include < vcl/dstring.h > 
% `8 Q- r& y4 \, n g( q% wAnsiString __stdcall sg(AnsiString str,int n) 1 B. F r3 I6 D1 f6 u
{ % X4 P% q' j- |5 ~" g+ ^2 k, g9 A
int l,i; 
& ~2 x5 V9 R C. l- aAnsiString qq(str); * |- b- q$ a6 F. p, h2 L9 L1 A# e
l=qq.Length(); 
0 r0 A8 K% L! V0 b- w, }" IAnsiString p(str); 
7 W% x" {) q( r) B# G8 P& K; Xchar a[]="\r\n"; 
9 ~* M0 @& g) ]$ m; w! L ^int j=0,k=0; + x" e4 L$ j1 y7 x
for(j=1;j< l;j++) 
, g1 x) W, s( V2 s/ O( u, `4 }9 _{ 9 _4 Y& c) N3 E$ [, w' p
i=1; 9 e0 [! R) Y" f9 ]5 l( X7 l
while(qq[j]!=a[0] && qq[j+1]!=a[1]) . a5 s1 F' j2 G- v
{ ! p8 [* O s" U7 i
p[i++]=qq[j]; 
2 g' h' u/ ?2 f# D, S9 O0 oj++; 
! m+ Q4 k3 ^& B* t* k+ g} 0 C* a7 k* K2 e& a* z" Y+ {. I
k++; & G# N4 X! n! k. B/ ` |0 B
if((k-1)==n) 2 o) F2 ^& X" \. L6 U$ X9 k& c
break; 3 j4 j4 s3 T) ^
} + G9 ]& @$ n1 N5 a) H
p=NULL; ' K J0 T6 J# w
return (p); ' Q5 E, U8 V5 B6 ~7 m3 V
} 4 T9 O6 d4 }4 t" w0 t- l
 1 v+ W% p3 |. B# M, ?3 P' \; u
---- 有了此函数以后，只需将上面的ListView1- >Items- >Item- 
& A& J9 r2 {* D( ]" G>Caption更换为sg(ListView1- >Items- >Item- >SubItems- >Text,n-1)即 - k/ ~/ B% ?$ }
可完成对此项目的点击排序功能。 
/ ]% J7 l, ?, u4 I* Z. i& ]for(i=0;i< m-1;i++) 
- R0 G1 o$ [* gfor(j=i+1;j< m;j++) 
% v7 O4 b9 x! g) K1 jif(od) 
" ~; O" g$ q4 s1 p# r: K{ & a: O, R6 c2 S
if(sg(ListView1- >Items- > 
4 Z3 h- n* y1 |) l5 c- j$ A5 eItem- >SubItems- >Text,n-1) > 
" `1 @, Q% D9 ]; tsg(ListView1- >Items- > 6 J M! P* g# ^% H S) {: T
Item[j]- >SubItems- >Text,n-1)) 
3 T1 Q1 T% o6 ]! k
3 y5 }$ ?& T( T$ i// ...以下从略 , r4 _8 E. `: i& m1 w# Q: U
 
) n4 f4 |: j5 X2 M6 H% L# R最后，删除临时的交换项目。 
 X' B* P& M0 V8 F$ }8 N" H3 N1 iListView1- >Items- >Delete(m); 
4 W/ t3 O- U' e4 X7 ? 0 n) t' s& D! O5 v- w
---- 编译运行程序后，即会看到我们预期的结果。另外,本程序是按照字符串方 # X; D$ ?" b1 k. E# r0 Y1 d/ t
式进行排序的,如果需要按照数字或其它方式排序,只需进行相应的类型转换即可 
7 ?" X0 V2 s: S+ O3 S( U6 X$ d 

欢迎光临数学建模社区-数学中国 (http://www.madio.net/) Powered by Discuz! X2.5