Listboxda klavyeden harfe basıp gezinmek?

[Murat_00]

Merhaba;
Listboxda verilerin üzerine gelip klavyeden A harfine basınca otomatik a ile başlayan veriye gidip onu işaretliyor kendisi forumdan aldığım örneklerde bu özellik çalışıyor ama benim kendi listboxumda böyle bir özellik yok. yani listboxda işaretliyken herhangi bir stır B harfine bastığımızda listboxun işaretli satırı otomatik olarak B harfi ile başlayan verinin üzerine gidiyor. Bu özelliği listboxun properties ayarlarındanmı yapılıyor ben baktım ama bulamadım?

 

[hamitcan]

"MatchEntry" özelliği bu işi görüyor.

ListBox1.MatchEntry =fmMatchEntryFirstLetter'İlk harfe göre ara

 

[Murat_00]

Hamit hocam ilginiz için çok teşekkür ederim yanlız benim harfe göre aramak istediğim veri listboxun 3. kolonunda bulunuyor bunun için ne yapabilirim?

 

[Levent Menteşoğlu]

Hamit hocam ilginiz için çok teşekkür ederim yanlız benim harfe göre aramak istediğim veri listboxun 3. kolonunda bulunuyor bunun için ne yapabilirim?

Listboxa aşağıdaki kodu yazarak deneyin.

Private Sub ListBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
For a = 0 To ListBox1.ListCount - 1
If UCase(Left(ListBox1.List(a, 2), 1)) = Chr(KeyCode) Then ListBox1.Selected(a) = True
Next
End Sub

 

[hamitcan]

Levent bey, teşekkürler. Gerçekten güzel bir çözüm.

 

[Murat_00]

işlerim yüzünden giremedim cevabınızı şimdi bakabildim hocam öncelikle ilgilendiğiniz için çok teşekkür ederim. verdiğiniz kodu uyguladım ama bende çalışmadı hocam. sebebi ne olabilir.

 

[hamitcan]

Hata nedir ?

 

[Murat_00]

Hocam; harfe bastığımda türkçe harf ise herhangi bir şey yapmıyor yani o harf ile başlayan satıra gitmiyor. diğerlerinde ise harfe tıkladığımda o harf ile başlayan en son veriyi işaretliyor.

 

[veyselemre]

Hamit hocam ilginiz için çok teşekkür ederim yanlız benim harfe göre aramak istediğim veri listboxun 3. kolonunda bulunuyor bunun için ne yapabilirim?

 ListBox1.MatchEntry =fmMatchEntryFirstLetter'İlk harfe göre ara

Bu özellikle birlikte

 TextColumn=2

işaretleyin,

Hocam; harfe bastığımda türkçe harf ise herhangi bir şey yapmıyor yani o harf ile başlayan satıra gitmiyor. diğerlerinde ise harfe tıkladığımda o harf ile başlayan en son veriyi işaretliyor.

Türkçe harf sorunu da olmayacaktır.

 

[hamitcan]

Tam ben de birşeyler yazacaktım. Sayın veyselemre, çözümü vermiş. Bu arada ben de birşeyler öğrendim.

 

[Murat_00]

Sayın Veysel hocam ve hamit hocam ilginiz için çok teşekkür ederim,
Veysel hocam dediğinizi yaptım sorunum çözüldü gibi sadece

TextColumn=3

yapınca oldu Teşekkürler
ama "İ" harfinde çalışmıyor garip olan "Ö" harfinde çalışıyor ama sadece "İ" harfinde çalışmıyor hocam bunun sebebi ne olabilir acaba?

 

[hamitcan]

Ben de çalıştı.

 

[veyselemre]

"İ" harfinde çalışmıyor garip olan "Ö" harfinde çalışıyor ama sadece "İ" harfinde çalışmıyor hocam bunun sebebi ne olabilir acaba?

Caps lock tuşuyla oynayın. "i" büyük harf olarak "I" dönmesinden kaynaklanan sorun olur.

 

[Murat_00]

haklısınız hocam çok teşekkür ederim sorun capslook tuşundan kaynaklanıyormuş