ListView da Checkbox, Resim ve Veri Gösterimi

Bu makalemizde ListView nesnesinde resim, checkbox ve veri gösterimini anlatacağız. Formunuza 1 adet ListView ve ImageList nesneleri ekleyin. ImageListe göstermek istediğiniz resimleri item olarak ekleyin. Aşağıdaki şekli inceleyin.

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        ‘View özelliğinden ListView ın style ni değiştirebilirsiniz.
        ListView1.View = View.Details
        ListView1.CheckBoxes = True ‘CheckBox eklenir.
        ListView1.GridLines = True ‘Grid çizgileri ekler
      
        ListView1.Activation = ItemActivation.TwoClick
        ListView1.SmallImageList = ımageList1 ‘imagelistesi eklenir.

        ‘Sütunlar oluşturuluyor
        ListView1.Columns.Add("Durum", 100, HorizontalAlignment.Center)
        ListView1.Columns.Add("Personel ID", 100, HorizontalAlignment.Center)
        ListView1.Columns.Add("Ad", 100, HorizontalAlignment.Center)
        ListView1.Columns.Add("Soyad", 100, HorizontalAlignment.Center)
        ListView1.Columns.Add("Kısım", 100, HorizontalAlignment.Center)
        ListView1.Columns.Add("Ogrenim_Durumu", 100, HorizontalAlignment.Center)
        ListView1.Columns.Add("Meslek", 100, HorizontalAlignment.Center)
        ListView1.Columns.Add("Giris_Tarihi", 100, HorizontalAlignment.Center)

        ‘Sütunlara sırasıyla bilgi girişi yapılıyor.
        Dim item1() As String = {"Durum", "1", "Bahadirsa", "xxxxx", "ArGe", "Master", "Mühendis", "xx.xx.xxxx"}
        Dim item2() As String = {"Durum", "2", "Fatih", "Koç", "ArGe", "Üniversite", "Mühendis", "15.07.2005"}
        Dim item3() As String = {"Durum", "3", "Haluk", "Aydın", "ArGe", "Üniversite", "Mühendis", "12.08.2004"}
        Dim item4() As String = {"Durum", "4", "Ayhan", "Akman", "ArGe", "Üniversite", "Mühendis", "19.06.2005"}
        Dim item5() As String = {"Durum", "5", "Mesut", "Alp", "ArGe", "Master", "Mühendis", "05.06.2004"}

        ‘Girilen bilgiler ListView nesnemize ekleniyor.
        ListView1.Items.Add(New ListViewItem(item1))
        ListView1.Items.Add(New ListViewItem(item2))
        ListView1.Items.Add(New ListViewItem(item3))
        ListView1.Items.Add(New ListViewItem(item4))
        ListView1.Items.Add(New ListViewItem(item5))

        ‘Yukarıda oluşturduğumuz satırları ekledik.İstenirse aşağıdaki
        ‘gibi SubItems metodu kullanarak satır eklenebilir.

        Dim itemler As New ListViewItem
        itemler = ListView1.Items.Add("Durum", 6)
        itemler.SubItems.AddRange(New String(6) {"6", "Ali", "Arslan", "ArGe", "Üniversite", "Mühendis", "10.11.2003"})
        itemler.ImageIndex = 0 ‘imagelist deki index 0 daki image yükleniyor.

        itemler = ListView1.Items.Add("Durum", 7)
        itemler.SubItems.AddRange(New String(6) {"7", "Halil", "Oz", "ArGe", "Üniversite", "Mühendis", "03.04.2005"})
        itemler.ImageIndex = 1

        ListView1.ForeColor = Color.Navy
        ListView1.BackColor = Color.Silver
        ListView1.Font = New Font("Tahoma", 12, FontStyle.Regular)

        Dim i As Integer
        For i = 0 To 4 Step 2
            itemler = ListView1.Items.Item(i)
            itemler.ImageIndex = 0
        Next
        For i = 1 To 3 Step 2
            itemler = ListView1.Items.Item(i)
            itemler.ImageIndex = 1
        Next
        With Me
            .Text = "ListView Uygulaması...Bahadirsa"
            .MaximizeBox = False
            .Location = New Point(200, 200)
        End With

    End Sub

End Class

Bir sonraki makalede buluşmak üzere. Bahadır