| ListView コントロールの基本的な操作方法色々(その１) (15個) (SNo.114) １．項目を表示する方法を設定 ２．ヘッダー部の追加 ３．ヘッダー部の幅(列幅)を設定 ４．ヘッダー部のテキストの配置を設定 ５．アイテムを追加 ６．サブアイテムを追加 ７．指定の項目を削除します ８．全てのアイテムを削除する ９．指定の列を削除します 10.すべて削除する 11.コレクション内の項目の行数を取得します 12.コレクション内の項目の列数を取得します 13.選択されているアイテム数を取得する 14.選択されている項目を取得する 15.１行全体を選択状態にする/解除する |
|
| 使用コントロール | Button1 ListView1 |
| その他条件 | WindowsXP(Vista) Visual Basic 2005(VB2008) |
|
１．項目を表示する方法を設定
２．ヘッダー部の追加 ３．ヘッダー部の幅(列幅)を設定 ４．ヘッダー部のテキストの配置を設定 ５．アイテムを追加 ６．サブアイテムを追加 Private Sub Button1_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button1.Click 'ListView にアイテムを追加する With ListView1 '項目を表示する方法を設定 '各項目に関する詳しい情報が各列に配置されます。(詳細表示） .View = View.Details 'ラベルが下に付いているフルサイズのアイコンとして表示されます(縮小表示) '.View = View.LargeIcon 'ヘッダー部の追加（幅100ピクセルで左寄せで表示） 'ヘッダー部のテキストの配置を設定 .Columns.Add("名前", 100, HorizontalAlignment.Left) .Columns.Add("郵便番号", 100, HorizontalAlignment.Left) .Columns.Add("住所", 100, HorizontalAlignment.Left) 'アイテムを追加 .Items.Add("草名木 強", 0) 'サブアイテムを追加 .Items(0).SubItems.Add("123-4567") .Items(0).SubItems.Add("東京都 新宿区") .Items.Add("木邨 卓也", 1) .Items(1).SubItems.Add("111-2222") .Items(1).SubItems.Add("東京都 千代田区") .Items.Add("仲居 正弘", 2) .Items(2).SubItems.Add("222-3333") .Items(2).SubItems.Add("東京都 港区") End With End Sub |
|
| ７．指定の項目を削除します Private Sub Button2_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button2.Click '指定の項目を削除します(2行目にデータ） ListView1.Items.RemoveAt(1) End Sub |
|
| ８．全てのアイテムを削除する Private Sub Button3_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button3.Click '全てのアイテムを削除する ListView1.Items.Clear() End Sub |
|
| ９．指定の列を削除します Private Sub Button4_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button4.Click '指定の列を削除します。 ListView1.Columns.RemoveAt(1) 'コレクションからすべての列ヘッダーを削除します End Sub |
|
| 10.すべて削除する Private Sub Button5_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button5.Click 'すべて削除する ListView1.Clear() End Sub |
|
| 11.コレクション内の項目の行数を取得します Private Sub Button6_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button6.Click 'コレクション内の項目の行数を取得します。 Dim itemsCount As Integer = ListView1.Items.Count MessageBox.Show(String.Format("総行数 = {0} 行です。", itemsCount)) End Sub |
|
| 12.コレクション内の項目の列数を取得します Private Sub Button7_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button7.Click 'コレクション内の項目の列数を取得します。 Dim columnsCount As Integer = ListView1.Columns.Count MessageBox.Show(String.Format("総列数は = {0} 列です。", columnsCount)) End Sub |
|
| 13.選択されているアイテム数を取得する Private Sub Button8_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button8.Click '選択されているアイテム数を取得する Dim siCount As Integer = ListView1.SelectedItems.Count Debug.WriteLine(siCount) End Sub |
|
| 14.選択されている項目を取得する Private Sub Button9_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button9.Click '選択されている項目を取得する(下記コードは表示するのが目的ではありません) For Each si As ListViewItem In ListView1.SelectedItems Dim subItem0 As String = si.SubItems(0).Text Dim subItem1 As String = si.SubItems(1).Text Dim subItem2 As String = si.SubItems(2).Text Debug.WriteLine(si.Index) '結果 1 Debug.WriteLine(subItem0) '結果 木邨 卓也 Debug.WriteLine(subItem1) '結果 111-2222 Debug.WriteLine(subItem2) '結果 東京都 千代田区 Next 'ListView1.MultiSelect =False の場合なら 'ListView1.SelectedItems(0).SubItems(0).Text '結果 木邨 卓也 End Sub |
|
| 15.１行全体を選択状態にする/解除する Private Sub Button10_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button10.Click '１行全体を選択状態にする/解除する ListView1.FullRowSelect = Not ListView1.FullRowSelect 'ListView1.FullRowSelect = True 'ListView1.FullRowSelect = False End Sub |
|
2004/08/22
2005/10/21
VBレスキュー(花ちゃん)
VB.NET2003 VB2005