在用到Windows的資源管理器的時候，當我們需要按照文件的類型或名稱排序的時候只要用鼠標點擊一下相應(yīng)的標題欄，系統(tǒng)會按照升序或降序交替排序，這完全取決于用戶鼠標點擊的奇偶數(shù)。如此方便的操作何不用到我們的數(shù)據(jù)窗口中——實現(xiàn)按某列的動態(tài)排序。 d9H]cV2 /
{IFv|V
\MPp<N7
為了實現(xiàn)上述功能，程序首先需要用到一個全局變量（相對于PB來說可以用窗體變量），用它來控制連續(xù)兩次點擊之間的排序方向。因為字段的排序方向只有升序和降序兩種，所以我們可以用一個Boolean型。本例中是Boolean ib_flag。接著在數(shù)據(jù)窗口控件的Clicked事件中寫上如下代碼 \ew;h4 y
pnjLjwo
/*****************************程序代碼******************************/ v&:4 ZO_/
e#hdo3"
String ls_column, ls_sort } tYIB q
Wp!*7av
ls_column = this.GetObjectAtPointer（） // 得到鼠標按下位置的對象名 VRsH0DE
JJ?ye}-
ls_column = left（ls_column, len（ls_column） - 2） // 得到列標題名字 O,#5ke>HQ
.w`i k
if not Lower（right（ls_column, 2）） = "_t" then return X,#I<L{\{
3W1j m>w5
// 如果不是缺省的列標題，即以“_t”結(jié)尾或鼠標根本沒有點在列標題上則退出 w .U F[3k
$[[=>eG
ls_column = left（ls_column, len（ls_column） - 2） // 去掉列標題末尾的“_t”，得到有效的列標題名 SZ}{a
li^JFK>
// 進行升序和降序的切換 ym~D
?/[z*W3&
if ib_flag then m< x1 a"h
kF.5qt {Dc
ls_sort = ls_column + " A" // 升序 / PT0Ifi
54^qX(w
else 8U(9* SB
U *X NVf
ls_sort = ls_column + " D" // 降序 $ 8[ K9
hl cn <Ds
end if Qo)5P~h*-
>>y%HPK6
ib_flag = not ib_flag // 為下一次排序準備 &~70|NYvQ
sug A|\4
ls_sort = ls_sort H2+h em,<<
<~{|tdpf'
this.setsort（ls_sort） V>c=@pH
C*ap5cBo
this.sort（） PDaMU$Uj3
!d8m#Jr0
/*****************************結(jié)束******************************/ w[l ~jf=VA
oU ={c>22
U$fn(OuF_
'1"jY`
注：這里所敘述的數(shù)據(jù)窗口中列的動態(tài)排序是以系統(tǒng)默認的列標題名為前提，即在標題欄中列標題名字是以“_t”結(jié)尾。 |HXvX@d
|
