MyDesign | Kod Arivi - Anasayfaya Dn   No banner in farm
Anasayfa Aratr Forum Gelimi Arama Siteniz in En Hit erikler RSS erik Ekle Scriptler Destekleyenler Kadromuz Reklam letiim Giri Sayfas Yap  Sk Kullanlanlara Ekle
Bu Kategorinin En Yeni Kodlar:


Bu Kategorinin En ok Grntlenen Kodlar:






Arama:
Gelimi Arama


No banner in farm



En ok Grntlenen Kodlar:


ye Girii:
 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
Gnderen : hoca
Telif :
Tarih : 14 Mayıs 2007
rnek Dosya : Bulunmamakta
Okunma Says : 22746
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 iin yazlan 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:



Balantlar:



    En Son Yorumlanan erikler:


    Murat Yavuz | Site Haritas | Gizlilik Bildirimi | 18.205.60.226 | 0,16 Saniye
    © Copyright 2004-2019 MyDesign | Kod Arivi. Tm Haklar Sakldr.
    MyDesign | Kod Arivi, en iyi grnm iin, 1024x768 ve zeri znrlk tavsiye eder.