６．リストビュー(ListView)の使用例

１．リストビュー(ListView)で表示を早くするには ２．　 ３．　 ４．　 ５．サンプル投稿用掲示板に掲載しているリストビュー(ListView)に関するサンプル ６．サンプル集に収録している未掲載のリストビュー(ListView)に関するサンプルの紹介

下記プログラムコードに関する補足・注意事項　 動作確認：Windows Vista・Windows 7 (32bit) / VB6.0(SP6) Option　：[Option Explicit] 参照設定：追加なし 使用 API：なし その他　：プロジェクト→コンポーネントで MicroSoft Windows Common Controls 6.0(SP6) (MSCOMCTL.OCX) にチェックを、 　　　　：入れ表示されたコントロール(ListView1)をフォームに貼り付けて下さい。

１．リストビュー(ListView)で表示を早くするには

Option Explicit Private Sub Form_Load() 　　With ListView1 　　　　.View = lvwReport 　　　　.ColumnHeaders.Clear 　　　　.ColumnHeaders.Add , , "A" 　　　　.ColumnHeaders.Add , , "B" 　　　　.ColumnHeaders.Add , , "C" 　　　　.ColumnHeaders.Add , , "D" 　　　　.ColumnHeaders.Add , , "E" 　　End With End Sub Private Sub Command1_Click() 　　Dim i As Long 　　Dim myListItem As ListItem 　　Dim sngTimer As Single 　　ListView1.ListItems.Clear 　　sngTimer = Timer 　　ListView1.Visible = False 　　For i = 0 To 49999 　　　　Set myListItem = ListView1.ListItems.Add(, , CStr(i)) 　　　　myListItem.SubItems(1) = "B" & CStr(i) 　　　　myListItem.SubItems(2) = "C" & CStr(i) 　　　　myListItem.SubItems(3) = "D" & CStr(i) 　　　　myListItem.SubItems(4) = "E" & CStr(i) 　　Next 　　ListView1.Visible = True 　　Debug.Print Format$(Timer - sngTimer, "#,0.00")　　 ' 1.54 秒 End Sub Private Sub Command2_Click() 　　Dim i As Long 　　Dim sngTimer As Single 　　ListView1.ListItems.Clear 　　sngTimer = Timer 　　With ListView1 　　　　.Visible = False 　　　　With .ListItems 　　　　　　For i = 0 To 49999 　　　　　　　　With .Add(, , CStr(i)) 　　　　　　　　　　'.SubItems(1) = "B" & CStr(i) 　　　　　　　　　　'.SubItems(2) = "C" & CStr(i) 　　　　　　　　　　'.SubItems(3) = "D" & CStr(i) 　　　　　　　　　　'.SubItems(4) = "E" & CStr(i) 　　　　　　　　　　With .ListSubItems '上記SubItemsより高速 　　　　　　　　　　　　.Add , , "B" & CStr(i) 　　　　　　　　　　　　.Add , , "C" & CStr(i) 　　　　　　　　　　　　.Add , , "D" & CStr(i) 　　　　　　　　　　　　.Add , , "E" & CStr(i) 　　　　　　　　　　End With 　　　　　　　　End With 　　　　　　Next 　　　　End With 　　　　.Visible = True 　　End With 　　Debug.Print Format$(Timer - sngTimer, "#,0.00")　　 ' 0.97 秒 End Sub これだけで、約1.6倍早くなる。

２．

３．

４．

５．サンプル投稿用掲示板に掲載しているリストビュー(ListView)に関するサンプル

ListView コントロールで日付を並べ替える方法(VB6.0) ListViewの表示を早くしたい(VB6.0) リストビューの列幅を文字列の長さに合せて自動設定(VB6.0) その他、VB6.0及びVB.NET用掲示板のログビューアで検索すると、249件 ヒットしますので一般的な事なら見つかるはずです。

６．サンプル集に収録している未掲載のリストビュー(ListView)に関するサンプルの紹介

ListViewを使ってエクスプローラー風にファイルを取得表示(371) 　指定フォルダー内の全ファイルを取得してListViewに表示、エクスプローラーと同様に日付順等のソートもできるようにしております。(その他 簡単なListViewの使用例) サンプル実行図 ListViewを使ってファイルの一覧をアイコン表示(431) 　ListViewを使ってファイルの一覧をアイコン表示、大きいアイコン・小さいアイコン・一覧表示・詳細表示の各表示設定でフォルダー内のファイルの一覧をアイコンを付けた形で表示 サンプル実行図

検索キーワード及びサンプルコードの別名(機能名)