• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

listbox denetimine ekleme

K

karaelmas4467

Altın Üye
Katılım
23 Aralık 2006
Mesajlar
202
Excel Vers. ve Dili
2003
Private Sub CommandButton4_Click()
Dim Terimler(7, 0) As String

Terimler(0, 0) = "İBRA"
Terimler(0, 1) = "KESİNLEŞTİRMEK,SAĞLAMLAŞTIRMAK"

Terimler(1, 0) = "İBRAZ"
Terimler(1, 1) = "GÖSTERMEK,BEYAN ETMEK"

Terimler(2, 0) = "İCAR"
Terimler(2, 1) = "KİRAYA VERME"

Terimler(3, 0) = "İCBAR"
Terimler(3, 1) = "ZOR OLAN ,ZORLAMA"

Terimler(4, 0) = "İCMAL"
Terimler(4, 1) = "ÖZETLEMEK,ÖZET"

Terimler(5, 0) = "İCTİHAD"
Terimler(5, 1) = "BİRDEN FAZLA KİŞİNİN ORTAK FİKRİ"

Terimler(6, 0) = "İFA"
Terimler(6, 1) = "YERİNE GETİRMEK"

ListBox1.Clear

buraya (for next döngüsü ile yukarıdaki terimleri listbox denetimine ekleyen döngüyü eklemek ve additem metodu ile de yeni öge eklemek istiyorum)
End Sub
 
:cool:
Kod: 
Private Sub CommandButton1_Click()
Dim Terimler(1 To 7, 1 To 2) As String

Terimler(1, 1) = "İBRA"
Terimler(1, 2) = "KESİNLEŞTİRMEK,SAĞLAMLAŞTIRMAK"

Terimler(2, 1) = "İBRAZ"
Terimler(2, 2) = "GÖSTERMEK,BEYAN ETMEK"

Terimler(3, 1) = "İCAR"
Terimler(3, 2) = "KİRAYA VERME"

Terimler(4, 1) = "İCBAR"
Terimler(4, 2) = "ZOR OLAN ,ZORLAMA"

Terimler(5, 1) = "İCMAL"
Terimler(5, 2) = "ÖZETLEMEK,ÖZET"

Terimler(6, 1) = "İCTİHAD"
Terimler(6, 2) = "BİRDEN FAZLA KİŞİNİN ORTAK FİKRİ"

Terimler(7, 1) = "İFA"
Terimler(7, 2) = "YERİNE GETİRMEK"

ListBox1.Clear
ListBox1.ColumnCount = 2
For i = 1 To 7
    ListBox1.AddItem
    ListBox1.List(i - 1, 0) = Terimler(i, 1)
    ListBox1.List(i - 1, 1) = Terimler(i, 2)
Next
End Sub
 
Bu verileri listboxa çok daha hızlı alır.:cool:
Kod: 
Private Sub CommandButton1_Click()
Dim Terimler(1 To 7, 1 To 2) As String

Terimler(1, 1) = "İBRA"
Terimler(1, 2) = "KESİNLEŞTİRMEK,SAĞLAMLAŞTIRMAK"

Terimler(2, 1) = "İBRAZ"
Terimler(2, 2) = "GÖSTERMEK,BEYAN ETMEK"

Terimler(3, 1) = "İCAR"
Terimler(3, 2) = "KİRAYA VERME"

Terimler(4, 1) = "İCBAR"
Terimler(4, 2) = "ZOR OLAN ,ZORLAMA"

Terimler(5, 1) = "İCMAL"
Terimler(5, 2) = "ÖZETLEMEK,ÖZET"

Terimler(6, 1) = "İCTİHAD"
Terimler(6, 2) = "BİRDEN FAZLA KİŞİNİN ORTAK FİKRİ"

Terimler(7, 1) = "İFA"
Terimler(7, 2) = "YERİNE GETİRMEK"

ListBox1.Clear
ListBox1.ColumnCount = 2
[B][COLOR="Red"]ListBox1.List = Terimler[/COLOR][/B]
End Sub
 
tşk ederim

Evren Gizlen' Alıntı:
:cool:
Kod: 
Private Sub CommandButton1_Click()
Dim Terimler(1 To 7, 1 To 2) As String

Terimler(1, 1) = "İBRA"
Terimler(1, 2) = "KESİNLEŞTİRMEK,SAĞLAMLAŞTIRMAK"

Terimler(2, 1) = "İBRAZ"
Terimler(2, 2) = "GÖSTERMEK,BEYAN ETMEK"

Terimler(3, 1) = "İCAR"
Terimler(3, 2) = "KİRAYA VERME"

Terimler(4, 1) = "İCBAR"
Terimler(4, 2) = "ZOR OLAN ,ZORLAMA"

Terimler(5, 1) = "İCMAL"
Terimler(5, 2) = "ÖZETLEMEK,ÖZET"

Terimler(6, 1) = "İCTİHAD"
Terimler(6, 2) = "BİRDEN FAZLA KİŞİNİN ORTAK FİKRİ"

Terimler(7, 1) = "İFA"
Terimler(7, 2) = "YERİNE GETİRMEK"

ListBox1.Clear
ListBox1.ColumnCount = 2
For i = 1 To 7
    ListBox1.AddItem
    ListBox1.List(i - 1, 0) = Terimler(i, 1)
    ListBox1.List(i - 1, 1) = Terimler(i, 2)
Next
End Sub
Genişletmek için tıkla ...

Sayın Evren; önce teşekür ederim.. ama ben uyguladım beceremedim. örnek dosya gönderiyorum daha anlaşılır olur yardımınız için.
yapmak istediğim userform üzerinde harf tuşuna tıkladığımda o harf ile başlayan terimlerin listbox da listelenmesi, ayrıca listbox dan seçilen bir terimin açıklamasının label2 de olması, eğer harf tuşuna tıkaldığımda o harf ile başlayan terim yok ise listbox da Bu harf ile başlayan terim yok ifadesi gelsin..

umarım anlatabilmişimdir.
 

Ekli dosyalar

bir sorum daha olacak fazla olmazsam. harf tuşuna tıkladığımda o harf ile başlayan bir terim yok ise listbox da "Bu harfle başlayan bir terim yok" ifadesinin görünmesini nasıl yapabilirim.
 
Son düzenleme:
Dosyanız ektdir.
Ama niye böyle yaptığınızıda anlamış değilim.
Verileri sayfaya yazıp sayfadan süzüp almak işi daha kolaylaştırır.Bu şekilde işkence olur.:cool:
 

Ekli dosyalar

Evren Gizlen' Alıntı:
Dosyanız ektdir.
Ama niye böyle yaptığınızıda anlamış değilim.
Verileri sayfaya yazıp sayfadan süzüp almak işi daha kolaylaştırır.Bu şekilde işkence olur.:cool:
Genişletmek için tıkla ...

Haklısınız.. ödev bu şekilde yapmamızı isteyince mecburen kulağımızı tersten kaşıyoruz. Çok teşekür ederim.
 
Sorunuzun gidişatından anladığım kadarı ile biz bir adım ilerisiniz yaptık.Sanırım soru sadece butonlara basılan harfi arayacatı.
Bunun içinde aşağıdakşi dosyayı yaptım.
Dosya ektedir.:cool:
 

Ekli dosyalar

Evren Gizlen' Alıntı:
7 numaralı mesajda dosyayı güncelledim.
Dosyayı oradan indirebilirsiniz.:cool:
Genişletmek için tıkla ...

sanırım bir hata yaptık.. listboxda sadece terimin adı olacak açıklaması ise listboxun altındaki label2 de olacak. yani önce harf tıklıyoruz, sonra listbox dan adını seçiyoruz ve o terimin açıklamasının label2 de görüntülenmesini sağlıyoruz. ekteki dosyada yapmaya çalıştığım gibi..
 

Ekli dosyalar

karaelmas4467' Alıntı:
sanırım bir hata yaptık.. listboxda sadece terimin adı olacak açıklaması ise listboxun altındaki label2 de olacak. yani önce harf tıklıyoruz, sonra listbox dan adını seçiyoruz ve o terimin açıklamasının label2 de görüntülenmesini sağlıyoruz. ekteki dosyada yapmaya çalıştığım gibi..
Genişletmek için tıkla ...
Dosya ektedir.
Sanırım hocanız bunu istedi.:cool:
 

Ekli dosyalar

evet aynen buydu. şimdi benim bunu üzerinde çalışmam gerekiyor. nasıl olduğunu tam olarak anlayabilmek için. tekrar teşekür ederim..
 
karaelmas4467' Alıntı:
evet aynen buydu. şimdi benim bunu üzerinde çalışmam gerekiyor. nasıl olduğunu tam olarak anlayabilmek için. tekrar teşekür ederim..
Genişletmek için tıkla ...
Command butonlar için classmodule kullanıldı.Ona dikkat ediniz.:cool:
Kolay gelsin.:cool:
 
Standart bir modüle global bir değişken tanımladık.Oda çok önmeli.Ve dizi değişlkeniydi o.:cool:
 
Evren Gizlen' Alıntı:
Dosya ektedir.
Sanırım hocanız bunu istedi.:cool:
Genişletmek için tıkla ...

merhaba,

Evren bey, vermiş olduğunuz en son ki dosyada "bu harf ile başlayan terim yok" yazısına tıklandığı zaman error veriyor. Ve dosyada sizin kullanmış olduğunuz class olayını kullanmamak gerekiyor. Var olan dosya üzerine bir kaç değişiklik talebim olacaktı Acaba yardımcı olur musunuz?
Aslında yapmak istediğim şey tam olarak burada, demo

kullanmamız gerekenler
ListBox denetiminde yer alan tüm öğeleri silmek için Clear metodunu kullanmak
For ... Next döngüsü kullanmak
yeni öğe eklemek için AddItem metodunu kullanmak
Eğer ilgili harf ile başlayan her hangi bir terim yok ise sadece bu işlem adımlarını gerçekleştirin.
1. ListBox denetiminde yer alan tüm öğeleri silin. ListBox denetiminde yer alan tüm öğeleri silmek için Clear metodunu kullanın.
2. ListBox denetimine Bu harfle başlayan bir terim yok biçiminde bir öğe ekleyin. ListBox denetimine yeni öğe eklemek için AddItem metodunu kullanın.
3. Label denetiminde görüntülenen açıklamayı silin.

ListBox denetimininde yer alan bir öğeye tıklandığında seçili öğenin değerini kontrol edin. Eğer seçili öğe Bu harfle başlayan bir terim yok ise ilgili olay yordamından çıkın. Yordamdan çıkmak için Exit Sub deyimini kullanın.
 
Son düzenleme:
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst