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

Question

こんばんは。
リストボックスでのマルチセレクトで選択した項目を削除する
方法で悩んでいます。
（リストボックスで３項目選択したとして、この３項目を削除する方法）

解答は現在勉強している本に掲載されているのですが意味が分からず。

解答のコードの方にはリストを後ろから削除しているみたいなのですが、
前から削除しても大丈夫だと思いやってみましたが、エラーが出てしまいます。

解説には、先頭から削除するとその時点でリストのインデックス値がずれて
しまう。と書いてあるのですが、後ろから削除しても一緒だと考えこんでいます。

解答コード
**********************************************************
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

hershe · Accepted Answer

こんにちわ。

コードの処理に沿って順番に説明しますね。
リストの内容はＡ～Ｅの５個あり、ＢとＤを選択した状態だとします。

*リストの内容**
１｜Ａ
２｜Ｂ　←選択
３｜Ｃ
４｜Ｄ　←選択
５｜Ｅ
**************

これを解答コードのように後ろから削除する場合、５から１まで繰り返し判定するわけですが、
１回目(５)：Ｅは選択されていませんので何もしません。
２回目(４)：Ｄが選択されているので削除します。

*リストの内容**
１｜Ａ
２｜Ｂ　←選択
３｜Ｃ
４｜Ｅ
**************

３回目(３)：Ｃは選択されていませんので何もしません。
４回目(２)：Ｂが選択されているので削除します。

*リストの内容**
１｜Ａ
２｜Ｃ
３｜Ｅ
**************

５回目(１)：Ａは選択されていませんので何もしません。
結果、以下のようなリストになり正常に動作します。

*リストの内容**
１｜Ａ
２｜Ｃ
３｜Ｅ
**************

同じ様に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 

************************************************************* 

長文なってしまい、申し訳無いです。参考になれれば幸いです。

BlueRay · Answer

BlueRayです。少しばかり追加解説です。

ダルマＡ
順｜○｜ 
１｜Ａ｜ 
２｜Ｂ｜ 
３｜Ｃ｜ 
４｜Ｄ｜ 
５｜Ｅ｜

リストの順番は、下から１，２，３，４，５です。
そして、ダルマが一番最後を表しています。

BlueRay · Answer

ダルマ落しで表現しますね。○をダルマでと思ってください(^^;

ダルマＡ　　ダルマＢ
順｜○｜　　順｜○｜
１｜Ａ｜　　５｜Ａ｜
２｜Ｂ｜　　４｜Ｂ｜
３｜Ｃ｜　　３｜Ｃ｜
４｜Ｄ｜　　２｜Ｄ｜
５｜Ｅ｜　　１｜Ｅ｜

解答コードがダルマＡで、mineral01さんのコードがダルマＢです。
順と書いてある通りに崩していきます。
では、参考までに１番目を崩してみましょう。
ダルマＡ　　ダルマＢ
順　　　　　順
１｜○｜　　５｜○｜
２｜Ｂ｜　　４｜Ａ｜
３｜Ｃ｜　　３｜Ｂ｜
４｜Ｄ｜　　２｜Ｃ｜
５｜Ｅ｜　　１｜Ｄ｜

次に２番目を崩してみましょう。
ダルマＡ　　ダルマＢ
順　　　　　順
１　　　　　５
２｜○｜　　４｜○｜
３｜Ｃ｜　　３｜Ａ｜
４｜Ｄ｜　　２｜Ｂ｜
５｜Ｅ｜　　１｜Ｄ｜

以下５番目まで崩して、ダルマを一番下に落とすことが出来るのはどちらですか。
明らかにダルマＡですね。ダルマＢは４回目で何も出来ないですね。

連続項目削除は、この様に最後までダルマを落とせる様にしなくてはいけないんです。

わかりにくかったら、補足してください。ではでは。

maruru01 · Answer

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

imogasi · Answer

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

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

こんにちわ。

BlueRayです。

ダルマ落しで表現しますね。

こんにちは。

下記の「繰り上がりがあるときの」ロジックを考えてみられては。

似たような質問が見つかりました

このQ&Aを見た人はこんなQ&Aも見ています

関連するカテゴリからQ&Aを探す

このQ&Aを見た人がよく見るQ&A

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング