リストビューで選択した項目を取得

リストビューで選択した項目を、メッセージボックスで表示する簡単なサンプルプログラムです。

リストビューの項目は単純にキーワードの一列だけだとします。

特定のキーワードをクリックすると、メッセージボックスで選択したキーワードを表示するようになっています。

Private Sub ListView1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListView1.Click
'ListView1をクリックするイベントが起こったら起動します

      Dim indexes As ListView.SelectedIndexCollection = ListView1.SelectedIndices
      'indexesをリストビューの選択された項目だと定義します。

       
      Dim Keyword As String = ""
      'Keywordを文字列型だと宣言します。

 

       For Each index In indexes
      '選択されてindexesでループします

 

            Keyword = BeforeSearchKeywordListVew.Items(CInt(index.ToString)).Text
            '選択した行の最初のテキストをKeywordにセットします。

 

            Messagebox(Keyword)
            'メッセージボックスに選択されたキーワードを表示します。

 
        Next

End Sub

もし、ListView1の定義が
ListVew1.MultiSelect = True
や、
プロパティーでMultiSelectを定義している場合

 

上記のFor eachで
複数行が選択されていれば、それらすべてがメッセージボックスで表示されます。