VB6.0用掲示板の過去のログ(No.2)−VBレスキュー(花ちゃん)
[記事リスト]
[新規投稿]
[新着記事]
[ワード検索]
[管理用]
| 投稿日 | ： 2005/06/20(Mon) 13:51 |
| 投稿者 | ： おじん |
| Ｅメール | ： |
| ＵＲＬ | ： |
| タイトル | ： ListViewで数値項目をソートしたい |
エクスプローラ風のファイル詳細リストを表示しようとしています。
LiswViewが面白そうだったので使ってみようとしたのですが、問題発生。
Sortedプロパディで、項目の内容が数値(例：ファイルサイズ）の場合
表示が左詰になり(当然）、実数値の順になりません。擬右詰にしようと
しましたが、方法がわからず（Alignmentがない）、下記のように試みた
のですが、やはり左詰になり、だめです。
ListViewを使い、数値項目を実数値の順にソートする方法をご教授くだ
さい。説明内容が伝わりましたら、よろしくお願いいたします。
Private Sub AddFileList(FN As String)
'ファイルを１つ追加
Dim LI As ListItem 'FN:ListBoxから取ったファイル名(パスなし)
'PT:ファイルのパス
'ファイル名
Set LI = ListView1.ListItems.Add(, , FN)
'サイズ
'こんなことやってみましたが、、、！！
' LI.SubItems(1) = Right(" " & CStr(FileLen(PT + FN)), 8)
LI.SubItems(1) = Format(FileLen(PT + FN), "#########0")
'これは、そのまんま！
' LI.SubItems(1) = CStr(FileLen(PT + FN))
End Sub
ListViewのプロパティの設定は、Sorted=True;SortKey=1としています。
- 関連一覧ツリー
（★ をクリックするとツリー全体を一括表示します）
- 返信フォーム
（この記事に返信する場合は下記フォームから投稿して下さい）