リストボックスでの選択項目分削除について。

質問

こんばんは。
リストボックスでのマルチセレクトで選択した項目を削除する
方法で悩んでいます。
（リストボックスで３項目選択したとして、この３項目を削除する方法）

解答は現在勉強している本に掲載されているのですが意味が分からず。

解答のコードの方にはリストを後ろから削除しているみたいなのですが、
前から削除しても大丈夫だと思いやってみましたが、エラーが出てしまいます。

解説には、先頭から削除するとその時点でリストのインデックス値がずれて
しまう。と書いてあるのですが、後ろから削除しても一緒だと考えこんでいます。

解答コード
**********************************************************
Private Sub Command2_Click()
Dim i As Integer

'選択状態（Selected=true）の項目だけ削除
For i = List1.ListCount - 1 To 0 Step -1
If List1.Selected(i) = True Then
List1.RemoveItem i
End If
Next i

End Sub
*********************************************************

と言う解答コードを自分は、前から削除するように

自分なりのコード
*********************************************************
Private Sub Command2_Click()
Dim i As Integer

For i = 0 To listcount-1
If List1.Selected(i) = True Then
List1.RemoveItem i
End If
Next i

End Sub

*************************************************************
で作成してみましたが、やっぱりエラーが。

なぜ、前から削除するとエラーになってしまうのか、
もう少し具体的に教えてくれると助かります。

よろしくお願いします。m(__)m

回答No.5

hershe · ベストアンサー

こんにちわ。

コードの処理に沿って順番に説明しますね。
リストの内容はＡ～Ｅの５個あり、ＢとＤを選択した状態だとします。

*リストの内容**
１｜Ａ
２｜Ｂ　←選択
３｜Ｃ
４｜Ｄ　←選択
５｜Ｅ
**************

これを解答コードのように後ろから削除する場合、５から１まで繰り返し判定するわけですが、
１回目(５)：Ｅは選択されていませんので何もしません。
２回目(４)：Ｄが選択されているので削除します。

*リストの内容**
１｜Ａ
２｜Ｂ　←選択
３｜Ｃ
４｜Ｅ
**************

３回目(３)：Ｃは選択されていませんので何もしません。
４回目(２)：Ｂが選択されているので削除します。

*リストの内容**
１｜Ａ
２｜Ｃ
３｜Ｅ
**************

５回目(１)：Ａは選択されていませんので何もしません。
結果、以下のようなリストになり正常に動作します。

*リストの内容**
１｜Ａ
２｜Ｃ
３｜Ｅ
**************

同じ様にmineral01さんのコードのように前から削除する場合、
１回目(１)：Ａは選択されていませんので何もしません。
２回目(２)：Ｂが選択されているので削除します。

*リストの内容**
１｜Ａ
２｜Ｃ
３｜Ｄ　←選択
４｜Ｅ
**************

３回目(３)：Ｄが選択されているので削除します。
（この時点でインデックスがずれているためＣの判定が飛ばされてしまいます。）

*リストの内容**
１｜Ａ
２｜Ｃ
３｜Ｅ
**************

４回目(４)：４番目の要素が無いためエラーになります。
この段階ではもうリストの内容が３つしかないために、４番目の内容を取得しようとするとインデックスエラーとなってしまいます。

どうしても前から削除したい場合は、以下のコードで大丈夫だと思います。
mineral01さんのコードに追記してみました。
*********************************************************
Private Sub Command2_Click()
Dim i As Integer

For i = 0 To List1.listcount - 1
If List1.Selected(i) = True Then
List1.RemoveItem i
i = i - 1
End If
If i >= List1.ListCount - 1 Then
Exit For
End If
Next i

End Sub

*************************************************************

長文なってしまい、申し訳無いです。参考になれれば幸いです。

お礼

hersheさん、とても理解しやすい説明ありがとうございます。
おかげさまで理解できました。
リストを前から、判定してしまうと、
インデックス値（iの値）がずれてしまったために
判定処理が飛ばされてしまうんですね。

リストに最後の値がないにもかかわらず、リストの内容を取得しようとして
いるためにエラーが出ることがとても理解できました。

後ろから判定をすると全ての値を効率よく（インデックス値をずらすことなく）、
判定できるんですね。

また、前からの処理での削除方法ありがとうございます。
本当に勉強になりました。
iの値を引いてあげる点と、現時点でのインデックス値（iの値）を判定して
あげる処理がポイントだと分かりました。

本当に、分かりやすい説明ありがとうございました。m(__)m

回答No.4

BlueRay

BlueRayです。少しばかり追加解説です。

ダルマＡ
順｜○｜
１｜Ａ｜
２｜Ｂ｜
３｜Ｃ｜
４｜Ｄ｜
５｜Ｅ｜

リストの順番は、下から１，２，３，４，５です。
そして、ダルマが一番最後を表しています。

回答No.3

BlueRay

ダルマ落しで表現しますね。○をダルマでと思ってください(^^;

ダルマＡ　　ダルマＢ
順｜○｜　　順｜○｜
１｜Ａ｜　　５｜Ａ｜
２｜Ｂ｜　　４｜Ｂ｜
３｜Ｃ｜　　３｜Ｃ｜
４｜Ｄ｜　　２｜Ｄ｜
５｜Ｅ｜　　１｜Ｅ｜

解答コードがダルマＡで、mineral01さんのコードがダルマＢです。
順と書いてある通りに崩していきます。
では、参考までに１番目を崩してみましょう。
ダルマＡ　　ダルマＢ
順　　　　　順
１｜○｜　　５｜○｜
２｜Ｂ｜　　４｜Ａ｜
３｜Ｃ｜　　３｜Ｂ｜
４｜Ｄ｜　　２｜Ｃ｜
５｜Ｅ｜　　１｜Ｄ｜

次に２番目を崩してみましょう。
ダルマＡ　　ダルマＢ
順　　　　　順
１　　　　　５
２｜○｜　　４｜○｜
３｜Ｃ｜　　３｜Ａ｜
４｜Ｄ｜　　２｜Ｂ｜
５｜Ｅ｜　　１｜Ｄ｜

以下５番目まで崩して、ダルマを一番下に落とすことが出来るのはどちらですか。
明らかにダルマＡですね。ダルマＢは４回目で何も出来ないですね。

連続項目削除は、この様に最後までダルマを落とせる様にしなくてはいけないんです。

わかりにくかったら、補足してください。ではでは。

お礼

説明ありがとうございます。
皆様の説明で、理解するとことができました。
かなり悩んでいたので、本当に助かりました。
ありがとうございます。

回答No.2

maruru01

こんにちは。maruru01です。

リストを1つ削除すると、その度にそれより後ろ（Indexが大きいもの）のIndexが変更（1つずつ繰り上がる）されてしまうからです。
前（Indexの小さい方）から削除すると、後ろの削除対象のリストのIndexが変更（1つ繰り上がる）されるので、選択したものと別のものを削除したり、エラーになったりします。
後ろ（Indexの大きい方）から削除すれば、その後ろのIndexが変更されても構わないわけです。（削除対象が前（Indexが小さい方）にしかないので。）

では。

お礼

後ろから削除することによって、削除対象が小さい方にしかないので、
全て効率よく（index値をずれなくして）削除できるんですね。
また、後ろからだと比較したインデックスが変更されても大丈夫と言うことが
分かりました。

説明、本当にありがとうございました。m(__)m

回答No.1

imogasi

下記の「繰り上がりがあるときの」ロジックを考えてみられては。
下記（２）の下からの繰り上がりを考えに入れてないのでは。（下記でｄｅｌｅｔｅとかＡ（ｉ）としているのは仮想の表現で、リストの場合ＲｅｍｏｖｅＩｔｅｍです。セルの削除等の場合も念頭に入れているため）
５つアイテムがあったとして、
（１）後ろ（下と言いますか）から、３つ削除するときは、
上から５番目削除、次に上から４番目削除、次に上から３番目削除・・となります。ｉは５，４，３・・・です。
for i=5 to 3 step -1
a(i).delete
next　ｉ
（２）先（上と言いますか）から、３つ削除する時は、
まず上から１番目削除、「下から繰り上がってくるので」、２番が１番に繰り上がってくるので、次も１番を削除すればよい。次も同じ。
for i=1 to 3
a(1).delete
next i

お礼

説明ありがとうございました。
プログラミングの奥の深さを新ためて実感しました。
まだまだ、勉強不足です。

本当にありがとうございました。m(__)m