リストビューのソート

リストビューのアイテムをLVM_SORTITEMSEXメッセージを使ってソートします。ちょくとさんのコールバック関数DLL「hscallbk.dll」が必要です。
リストビューのモジュールとしてもそこそこ利用できるかもしれません。

エクスプローラのように、「ヘッダ部分をクリックすると並び変わる」ようにもできるでしょう。（参考：http://hsp.tv/play/pforum.php?mode=pastwch&num=2749）


LVM_SORTITEMSEXメッセージの日本語情報は意外と少ないので、気が向いたら開発Wikiにフィードバックします。
// 参考資料：
//      リストビューを作成してみる
//          http://yokohama.cool.ne.jp/chokuto/urawaza/listview1.html
//      Windows32 API Constance 検索
//          http://hspnext.com/tool/hsptool04.htm
//      MSDN - LVM_SORTITEMSEX
//          http://msdn2.microsoft.com/ja-jp/library/bb761055(en-us).aspx
#module mod_listview
#include "hscallbk.as"
#uselib ""
#func sort_items "" int, int, int

#define LVM_SETITEM             $00001006
#define LVM_INSERTITEM          $00001007
#define LVM_INSERTCOLUMN        $0000101B
#define LVM_SORTITEMSEX         $00001051
#define LVM_GETITEMTEXTA        $0000102D
#define LVS_REPORT              $00000001
#define WS_EX_NOPARENTNOTIFY    $00000004
#define WS_VISIBLE              $10000000
#define WS_CHILD                $40000000

#deffunc make_listview
    if vartype(proc) != vartype("callback") : gosub *init
    winobj "SysListView32", "ListView", WS_EX_NOPARENTNOTIFY, WS_VISIBLE | WS_CHILD | LVS_REPORT, -1, -1
    return stat
*init
    setcallbk proc, sort_items, *sort_flag
    sdim name, 64, 2
    dim lvcolumn, 8
    dim lvitem, 6
    lvcolumn.0 = 0x000F
    lvcolumn.2 = 100
    lvitem.0 = 0x0001
    lvitem.6 = 64
    return

#deffunc add_column int id_list, str column_name, int index
    if(index < 0 | id_list < 0) {
        logmes "パラメータが不正です。"
        return -1
    }
    name = column_name
    lvcolumn.3 = varptr(name)
    sendmsg objinfo_hwnd(id_list), LVM_INSERTCOLUMN, index, varptr(lvcolumn)
    return stat

#deffunc add_item int id_list, array item, int index
    if(index < 0 | id_list < 0) {
        logmes "パラメータが不正です。"
        return -1
    }
    if vartype(item) != vartype("str") {
        logmes "配列変数の型が不正です。文字列型の変数を渡してください。"
        return -1
    }
    // アイテムの作成
    lvitem.1 = index
    lvitem.2 = 0
    lvitem.5 = varptr(item)
    sendmsg objinfo_hwnd(id_list), LVM_INSERTITEM, 0, varptr(lvitem)

    // サブアイテムの作成
    repeat length(item) - 1, 1
        lvitem.2 = cnt
        lvitem.5 = varptr(item(cnt))
        sendmsg objinfo_hwnd(id_list), LVM_SETITEM, 0, varptr(lvitem)
    loop
    return stat

#deffunc sort int id_list, int column, int vtype, int sortmode
    if(column < 0 | id_list < 0 | vtype < 0) {
        logmes "パラメータが不正です。"
        return -1
    }
    lvitem.2 = column
    var_type = vtype
    sendmsg objinfo_hwnd(id_list), LVM_SORTITEMSEX, sortmode, varptr(proc)
    return

#defcfunc local compareAsInt int id_list, int index1, int index2, int sortmode
    gosub *startCompare
    return int(name(sortmode & 1)) - int(name((sortmode & 1) ^ 1))

#defcfunc local compareAsStr int id_list, int index1, int index2, int sortmode
    gosub *startCompare
    return name(sortmode & 1) ! name((sortmode & 1) ^ 1)
    return

*startCompare
    lvitem.5 = varptr(name(0))
    sendmsg objinfo_hwnd(id_list), LVM_GETITEMTEXTA, index1, varptr(lvitem)
    lvitem.5 = varptr(name(1))
    sendmsg objinfo_hwnd(id_list), LVM_GETITEMTEXTA, index2, varptr(lvitem)
    return

// サブアイテム（ファイルサイズ）でソート
// 第3引数が0なら昇順、1なら降順
*sort_flag
    if var_type == vartype("int") {
        return compareAsInt@mod_listview(id_list, callbkarg(0), callbkarg(1), callbkarg(2))
    } else : if var_type == vartype("str") {
        return compareAsStr@mod_listview(id_list, callbkarg(0), callbkarg(1), callbkarg(2))
    }
    return 0

#global // end of mod_listview


// 疑似的な「ファイル」の数
#define NUM_FILES   10

    randomize
    gosub *createGuiObjects
    stop

// ボタンクリックによって呼び出されるサブルーチン
*sort_asc_by_name
    sort id_list, 0, vartype("str"), 0
    return
*sort_desc_by_name
    sort id_list, 0, vartype("str"), 1
    return
*sort_asc_by_size
    sort id_list, 1, vartype("int"), 0
    return
*sort_desc_by_size
    sort id_list, 1, vartype("int"), 1
    return

// ボタンとリストビューの作成
*createGuiObjects
    // ボタンを作成
    objsize ginfo_winx / 4, 32
    pos 0, 0 : button gosub "ファイル名で昇順にソート", *sort_asc_by_name
    pos ginfo_winx / 4, 0 : button gosub "ファイル名で降順にソート", *sort_desc_by_name
    pos ginfo_winx / 2, 0 : button gosub "ファイルサイズで昇順にソート", *sort_asc_by_size
    pos ginfo_winx * 3 / 4, 0 : button gosub "ファイルサイズで降順にソート", *sort_desc_by_size

    // リストビューコントロール作成
    pos 0, 32 : objsize ginfo_winx, ginfo_winy - 32
    make_listview : id_list = stat

    // カラムを追加
    column_name = "ファイル名", "ファイルサイズ"
    repeat 2
        add_column id_list, column_name(cnt), cnt
        if stat == -1 {
            dialog "カラムの追加に失敗", 1
            end
        }
    loop

    // アイテム・サブアイテムの追加
    sdim item_name, 64, 2
    repeat NUM_FILES
        item_name = "ファイル" + cnt, "" + rnd(1000) + " KB"
        add_item id_list, item_name, cnt
        if stat == -1 {
            dialog "アイテムの追加に失敗", 1
            end
        }
    loop
    return