Checkedlistbox Kullanımı 2

Merhaba dostlar.

Bugün sizlerle checkedlistbox nesnesi ile ilgili bazı kodları paylaşacağım.

 Dim veriler() As String = {"A", "B", "C", "D", "E"}

CheckedListBox1.Items.AddRange(veriler)

Bu kod satırında veriler adında bir dizi ve elemanlarını tanımlıyoruz ve checkedlistbox nesnemize bu diziyi yazdırıyoruz. Bu işlem veri eklemenin değişik bir yolu.

CheckedListBox1.Items.Insert(3, "Merhaba") 

Bu kod satırı da checkedlistbox nesnesinin 4. sırasına "Merhaba" ifadesini yazdıran satırdır.

CheckedListBox1.Items.RemoveAt(2)

Bu satır da nesnenin 3. sırasındaki veriyi siler.

CheckedListBox1.SetSelected(3, True)

Bu  satır nesnenin 4. sırasındaki veriyi seçili duruma getirir.

MessageBox.Show((CheckedListBox1.SelectedIndex + 1))

Bu satır eğer seçilmiş bir veri varsa onun kaçıncı sırada olduğunu messagebox ile gösterir.

Dim mn As Integer = CheckedListBox1.FindString("G")

CheckedListBox1.SetItemChecked(mn, True)

Bu satırlar da mn değişkenini nesnedeki "G" harfi ile başlayan veriye eşitler ve onu seçili duruma getirir.

Hepinize kolay gelsin.

Checkedlistbox Kullanımı 1 ve Split (Parçalama) Komutu

Merhaba dostlar.

Bugün sizlerle checkedlistbox nesnesine veri ekleme, seçtiğimiz veriyi silme veya elde etme ve string ifadeyi parçalama işlemlerini anlatmaya çalışacağım.
Örnek program üzerinden anlatıma başlıyorum. 

Üst kısımda bulunan kutulardaki verileri aralarına "/" işareti koyarak checkedlistbox nesnesine ekliyoruz. İstediğimiz veriyi seçip parçala deyip aşağıdaki kutulara parçalanmış şekilde yazdırıyoruz, istediğimiz verileri seçip silebiliyoruz. Gelelim kodlara.

 CheckedListBox1.Items.Add("Merhaba","Dostum") bu kod satırı iki string ifadeyi yan yana ve bitişik olarak yazdırır.


CheckedListBox1.Items.Add(TextBox1.Text & "/" & TextBox2.Text & "/" & TextBox3.Text & "/" & TextBox4.Text & "/" & TextBox5.Text) bu kod satırı da örnek programda kutulardaki verileri aralarına "/" işareti koyarak yazdırır.

Parçalama için Split komutu kullanılır programda split komutu şu şekilde kullanılmıştır ;

Dim veri() As String
veri = Split(CheckedListBox1.CheckedItems(0), "/")

Bu kod seçtiğimiz checkedlistbox verisini parçalıyor ve "veri" adında bir diziye atıyor. Parçalama komutunda önce parçalanacak string ifade yazılır, ardından virgülle ayrılıp parçalama kriteri yazılır. Bizim parçalama kriterimiz de "/" işaretidir. Parçalama işleminden sonra dizi elemanları elde edilmiş olur veri(0), veri(1)... artık kaç tane parça varsa o kadar dizi elemanı elde edilmiş olur.


Checkedlistbox nesnesindeki seçtiğimiz verileri silmek için şöyle bir kod kullanırız.


For x As Integer = CheckedListBox1.Items.Count - 1 To 0 Step -1
            If CheckedListBox1.GetItemCheckState(x) = CheckState.Checked Then
                CheckedListBox1.Items.RemoveAt(x)
            End If
Next


Bu kodlar checkedlistbox nesnesindeki tüm seçenekleri tarar ve seçili olanları siler.

Checkedlistbox nesnesi seçim yaparken ilk tıklamada seçili duruma gelmez bunu değiştirip ilk tıklamada seçme işlemi yapabilmek için nesnenin üzerine tıklayıp "Properties" penceresinden "CheckOnClick" özelliğini "True" olarak ayarlamanız gerekir.

Örneği indirmek için tıklayın.

Hepinize kolay gelsin.

Listview ve Kolonları Yönetimi 2

Merhaba dostlar.

Bugün listview nesnesinden seçtiğimiz bir girdinin kolonlarındaki bilgileri nasıl elde edeceğimizi anlatmaya çalışacağım. Örnek programdan anlatmaya başlıyorum.

Resimdeki listview nesnesine form yüklenirken verileri yazdırıyorum. Nasıl yazdırılacağı bu konunun birinci bölümünde mevcut. Daha sonra seçtiğim girdilerin kolonlarını yandaki kutulara yazdıracağım.

Girdileri seçtirmek için checkbox seçeneğini kullandım bu kişiye seçtiği girdiyi daha iyi görme imkanı veriyor. Checkbox kullanabilmek için listview nesnesinde çift tıklayıp onun yordamına "listview1.checkboxes=true" yazmanız yeterlidir. Bunu yaptıktan sonra listview nesnesine tıkladığınızda checkbox görünür hale gelir.

Hasan girdisi seçili haldeyken göster tuşuna basılınca yandaki kutulara girdinin kolonları yazılır ve seçili girdi seçilmemiş hale getirilir. Seçili girdiyi seçilmemiş hale getirmek için şu kod kullanılır;
ListView1.CheckedItems(0).Checked = False

Şimdi kod kısmına geçelim. Listview girdilerini form_load yordamında yazdırdık.
Seçilen girdiyi elde etmek için şöyle bir kod satırı kullanırız;

 Dim girdi As ListViewItem
 girdi = ListView1.CheckedItems(0)
Bu satırlar sadece 1 seçim için kullanılır 2 veya daha fazla seçim yaparsanız çalışmaz programda bunu engellemek için bir kaç kod daha yazdım böylece sadece 1 seçim yaparak işlem yapabiliyorsunuz. Hasan ile başlayan girdinin kolonlarını elde edelim şimdi.

girdi.SubItems(0).Text="hasan"
girdi.SubItems(1).Text="erkul"
girdi.SubItems(2).Text="hasan@hotmail.com"
girdi.SubItems(3).Text="ankara"
girdi.SubItems(4).Text="1980"
Yukarıdaki satırları gösterim amaçlı yazdım programda "TextBox1.Text=girdi.SubItem(0)" yazarsanız işlem yapmış olursunuz. "SİL" tuşunun yordamına şu kod satırı ile çoklu seçim yapabilir ve bu seçenekleri silebilirsiniz.
 ListView1.Items.Remove(ListView1.CheckedItems(0))

Örneği indirmek için tıklayın.

Hepinize kolay gelsin.