２個のリストボックスの中身を比較して同じだったら消去するには？ (ID:140919)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 ＶＢ2005で２個のリストボックスから共通するテキストを削除するにはどうしたらいいのでしょうか？ Ａのリストボックス Ｂのリストボックス あいうえお たちつてと さしすせそ はひふへほ なにぬねの らりるれろ かきくけこ あいうえお まみむめも このように入力されているとします そしてＡのリストボックスから「あいうえお」を選択して削除すると Ｂのリストボックスからも「あいうえお」が削除されるようにしたいのですが 方法が分かりません ちなみに自分が今作ってエラーになってしまうプログラムは If ListBox1.Items.Count = 0 Then MessageBox.Show("クリップボードの中身がありません", "通知") ElseIf ListBox1.SelectedItem = Nothing Then MessageBox.Show("文章が選択されていません", "通知") Else Dim c As Integer = 0 While ListBox2.Items.Count <> 0 If ListBox1.SelectedItem = ListBox2.Items(c) Then ListBox2.Items.Remove(ListBox2.Items(c)) ListBox1.Items.Remove(ListBox1.SelectedItem) i -= 1 Else c += 1 End If End While End If End Sub このようになっています 自分がやっているつもりとしては ①Ａのリストボックス1の選択しているテキストとＢのリストボックスのｃ番目のテキストを比較 ②同じだったらＢのリストボックスのｃ番目のテキストとＡのリストボックスの選択されているテキストを削除 ③見つかったらiを-1 ④見つからなかったらｃを+1してＢのリストボックス2の中身を再度比較 iはテキストをコピーまたは切り取りした時にＡのテキストボックスにテキストを追加して+1しています Ａのリストボックスの要素数のつもりで使用しています これで実行するとリストボックスに追加したテキストが１個の場合は両方から削除されますが２個以上テキストを追加するとエラーでプログラムが停止してしまいます その際に If ListBox1.SelectedItem = ListBox2.Items(c) Then この部分でエラーが発生します エラー詳細は '2' の InvalidArgument=Value は 'index' に対して有効ではありません。 パラメータ名: index となります '2' の数字はリストボックスに追加したテキストの数によって変わります どうにもお手上げの状態なのでどなたか分かる方はお願いしますm(_ _)m