VB2008コントロール使用例：リストビューがダブルクリックされた項目を取得（DoubleClick）

リストビュー コントロールの使用例サンプルです

コントロールの使用例へ


■ボタンをクリックすると、リストビューにデータが追加されます。
取得したい行をダブルクリックします。
リストビューのフォーム

ダブルクリックした行データが表示されます。
列のデータ表示

■実行コード

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim i As Long

'再描画させない
ListView1.BeginUpdate()

'表示をDetailに
ListView1.View = View.Details
'クリア
ListView1.Columns.Clear()
'1列目
ListView1.Columns.Add("n*1", 50)
'2列目
ListView1.Columns.Add("n*10", 100)
'3列目
ListView1.Columns.Add("n*100", 150)

For i = 1 To 10
With ListView1.Items.Add(i).SubItems
.Add(i * 10)
.Add(i * 100)
End With
Next

'グリッドを表示
Me.ListView1.GridLines = True

Me.ListView1.EndUpdate()

End Sub

Private Sub ListView1_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles ListView1.DoubleClick
Dim vitem As New ListViewItem
Dim msg As String

'選択されていない場合
If ListView1.SelectedItems.Count = 0 Then
Beep()
Exit Sub
End If

'選択されれいる行をvitemに格納
vitem = ListView1.SelectedItems(0)

'選択されている行を取得する
msg = "1列目： " & vitem.Text & vbNewLine & _
"2列目： " & vitem.SubItems(1).Text & vbNewLine & _
"3列目： " & vitem.SubItems(2).Text

MessageBox.Show(msg)
End Sub

End Class

Visual Basic 2008 Express Edition実践入門