投稿日 | : 2003/04/13(Sun) 15:09 |
投稿者 | : のび |
Eメール | : |
URL | : |
タイトル | : リストビューの削除処理 |
DBの検索結果を表示する際にリストビューを使用しています。
リストビューのリストアイテムの削除処理が遅くて困ってます。
1万を超える処理では単純な追加・削除だけみても処理時間が圧倒的に違うようなので向いてないのかと
思っていますが、客からはリストビューでお願いと言われてるので変更もできません。
削除処理を少しでも速くする方法ってありませんか?
'-------------------
dim i as long
dim xListItems as ListItems
set xListItems=lvwTarget
'追加
lvwList.Visible = False
for i=0 to 10000
xListItems.Add ,,i
Next i
lvwList.Visible = True
'削除
lvwList.Visible = False
for i=0 to 10000
xListItems.Remove (1)
Next i
lvwList.Visible = True