- Katılım
- 5 Ocak 2014
- Mesajlar
- 3,333
- Tepkime puanı
- 6
- Puanları
- 136
TextBox’a yazılan yazıları Listbox’a Ekleme
1 tane "Listbox" ekleyin.
2 tane "Button" ekleyin.
Ve 1 tane de "Textbox" ekleyin.
"Button1"in "Text" kısmına "Ekle" yazın.
"Button2"nin "Text" kısmına "Sil" yazın.
"Button1"in Click Olayı Aşağıdaki Şekilde Olmalıdır.
Kod:
If ListBox1.Items.IndexOf(TextBox1.Text) >= 0 ThenDim cc = MsgBox("Böyle bir yazı listede zaten var.Tekrar eklensinmi mi?",MsgBoxStyle.YesNo + MsgBoxStyle.Information, "Böyle bir yazı listede zaten var.")If c = MsgBoxResult.Yes ThenListBox1.Items.Add(TextBox1.Text)End IfElse : ListBox1.Items.Add(TextBox1.Text)End If
"Button2"nin Click Olayı Aşağıdaki Şekilde Olmalıdır.
Kod:
ListBox1.Items.Remove(ListBox1.SelectedItem)
1 tane "Listbox" ekleyin.
2 tane "Button" ekleyin.
Ve 1 tane de "Textbox" ekleyin.
"Button1"in "Text" kısmına "Ekle" yazın.
"Button2"nin "Text" kısmına "Sil" yazın.
"Button1"in Click Olayı Aşağıdaki Şekilde Olmalıdır.
Kod:
If ListBox1.Items.IndexOf(TextBox1.Text) >= 0 ThenDim cc = MsgBox("Böyle bir yazı listede zaten var.Tekrar eklensinmi mi?",MsgBoxStyle.YesNo + MsgBoxStyle.Information, "Böyle bir yazı listede zaten var.")If c = MsgBoxResult.Yes ThenListBox1.Items.Add(TextBox1.Text)End IfElse : ListBox1.Items.Add(TextBox1.Text)End If
"Button2"nin Click Olayı Aşağıdaki Şekilde Olmalıdır.
Kod:
ListBox1.Items.Remove(ListBox1.SelectedItem)