remove metoduyla sadece Listview nesnemizde
o anki ekrandan seçili satırları sileceğiz.
Aşağıdaki şekilleri inceleyin.
Şekil 3
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
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
0 comments:
Yorum Gönder