Visual Basic.NET

Visual Basic ListBox Kullanımı

Ocak 9, 2020
2 Okuma Süresi

Listbox nesneleri her form uygulamasında en çok kullanılan componentlerden biridir. Bu yazıda daVisual Basic Programında Listbox kullanımını hakkında bilgi edineceğiz.

Visual Basic Listbox Nedir?

Liste Kutusu, kullanıcıya öğe listesi görüntülemek için bir Windows denetimini temsil eder. Kullanıcı listeden bir öğe seçebilir. Programlayıcının özellikler penceresini kullanarak veya çalışma zamanında tasarım zamanında öğe eklemesine izin verir.

Araç Kutusu’ndan bir ListBox denetimi sürükleyip forma bırakarak bir liste kutusu oluşturalım.

visualbox listbox ekleme
visualbox listbox ekleme

Liste kutusu öğelerini özellikler penceresinden veya çalışma zamanında doldurabilirsiniz. Bir ListBox öğesine öğe eklemek için, ListBox denetimini seçin ve bu denetimin özellikleri için özellikler penceresine gidin. Öğeler özelliğinin yanındaki üç nokta (…) düğmesini tıklayın. Bu, değerleri bir satıra girebileceğiniz Dize Koleksiyonu Düzenleyici iletişim kutusunu açar.

Listbox Özellikleri ve Metotları

1)”ListBox1.Selectedindex” komutu listede seçili olan elemanın numarasını verir.
2)”ListBox1.Selecteditem” komutu listede seçili olan elemanı gösterir.
3)”ListBox1.Items.RemoveAt(…)” komutu index (sıra) numarası verilen elemanı siler.
Parantez içine sıra numarası yazılır.
4)”ListBox1.Items.Remove(…)” komutu ismi yazılan elemanı siler. Parantez içine isim
yazılır.
5) ”ListBox1.Items.Count” komutu listedeki eleman sayısını verir.
6) ”ListBox1.Items.IndexOf(…)” komutu listeden seçilen elemanın kaçıncı eleman olduğunu
gösterir.
ÖRNEK : Aşağıdaki programda bazı listbox özellikleri kullanılmıştır.

 

Örnek programın VB Kodu:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
 
Public Class Form1
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        ListBox1.Items.Add(TextBox1.Text)
        TextBox1.Text = " "
    End Sub
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        ListBox1.Items.Clear()
    End Sub
 
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        ListBox1.Items.RemoveAt(ListBox1.SelectedIndex)
        ListBox1.Items.Remove(ListBox1.SelectedItem)
    End Sub
 
    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        MsgBox("Eleman Sayısı " & ListBox1.Items.Count)
    End Sub
 
    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
        MsgBox("Seçtiğiniz Kişinin Sıra Numarası " & ListBox1.Items.IndexOf(TextBox4.Text))
    End Sub
 
    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        If ListBox1.Items.Count < TextBox2.Text Then
            ListBox1.Items.Insert(ListBox1.Items.Count, TextBox3.Text)
        Else : ListBox1.Items.Insert(Val(TextBox2.Text), TextBox3.Text)
        End If
    End Sub
End Class
 

Yukarıdaki kod çalıştırıldığında ve Microsoft Visual Studio araç çubuğunda bulunan Başlat düğmesi kullanılarak çalıştırıldığında, aşağıdaki pencereyi gösterecektir –

Programın ekran görüntüsü:

 

Etiketler

Yorum Yap

Yorum yapmak için tıklayın