ComboBox yardım

şahi
21-03-2008, 12:31   |  #1  
OP Taze Üye
Teşekkür Sayısı: 0
16 mesaj
Kayıt Tarihi:Kayıt: Şub 2008

Arkadaşlar yapmak istediğim programda combobox listesindeki herhangi bir öğenin seçildiğinde bir başka combobox daki sadece bazı öğelerin seçilebilir olmasını istiyorum.yani 2. comboboxdaki bazı öğelerin seçilebilirliğini şarta bağlamak istiyorum.bilmiyorum derdimi tam oarak anlatabildim mi Gülüş.Yardımlarınızı bekliyorum.teşekkürler.   

KuaforPlus
24-03-2008, 15:29   |  #2  
KuaforPlus avatarı
Yıllanmış Üye
Teşekkür Sayısı: 1
223 mesaj
Kayıt Tarihi:Kayıt: Nis 2007

Öncelikle Şunu Belirteyim.
ComboBoxlar tek seçimlik kutulardır. Bu Sebepledir ki
ComboBox1 içinden seçim yapıp diğer ComboBox2 den birden fazla yeri seçtirmeniz imkansızdır.

Ama şöle bir şey düşünebilirsiniz.
ComboBox1 içinden seçim yapılır, bir Listbox içine seçilen bilgiler attırılabilir.

Son Düzenleme: KuaforPlus ~ 24 Mart 2008 15:30
şahi
25-03-2008, 15:44   |  #3  
OP Taze Üye
Teşekkür Sayısı: 0
16 mesaj
Kayıt Tarihi:Kayıt: Şub 2008

cevap için teşekkürler ama niyetim zaten combobox da birden fazla seçeneği aynı anda seçtirmek değil.örnek vererek anlatayım başka türlü olamyacak:) otobüs firmalarının sitesinde online sefer sorgularken kalkış yeri seçildikten sonra gidilebilecek varış yerlerinin listesi çıkıyor.bu gibi
bi çözüm buldum aslında ama bu seferde kodlar uzuyor:) Teşekkürler.

Son Düzenleme: şahi ~ 25 Mart 2008 15:45
KuaforPlus
25-03-2008, 16:31   |  #4  
KuaforPlus avatarı
Yıllanmış Üye
Teşekkür Sayısı: 1
223 mesaj
Kayıt Tarihi:Kayıt: Nis 2007

Option Explicit

Private Sub Combo1_Click()
Select Case Combo1.Text
Case "İZMİR" ' izmir seçilirse
        izmirTarife ' izmir tarifesini yükle
Case "ANKARA" ' ankara seçilirse
        ankaraTarife ' ankara tarifesini yükle
Case "İSTANBUL" ' istanbul seçilirse
        istanbulTarife ' istanbul tarifesini yükle
Case Else
    'hiç biri değil se
End Select
End Sub

Private Sub Form_Load()
' combo1 içine bilgi girişi yapılıyor
Combo1.AddItem "İZMİR"
Combo1.AddItem "ANKARA"
Combo1.AddItem "İSTANBUL"
Combo1.Text = Combo1.List(0)
End Sub
Sub izmirTarife()
    Combo2.Clear ' combo2 içinde önceden eklenmiş tüm veriler siliniyor
    Combo2.AddItem "EŞREFPAŞA"
    Combo2.AddItem "KARŞIYAKA"
    Combo2.AddItem "BALÇOVA"
    Combo2.AddItem "YEŞİLYURT"
    Combo2.Text = Combo2.List(0) ' yükleme bittikten sonra, yüklenenler içinden ilk veri gösterilsin
End Sub
Sub istanbulTarife()
    Combo2.Clear
    Combo2.AddItem "TAKSİM"
    Combo2.AddItem "BEŞİKTAŞ"
    Combo2.Text = Combo2.List(0)
End Sub
Sub ankaraTarife()
    Combo2.Clear
    Combo2.AddItem "ULUS"
    Combo2.AddItem "ÇANKAYA"
    Combo2.Text = Combo2.List(0)
End Sub

Bu mantıkla tüm tarifeler eklenebilir, umarım yardımcı olabilmişimdir.

şahi
25-03-2008, 17:08   |  #5  
OP Taze Üye
Teşekkür Sayısı: 0
16 mesaj
Kayıt Tarihi:Kayıt: Şub 2008

çok teşekkürler.deneyeceğim