ListVieｗで選択されている項目番号を取得するには (ID:110073)

名前

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

本文

'一応書いたので参考にしてもらえれば嬉しいです。

' ポイント１:文頭に Option Explicit On 宣言をしファイル内のすべての変数を明示的に宣言するクセをつけましょう。
    ' ポイント２:キャストしなくても .NET が適当に変換してくれますが、変数は明示的にキャストするクセをつけましょう。
    ' ポイント３:プロパティ名にも意味があります。ListView は Item を加えて ListView.Items(i).Text を表示します。
    '         ListView.Items の最後に複数形の s がついてるのは ListView.Items が Item を複数抱え込んだコレクション
    '         だからです。ListView.SelectedItems も同じで選択行を全て抱え込んだコレクションです。デバッグ時に内容を
    '         知りたい場合はウォッチ式を追加し、ツリーを展開してください。
    Private Sub ListView_SelectedIndexChanged(ByVal sender As System.Object, _
                                              ByVal e As System.EventArgs) _
                                              Handles ListView.SelectedIndexChanged
        Dim SelectNoTxt As String
        Dim i As Integer

With Me.ListView
            ' ListView に Item(項目) が１つもない場合処理しない。
            If .Items.Count = 0 Then Exit Sub
            ' ListView で SelectedItem(選択された項目) が１つもない場合
            ' (１行も選択されていない場合)選択行についての処理を飛ばします。
            With .SelectedItems
                If .Count <> 0 Then
                    For i = 0 To .Count - 1
                        ' カウントが０始まりか１始まりか？そして終了条件は極めて重要です。
                        ' 配列などを扱う時や、エクセルのセル選択など…つねに意識しましょう。
                        '''SelectNoTxt = SelectNoTxt & CStr(Me.ListView.SelectedItems(i).Index + 1) & ", "
                        ' 上のように書けますが、With を使ってますので下のように書き直します。
                        ' SelectedItems も Item のコレクションなので以下のように書けます。
                        SelectNoTxt = SelectNoTxt & CStr(.Item(i).Index + 1) & ", "
                    Next i
                End If
            End With

' この時点で SelectNoTxt の長さが０の場合、行は選択されていません。
            ' If 文の条件は SelectNoTxt = "" としても同じです。
            ' SelectNoTxt の明示的な初期化(SelectNoTxt = "")は行っていませんが、SelectNoTxt の
            ' スコープは関数内のみ有効なので、関数を抜けると破棄されます。(再び関数が呼ばれた時に
            ' "" で初期化されます)
            If Len(SelectNoTxt) = 0 Then
                ' 行が選択されていない状態は、ユーザが ListView の微妙な位置を選択した場合や、
                ' Esc キーを押下した時(今回は ListView_KeyPress イベントで意図的に定義)に起こります。
                SelectNoTxt = "行は選択されていません。"
            Else
                SelectNoTxt = SelectNoTxt & "行を選択しましたね？(‾ー‾)。"
            End If

' TextBox1 に表示
            TextBox1.Text = SelectNoTxt
        End With
    End Sub

Private Sub Form1_Load(ByVal sender As System.Object, _
                           ByVal e As System.EventArgs) _
                           Handles MyBase.Load
        ' 初期化処理
        InitForm()
    End Sub

' 初期化処理
    Private Sub InitForm()
        ' i,j,m,n などは通常、カウンタとして使われます。
        ' 何の説明もなくても使用されている場所を見てカウンタなら
        ' Dim i, j, m, n As Integer と宣言しましょう。
        Dim i As Integer

' ListView のプロパティを設定([デザイン]画面で設定しても同じです)
        With Me.ListView
            .Columns.Clear()        ' カラムの初期化
            .Items.Clear()          ' Item の初期化
            .Columns.Add("名称", .Width - 5, HorizontalAlignment.Left) ' カラムの設定
            .HeaderStyle = ColumnHeaderStyle.Nonclickable ' カラムはボタン状でない表示
            .MultiSelect = True     ' 複数行選択可(Ctrl[or Shift]キーを押したまま選択)
            .View = View.Details    ' 詳細表示
            For i = 1 To 7          ' テスト表示用 Item 追加
                .Items.Add("Test" & CStr(i))
            Next i
        End With

' ちょっとした初期化のテクニック(関数内で引数を利用してないのでエラーは起こらない)
        ListView_SelectedIndexChanged(Nothing, Nothing)
    End Sub

Private Sub ListView_KeyPress(ByVal sender As Object, _
                                  ByVal e As System.Windows.Forms.KeyPressEventArgs) _
                                  Handles ListView.KeyPress
        Dim i As Integer
        'Debug.WriteLine(CStr(Asc(e.KeyChar)))  ' キーの文字コードを簡単に出力する方法
        With Me.ListView
            Select Case e.KeyChar
                Case Chr(27) ' Esc キー押下で全ての行の選択解除
                    With Me.ListView
                        If .SelectedItems.Count = 0 Then Exit Sub
                        ' 何でカウンタを逆に回してるかは自分で色々変更して検証してください。
                        For i = .SelectedItems.Count - 1 To 0 Step -1
                            .Items(.SelectedItems(i).Index).Selected = False
                        Next i
                    End With
                Case Else
            End Select
        End With
    End Sub

←解決時は質問者本人がここをチェックしてください。

戻る