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.
Hiç yorum yok:
Yorum Gönder