リストビューに表示されている項目を全選択するには？ (ID:113860)

名前

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

本文 環境：Windows2000、VB6.0 SP5 リストビュー項目の複数選択については、 Private Sub cmdAllChoice_Click() '' 変数宣言 Dim lnglvIndex As Variant 'リストビューのIndex格納変数 '' 全て選択状態(True)にする For Each lnglvIndex In ListView1.ListItems lnglvIndex.Selected = True Next lnglvIndex '' リストビューにフォーカスを移す ListView1.SetFocus End Sub で解決しました。