ComboBox da (Mouse) RollerBall [Döndürme tekerleği) Kullanımı

[hsayar]

Hazırladığımız ComboBox da Mouse RollerBall ile aşağı-yukarı hareket mümkün mü?

Bununla ilgili bir komut varmı dır?

http://www.excel.web.tr/showthread.php?t=42302 linkinde işlenen listboxta tekerlek konusunu inceledim combobox için beceremedim

ikinci mesajda sn. halukun vermiş olduğu cevabı değiştirmeye çalıştım
combobox larda fare tekerleğini kaydırmak mümkünmü ben denedim beceremedim

Private Sub UserForm_Initialize()
Dim a, i
Set s1 = Sheets("ilveilce")
a = s1.Range("b2:b" & s1.[b65536].End(3).Row).Value
With CreateObject("Scripting.Dictionary")
    .CompareMode = vbTextCompare
    For i = 1 To UBound(a, 1)
        If Not IsEmpty(a(i, 1)) And Not .exists(a(i, 1)) Then .Add a(i, 1), Nothing
    Next
ComboBox1.Clear
ComboBox1.List = .keys
ComboBox1.ListIndex = 0
End With

Dim lCounter As Long
For lCounter = 1 To 2000

ComboBox1.AddItem lCounter
ComboBox2.AddItem lCounter
ComboBox3.AddItem lCounter
Next lCounter
HookWheel Me, Me.Width, Me.Height, 3

Set s1 = Nothing
End Sub

örneğinizdeki modülü kendi kitabıma kopyaldım
initalizeyide birleştirdim olmadı

 

[hsayar]

umarım yardımcı olacak bir arklaaşımız çıkar

 

[Haluk]

Aşağıdaki linke tıklayınız ...

http://www.excel.web.tr/showthread.php?p=231945#post231945

.

 

[hsayar]

hocam çok teşekkür ederim.
bunu eklenti haline dönüştürebilirmiyiz acaba biliyorum fazla oluyorum ama

 

[Haluk]

Merhaba;

Yukarıdaki linkte yer alan dosyayı eklenti olarak kullanmak için, bu mesaj ekindeki Desktop.zip dosyasını indirin ve içindeki MouseWheel.xla dosyasını Excel'e eklenti olarak tanıtın.

Daha sonra, bu eklentinin kullanılmasına yönelik olarak, yine Desktop.zip dosyasındaki Test.xls dosyasını açın. Bu dosyadaki UserForm' u çalıştırın ve üzerindeki ListBox, ComboBox nesnelerinde farenin tekerliğini kullanmaya başlayın ....


.

 

[hsayar]

teşekkürler hocam

 

[oktaykarauzun]

bu konuyla ilgili bazı arkadaşlar için linkler göndermiştim. tekrar gönderiyorum. inceleyerek konuyu çözebilirsin.
http://www.excel.web.tr/showthread.php?t=42575&highlight=mousewheel

 

[hsayar]

http://www.excel.web.tr/showthread.php?t=16879&highlight=mousewheel
http://www.excel.web.tr/showthread.php?t=38890&highlight=mousewheel
http://www.excel.web.tr/showthread.php?t=29454&highlight=mousewheel
http://www.tek-tips.com/viewthread.cfm?qid=192036&page=1
fare tekerleğinin hareketini sınırlamak isteyenler yukardaki linklerden konulara ulaşabilir.
oktaykarauzun arkadaşımnaza teşekkür ederim

 

[ECYavuz]

Hepinize çok teşekkürler...

 

[cem yılmaz]

Sn Haluk kodlarınızı userformuma ekledim fakat combobo'u ilerletmeye çalıştığımda atlamalı olarak çalışıyor mesela comboboxta 1 den 10'a kadar sayılar olduğunu düşünürsek 1-4-7-10 şeklinde ilerliyor. Bunun nedeni nedir?

 

[Korhan Ayhan]

Selamlar,

Sn. cem yılmaz,

Ben linkteki dosyayı denedim ve listedeki kayıtlar birer birer hareket ediyor. Denetim masası ayarlarından mouese tekerlek ayarımda 3 işaretli sizde kendi ayarlarınızı kontrol ediniz.

 

[Haluk]

Cem bey;

Aşağıdaki kod satırında yer alan 1 parametresi, mouse'un scroll sırasında kaç satır atlayacağını belirtir. Belki bu değer sizde 3 olabilir, bir kontrol edin derim.

HookWheel Me, Me.Width, Me.Height, [COLOR=red][B]1[/B][/COLOR]

İyi günler,

 

[cem yılmaz]

Sn haluk dediğiniz gibi yükseklik ayarını 3 den 1 e çektiğimiz zaman problem ortadan kalkıyor.
Sizin yapmış olduğunuz çalışmada listbox belli bir yerden sonra aşağı doğru ilerlemiyor mesela imleç 950'de aşağı doğru ilerleyin 995'e geldiğiniz zaman aşağıya doğru ilerlemiyor.Sn Korhan Hocamın yaptığı çalışmada ise sadece listbox olayı var.Ben kendi çapımda düzenleme yapmaya çalıştım fakat sürekli hata ile karşılaştım.Sizin yapmış olduğunuz çalışma ile korhan hocamın yaptığı çalışma arasında bazı farklılıklar buldum ve değiştirmeye çalıştım olmadı.Mesela aşağıdaki kodlar iki çalışma modülünde farklı.Sizden şöyle bişey rica edebilirmiyim.Listbox mouse tekerleği aşağı yukarı olayı korhan hocamın çalışmasındaki gibi olmasını ve ilaveten sizin çalışmanızda bulunan combobox ile ilerleme olayınında olmasını rica edebilirmiyim.Bu tür bir düzenleme için bana yardımcı olurmusunuz?

If TypeOf ctlName Is msForms.ListBox Or TypeOf ctlName Is msForms.ComboBox Or TypeOf ctlName Is msForms.TextBox Then

'set the new top index
If lTopIndex < 0 Then lTopIndex = 0

.ListIndex = lTopIndex
'scroll has been handled so stop looping
Exit Sub

 

[Haluk]

Merhaba;

Benim önerdiğim kodlarda aşağıdaki satırı

ElseIf lTopIndex > .ListCount - (.Height / 10) + 2 Then

bununla değiştirip, bir deneyin..

ElseIf lTopIndex > .ListCount Then

.

 

[cem yılmaz]

Özür dilerim yanlış oldu

 

[cem yılmaz]

Sn haluk bey dediğinizi yaptım oldu.Son bir sorum daha olucak.resimdeki gibi mavi etiketli olan imleç ilerlemesinde mousenin tekerleğini aşağı yukarı yapınca yanda bulunan kaydırma çubuğu ilerlesin.Bu mümkünmüdür?

 

[cem yılmaz]

Sn Haluk.Eminimki küçük bir düzeltmeyle bu problem çözülebilir.Yardımlarınızı rica ediyorum.

 

[Haluk]

Cem bey;

Bahsettiğiniz resmi göremiyorum ama herhalde konuyla ilgilenen diğer üyeler yardımcı olacaktır.

Açıkçası çok fazla da ilgilenmek istemiyorum zira, bu tip Excel işlerinden sıkıldım. Dönüp, dolaşıp aynı şeyler...

Umarım beni anlarsınız, kolay gelsin...

 

[cem yılmaz]

Peki haluk bey teşekkür ederim.Size de iyi çalışmalar