ListView da Seçili Satırı Remove ile Silmek

Bir önceki makalemizde seçili checkboxtaki satırları veritabanından silmiştik. Bu sefer
remove metoduyla sadece Listview nesnemizde
o anki ekrandan seçili satırları sileceğiz.
Aşağıdaki şekilleri inceleyin.

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ListView1.View = View.Details
        ListView1.GridLines = True
        ListView1.CheckBoxes = True
        ’Sütunlar oluşturulup, isimleri verildi.
        ListView1.Columns.Add("S.No", 50, HorizontalAlignment.Center)
        ListView1.Columns.Add("Ad", 100, HorizontalAlignment.Center)
        ListView1.Columns.Add("Soyad", 100, HorizontalAlignment.Center)
        ListView1.Columns.Add("Ogrenim", 100, HorizontalAlignment.Center)
        ListView1.Items.Clear()
        ’Şimdide Listview nesnesine bilgileri satır satır giriyoruz.
        Dim item As New ListViewItem(1)
        item.SubItems.Add("Bahadır")
        item.SubItems.Add("ŞAHİN")
        item.SubItems.Add("Master")
        item.ImageIndex = 0
        ListView1.Items.Add(item)

        item = New ListViewItem(2)
        item.SubItems.Add("Haluk")
        item.SubItems.Add("Aydın")
        item.SubItems.Add("Lisans")
        item.ImageIndex = 0
        ListView1.Items.Add(item)

        item = New ListViewItem(3)
        item.SubItems.Add("Adem")
        item.SubItems.Add("Ayvaz")
        item.SubItems.Add("Lisans")
        item.ImageIndex = 0
        ListView1.Items.Add(item)

        item = New ListViewItem(4)
        item.SubItems.Add("Fatih")
        item.SubItems.Add("Koç")
        item.SubItems.Add("Lisans")
        item.ImageIndex = 0
        ListView1.Items.Add(item)

        item = New ListViewItem(5)
        item.SubItems.Add("Ahmet")
        item.SubItems.Add("YILMAZ")
        item.SubItems.Add("Lisans")
        item.ImageIndex = 0
        ListView1.Items.Add(item)

        item = New ListViewItem(6)
        item.SubItems.Add("Mesut")
        item.SubItems.Add("ALP")
        item.SubItems.Add("Master")
        item.ImageIndex = 0
        ListView1.Items.Add(item)

    End Sub
    Private Sub btnKaldir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnKaldir.Click
        Dim i As Integer
        For i = 0 To ListView1.CheckedItems.Count - 1 ’Seçili olan checkbox sayısının 1 eksiği
            ’Seçili checkboxları listview nesnesinden kaldıracağız
            ListView1.CheckedItems(0).Remove()
        Next

    End Sub
End Class

Bir sonraki makalede görüşmek üzere. Bahadır ŞAHİN