VB.NET, C#, PowerShellを使用しているエンジニアのためのサイト。
基本的な使用方法から開発で役立つ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