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ý : 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 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 | 18.205.60.226 | 0,16 Saniye
    © Copyright 2004-2019 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.