リストビューのソートについて (ID:88892)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 >>strText1 = GetTextFromlParam(hwnd, lParam1, GetProp(hwnd, PROP_SORT_KEY)) >もしかして、APIでソートしてます? strText1,strText2にはリストビュー上に表示されている日付が入ってきます。 なのでソート自体はAPIでは行っていないと思うのですが。 すみません自分で作った訳ではないのです。 ソースをいただいたところです。 http://www.mitene.or.jp/~sugisita/api_comct.html 「リストアイテムを数値型、日付型でソートする」をいただきました。 ほとんどカスタマイズは行っていません。 昇順降順にする機能が動作しなかったので呼び出しの時に指定して 昇順降順を可能にしました。 以下は呼び出し時------- Private Sub 検索リスト_ColumnClick(ByVal ColumnHeader As MSComctlLib.ColumnHeader) Static TextSortOrder As String Static DateSortOrder As String Select Case ColumnHeader.Index Case 1 ' テキストでソート Select Case TextSortOrder Case "ASC" TextSortOrder = "DESC" Call ListView_SortItems(検索リスト, ColumnHeader.Index, lvwSortText, lvwSortDescending) Case Else TextSortOrder = "ASC" Call ListView_SortItems(検索リスト, ColumnHeader.Index, lvwSortText, lvwSortAscending) End Select DateSortOrder = "" Case 2 ' 日付でソート Select Case DateSortOrder Case "ASC" DateSortOrder = "DESC" Call ListView_SortItems(検索リスト, ColumnHeader.Index, lvwSortDate, lvwSortDescending) Case Else DateSortOrder = "ASC" Call ListView_SortItems(検索リスト, ColumnHeader.Index, lvwSortDate, lvwSortAscending) End Select TextSortOrder = "" End Select 検索リスト.Refresh End Sub どうか宜しくお願いします。