TextBox’a yazılan isimleri Listbox’a Ekleme

Textboxa yazılmış olan isimleri listboxa ekleyen ve silen ayrıca o isim listede varsa uyarı veren programı oluşturunuz.

Bu programımızda 1 textbox,1 listbox,2 tanede button kullanacağız. Textboxa yazılan isimleri listboxda göstermek için ayrıca yazılacak isim eğer listede varsa uyarı verecek olan programı oluşturmak için ekle buttonuna şu kodlar yazılmalıdır;

[code language=”vb”]If ListBox1.Items.IndexOf(TextBox1.Text) >= 0 Then
Dim c
c = MsgBox("Bu eleman zaten listede var.Tekrar ekleyeyim mi?",
MsgBoxStyle.YesNo + MsgBoxStyle.Information, "Eleman var.")
If c = MsgBoxResult.Yes Then
ListBox1.Items.Add(TextBox1.Text)
End If

Else : ListBox1.Items.Add(TextBox1.Text)
End If[/code]

Listboxdaki isimleri silmek içinde sil buttonuna şu kodlar yazılmalıdır;

[code language=”vb”]ListBox1.Items.Remove(ListBox1.SelectedItem)[/code]

Daha Sonra programı Çalıştırıyoruz..