リストボックスへの表示を高速にする

■ リストボックスへの表示を高速にする

リストボックスへ項目を追加したり、項目を削除するときにリストボックスを表示していると、Windows に余分な処理が発生しかなり処理速度が遅くなります

処理を速く行うにはリストボックスの Visible を False にして作業を行うだけです

このテクニックはコンボボックスやグリッドなどにも使えます

下記のソースはリストボックスの MultiSelect プロパティを 0 - なし以外にして実行してください

Dim w_idx             As Integer        ' インデックス

    ' リストボックスを非表示にする
    List1.Visible = False

    For w_idx = List1.ListCount - 1 To 0 Step - 1

        ' リストが選択されている場合削除する
        If List1.Selected(w_idx) = True Then 
            List1.RemoveItem w_idx
        End If

    Next w_idx

    ' リストボックスを表示する
    List1.Visible = True