ListViewコントロールの高速大量描画：BeginUpdateとEndUpdateを用いたチラつきのない明細画面の構築手法
数千件、あるいは数万件におよぶログやファイルリストをWindows Formsの `ListView` コントロールに流し込むとき、愚直に `Items.Add` をループさせればどうなるか。画面は激しく点滅（フリッカー）し、CPU使用率は跳ね上がり、ユーザーがスクロールしようものならフリーズしたかのような絶望的な待ち時間が訪れる。
VBAや旧来のVB6時代からデスクトップアプリケーションの性能問題に向き合ってきたエンジニアにとって、この「描画コストの呪縛」は永遠の課題だ。
今回は、VB.NET（Windows Forms）環境において、`BeginUpdate` と `EndUpdate`、さらにはWindows APIの直接制御やメモリのライフサイクル管理を駆使し、「チラつきゼロ、極限のスピード」で大量明細を描画するアーキテクチャを解説する。
—
なぜListViewは標準のままだと遅いのか？
`ListView`（内部的にはWin32のSysListView32コモンコントロール）は、1件アイテムが追加されるたびに、あるいはサブアイテムが設定されるたびに、ウィンドウの再描画メッセージ（`WM_PAINT`）やレイアウト計算を走らせようとする。
数千件のデータに対してこれをやると、OSとCLR（共通言語ランタイム）の間で無駄なコンテキストスイッチと描画処理が数千回発生する。これが「重い」「チラつく」の正体だ。
この無駄なオーバーヘッドを根絶する鍵が、描画のトランザクション化である。
—
核心：BeginUpdate と EndUpdate による描画の凍結
.NET Frameworkの `ListView`（および多くのWinFormsコレクションコントロール）には、`BeginUpdate` メソッドと `EndUpdate` メソッドが用意されている。
これは内部でWin32 APIの `WM_SETREDRAW` メッセージを操作し、「これから大量の変更を加えるので、その間は画面の再描画を一切行うな」という命令をWindowsに下す機能である。
実装パターン：高速バルクインサート
以下に、数万件のデータを一瞬で描画するための実践的なVB.NETコードを示す。メモリの無駄な再割り当てを防ぐための前処理も含めた、実務レベルのコードだ。
Imports System.Windows.Forms
Imports System.Collections.Generic
Public Class FormLogViewer
‘ 大量データを模擬する構造体
Public Structure LogRecord
Dim Timestamp As String
Dim Level As String
Dim Message As String
End Structure
”’
”’
Public Sub LoadLogsHighSpeed(ByVal rawData As List(Of LogRecord))
‘ 1. コントロール自体のレイアウトロジックを一時停止
ListView1.SuspendLayout()
‘ 2. 描画を完全に凍結（Win32 WM_SETREDRAW = False）
ListView1.BeginUpdate()
Try
‘ 3. クリア処理も描画停止状態で行う
ListView1.Items.Clear()
‘ 4. あらかじめ必要な容量分のメモリを確保し、配列（LUA等のオーバーヘッド回避）で一括追加
Dim items As New List(Of ListViewItem)(rawData.Count)
For Each rec As LogRecord In rawData
‘ メインアイテムの生成
Dim lvi As New ListViewItem(rec.Timestamp)
‘ サブアイテムの紐付け
lvi.SubItems.Add(rec.Level)
lvi.SubItems.Add(rec.Message)
items.Add(lvi)
Next
‘ 5. コレクションへの一括追加（AddRangeの利用）
‘ 1件ずつAddするよりも、内部配列の再割り当てコストが劇的に削減される
ListView1.Items.AddRange(items.ToArray())
Finally
‘ 6. 必ず例外タフに描画とレイアウトを再開させる
ListView1.EndUpdate()
ListView1.ResumeLayout()
End Try
End Sub
End Class
このコードの優位性
- `BeginUpdate` / `EndUpdate`: 描画の嵐を完全にシャットアウトし、最後の1回だけ再描画を行わせることで、レンダリングコストを $O(N)$ から $O(1)$ に押し下げる。
- `Items.AddRange` の活用: ループ内で `ListView1.Items.Add` を呼ぶと、内部配列の拡張が発生してメモリコピーが頻発する。`ToArray()` で固めた配列を一度に流し込むことで、GC（ガベージコレクション）への負荷を最小限に抑える。
- `Try…Finally` 構造: 万が一ループ内で例外が発生しても、描画が凍結されたままUIがフリーズするのを確実に防ぐ。
—
さらに踏み込む：Windows API 制御による極限の最適化
もしあなたが扱っているデータが「10万件」を超え、それでもなおミリ秒単位のレスポンスを求めるシニアエンジニアであるなら、標準の `ListView` の仮想モード（Virtual Mode）および、Win32 APIを直接叩くアプローチを視野に入れるべきだ。
VirtualMode（仮想モード）の活用
`ListView.VirtualMode = True` に設定すると、ListView自身はデータを保持しなくなる。代わりに `RetrieveVirtualItem` イベントが発生し、必要になった表示領域分のデータだけを動的に返す仕組みに変わる。
これにより、メモリ消費量は数万件あろうが数百万件あろうが常に一定（画面に映る分だけ）になり、初期ロード時間は文字通り「0秒」になる。
‘ 仮想モードを使用する場合の初期設定例
Private totalLogCount As Integer = 1000000 ‘ 100万件
Private logDatabase As List(Of LogRecord) ‘ 実際のデータソース
Private Sub InitializeVirtualListView()
ListView1.VirtualMode = True
ListView1.VirtualListSize = totalLogCount
End Sub
‘ 画面に表示が必要なインデックスを指定してデータ要求が来る
Private Sub ListView1_RetrieveVirtualItem(sender As Object, e As RetrieveVirtualItemEventArgs) Handles ListView1.RetrieveVirtualItem
‘ データベースやメモリ上のキャッシュからピンポイントで取得
Dim rec As LogRecord = logDatabase(e.ItemIndex)
Dim lvi As New ListViewItem(rec.Timestamp)
lvi.SubItems.Add(rec.Level)
lvi.SubItems.Add(rec.Message)
e.Item = lvi
End Sub
—
メモリ管理とオブジェクトのライフサイクルにおける注意点
レガシーなVBシステムから移行してきた開発者がやりがちなミスとして、`ListViewItem` や `ListViewItem.ListViewSubItem` を大量に生成・破棄する過程でのメモリリークやメモリフラグメンテーションがある。
1. マネージドヒープの圧迫:
数万個のオブジェクトを瞬時に生成すると、世代別ガベージコレクションのGen 0からGen 1へオブジェクトが急速に昇格し、Gen 2 GC（フルGC）を引き起こす原因になる。フルGCはUIスレッドを一時停止（ストップザワールド）させるため、アプリケーションがカクつく。
2. 対策:
データをクリアする際は、単に `Clear()` するだけでなく、古いアイテムが参照している文字列やリソースが速やかに解放されるよう配慮する。また、可能であればオブジェクトのプール化や、前述の `VirtualMode` によって「そもそもオブジェクトを大量生成しない」設計思想へシフトすることが、長期安定稼働するシステム構築の絶対条件となる。
—
チーフアーキテクトからの総括
GUIプログラミングにおいて、パフォーマンスとは「後からチューニングで何とかするおまけ」ではない。それはアーキテクチャそのものだ。
`BeginUpdate` と `EndUpdate` は、Windows Formsが持つ泥臭いWin32の歴史と直接対話するための最もエレガントなインターフェースの一つである。この基本を外さず、データ量に応じた適切な戦略（バルクインサートか、仮想モードか）を選択すること。それこそが、ユーザーにストレスを与えないプロフェッショナルな業務システムを作り上げる唯一の道である。
