リストビューの複数選択について

解決

ところさん 2005-08-09 08:32:54 No: 91353

複数選択し選択した項目を表示するのはどうしたらいいのでしょうか？
検索してみてもリストボックスの複数選択の内容しかみつからず・・・。

For Each varItem In Me.ListView1.SelectedItem
Debug.Print varItem
Next

上記のコードではエラーになってしまいます。
ご教示いただけますようよろしくお願い致します。

ねろ 2005-08-09 17:11:55 No: 91354

こんなことですか。
'複数選択(取りあえず全部選択)
For i = 1 To ListView1.ListItems.Count
    ListView1.ListItems(i).Selected = True
Next

'選択行の書き出し
For i = 1 To ListView1.ListItems.Count
    If ListView1.ListItems(i).Selected = True Then
          Debug.Print ListView1.ListItems(i).Text
    End If
Next

ところさん 2005-08-13 01:37:30 No: 91355

For Eachではできないのですね。
ありがとうございました。

特攻隊長まるるう 2005-08-13 01:52:38 No: 91356

出来ないんじゃなくて１つも選択されてなかった時の
処理が考えられてないだけだと思う。
ちゃんとデバッグしてどういう状態の時にどこでエラーが
出てるか確認すれば分かる事です。