HIRO's.NET

VB.NET, C#, PowerShell Tipsサイト

 VB.NET, C#, PowerShellを使用しているエンジニアのためのサイト。

 基本的な使用方法から開発で役立つTipsまで幅広く取り扱っています。

HIRO's.NET RSSHIRO's.NET RSS


VB.NET 2005の開発でお困りのことはありませんか?
そんな悩みは当サイトで解決!!

HOME > VB.NET 2005 Tips > コントロール > ListView Tips メニュー

10.選択項目を取得する

UPDATE:2006/09/14 

<< 前のTips  次のTips >>

 

 選択項目を取得するには、SelectedItemsプロパティを使用します。

 
サンプル
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    '詳細表示にする
    ListView1.View = View.Details

    'ヘッダーを追加する(ヘッダー名、幅、アライメント)
    ListView1.Columns.Add("郵便番号", 100, HorizontalAlignment.Left)
    ListView1.Columns.Add("住所", 200, HorizontalAlignment.Left)
    ListView1.Columns.Add("氏名", 100, HorizontalAlignment.Left)

    Dim itemx1 As New ListViewItem
    Dim itemx2 As New ListViewItem

    'アイテムの作成
    itemx1.Text = "000-1234" 'アイテムの追加
    itemx1.SubItems.Add("東京都杉並区12-345") 'サブアイテムの追加
    itemx1.SubItems.Add("HIRO's.NET") 'サブアイテムの追加

    itemx2.Text = "111-5678" 'アイテムの追加
    itemx2.SubItems.Add("東京都杉並区67-890") 'サブアイテムの追加
    itemx2.SubItems.Add("HIRO's.NET BLOG") 'サブアイテムの追加

    'アイテムをリスビューに追加する
    ListView1.Items.Add(itemx1)
    ListView1.Items.Add(itemx2)
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    '項目が1つも選択されていない場合
    If ListView1.SelectedItems.Count = 0 Then
        '処理を抜ける
        Exit Sub
    End If

    Dim itemx As New ListViewItem

    '1番目に選択されれいるアイテムをitemxに格納
    itemx = ListView1.SelectedItems(0)

    '選択されているアイテムを取得する
    Dim msg As String
    msg = "郵便番号は " & itemx.Text & vbCrLf
    msg &= "住所は " & itemx.SubItems(1).Text & vbCrLf
    msg &= "氏名は " & itemx.SubItems(2).Text

    MessageBox.Show(msg)
End Sub