• DİKKAT

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

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

  • Konbuyu başlatan Konbuyu başlatan hsayar
  • Başlangıç tarihi Başlangıç tarihi
H

hsayar

Katılım
2 Mart 2005
Mesajlar
2,960
Excel Vers. ve Dili
ev: Ofis 2007- Win Xp
iş: Ofis 2010- Win Vista
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
Kod: 
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ı
 
umarım yardımcı olacak bir arklaaşımız çıkar
 
hocam çok teşekkür ederim.
bunu eklenti haline dönüştürebilirmiyiz acaba biliyorum fazla oluyorum ama
 
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 ....


.
 
teşekkürler hocam
 
Hepinize çok teşekkürler...
 
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?
 
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.
 
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.


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



İyi günler,
 
Son düzenleme:
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?
Kod: 
If TypeOf ctlName Is msForms.ListBox Or TypeOf ctlName Is msForms.ComboBox Or TypeOf ctlName Is msForms.TextBox Then

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

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

Ekli dosyalar

Merhaba;

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

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

bununla değiştirip, bir deneyin..

Kod: 
ElseIf lTopIndex > .ListCount Then

.
 
adszphl.jpg


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?
 
Sn Haluk.Eminimki küçük bir düzeltmeyle bu problem çözülebilir.Yardımlarınızı rica ediyorum.
 
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...
 
Peki haluk bey teşekkür ederim.Size de iyi çalışmalar
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst