あるフォルダに縦80ピクセル、横100ピクセルにリサイズされた4000枚の画像ファイルが置いてあります。これを読み込んでListViewコントロールに画像の一覧を表示します。
問題は時間がかかる事です。読み込み処理の時、最初の1000枚は約30秒かかるのですが、次の1000枚は約56秒、次の1000枚は約79秒、次の1000枚は約105秒かかります。だんだんと読み込み速度が遅くなってるようなのです。これを最初の読み込み速度を維持したまま全部読み込めば、約2分で全部読み込み終わります。
Imports System
Imports System.IO
Public Class Form1
Dim imgList As New ImageList
Dim sec As Double = 0
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim sw As New System.Diagnostics.Stopwatch()
sw.Start()
Dim oldsec As Integer = 0
For Each path As Object In Directory.GetFiles(Application.StartupPath & "\cache\", "*", SearchOption.TopDirectoryOnly)
Dim fs As FileStream = File.OpenRead(path)
imgList.Images.Add(Image.FromStream(fs, False, False))
ListView1.Items.Add(path, imgList.Images.Count)
If imgList.Images.Count = 1000 Then
Debug.WriteLine("1 sec = " & sw.Elapsed.TotalSeconds.ToString & " diff = " & Math.Abs(oldsec - Double.Parse(sw.Elapsed.TotalSeconds.ToString)))
oldsec = Double.Parse(sw.Elapsed.TotalSeconds.ToString)
ElseIf imgList.Images.Count = 2000 Then
Debug.WriteLine("2 sec = " & sw.Elapsed.TotalSeconds.ToString & " diff = " & Math.Abs(oldsec - Double.Parse(sw.Elapsed.TotalSeconds.ToString)))
oldsec = Double.Parse(sw.Elapsed.TotalSeconds.ToString)
ElseIf imgList.Images.Count = 3000 Then
Debug.WriteLine("3 sec = " & sw.Elapsed.TotalSeconds.ToString & " diff = " & Math.Abs(oldsec - Double.Parse(sw.Elapsed.TotalSeconds.ToString)))
oldsec = Double.Parse(sw.Elapsed.TotalSeconds.ToString)
ElseIf imgList.Images.Count = 4000 Then
Debug.WriteLine("4 sec = " & sw.Elapsed.TotalSeconds.ToString & " diff = " & Math.Abs(oldsec - Double.Parse(sw.Elapsed.TotalSeconds.ToString)))
oldsec = Double.Parse(sw.Elapsed.TotalSeconds.ToString)
End If
Next
sw.Stop()
End Sub
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
imgList.ImageSize = New Size(100, 80)
ListView1.LargeImageList = imgList
End Sub
出力ウィンドウに出力された文字列
1 sec = 31.8310536 diff = 31.8310804
2 sec = 88.7196354 diff = 56.7196397
3 sec = 168.8318207 diff = 79.831824
4 sec = 274.2561862 diff = 105.256191
どのようにすれば最初の読み込み速度を維持したまま全部読み込み終えるでしょうか?あるいはもっと早く読み込み終えられるでしょうか?
条件としては、ListViewの仮想モードを使わない、基本的にはマルチスレッドを使わない、です。