MyDesign | Kod Arşivi - Anasayfaya Dön   No banner in farm
Anasayfa Araştır Forum Gelişmiş Arama Siteniz İçin En Hit İçerikler RSS İçerik Ekle Scriptler Destekleyenler Kadromuz Reklam İletişim Giriş Sayfası Yap  Sık Kullanılanlara Ekle
Bu Kategorinin En Yeni Kodları:


Bu Kategorinin En Çok Görüntülenen Kodları:






Arama:
Gelişmiş Arama


No banner in farm



En Çok Görüntülenen Kodlar:


Üye Girişi:
 Üye Ol



Anasayfa > VisualBasic > Kodlar

Combobox'a tekrarsız isim girmek

Combobox'ta aynı kelimeden bir den fazla olmasın diyorsanız; Formumuza 1 adet listbox, 1adet combobox ve bir adet command buton ekleyelim. ve aşağıdaki kodları formumuzun general declarations kısmına ekleyelim.

combobox 

Kategori : VisualBasic
Gönderen : hoca
Telif :
Tarih : 14 Mayıs 2007
Örnek Dosya : Bulunmamakta
Okunma Sayısı : 21506
Puan
: 6,8 / 10 (6 Oy)
Puan Verin :
Google Bookmarks  del.icio.us  Digg  Yahoo! MyWeb  Windows Live  Furl
 
 
Combobox'a tekrarsız isim girmek

Private Sub Command1_Click()

Dim X As Integer
Dim Y As Integer
Dim var As Boolean
For X = 0 To List1.ListCount - 1
List1.Selected(X) = True
var = False
For Y = 1 To Combo1.ListCount + 1
If List1.Text = Combo1.List(Y - 1) Then var = True: Exit For
Next Y
If var = False Then
Combo1.AddItem List1.Text
End If
Next X
End Sub

Private Sub Form_Load()
List1.AddItem "ahmet"
List1.AddItem "ahmet"
List1.AddItem "ahmet"
List1.AddItem "ali"
List1.AddItem "ali"
List1.AddItem "ali"


End Sub
 
 

Combobox'a tekrarsız isim girmek için yazılan yorumlar

witch   { 05 Mayıs 2009 }
benm de yapmak ıstedgım otobus sırketı progrmı bınıs ve ınıs yerlerını sececegm devam dedgm zamn verı tabanından o biniş ve iniş yerıne uyan seferlerı listboxta gosterecek combobox1 ve combobox2 dekı verılerı verı tabanından alıyor ama hata verıyor durmadan “Satır/sütun için hiç veri yok. ” bu hatayı verıyor komutum bu

If (ComboBox1.SelectedIndex = data(1)) And (ComboBox2.SelectedIndex = data(2)) Then

ListBox1.Items.Add(data(1) & data(2) & data(3) & data(4) & data(5) & data(6))

End If

ama olmuyor galıba mantık hatası yapıyorum eger bı bılgınız varsa lutfen en gec yarına kadar cvp verırsenız sevınırım lutfen cunku persembeye yetstırmem gereken bır program

murat   { 03 Haziran 2007 }
küçük yazım hataleı olabilir. vb kurulu deil bende ama daha basit yol:

sub addComboItem(name as string)
dim x as integer
mevcut as boolean
mevcut=False
For X = 0 To combo1.ListCount - 1
if combo1.List(x)=name then mevcut=true
Exit For
end if
next x

if not mevcut then
Combo1.AddItem name
end if

end sub

Yorum ekleyin

Anasayfa > VisualBasic > Kodlar > Combobox'a tekrarsız isim girmek
Kategoriler:


Forum:



Bağlantılar:


En Son Yorumlanan İçerikler:


Murat Yavuz | Site Haritası | Gizlilik Bildirimi | 54.166.232.243 | 0,12 Saniye
© Copyright 2004-2017 MyDesign | Kod Arşivi. Tüm Hakları Saklıdır.
MyDesign | Kod Arşivi, en iyi görünüm için, 1024x768 ve üzeri çözünürlük tavsiye eder.