ListBox da (Mouse) RollerBall Kullanımı

[ECYavuz]

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

Bununla ilgili bir komut varmı dır?

 

[Haluk]

Bu iş için hazır bir komut veya olay VBA' de tanımlı değildir.

Konuyla ilgili olan ve arşivimde yer alan bir "alıntı" dosya ektedir.


.

 

[ECYavuz]

Teşekkürler...

Haluk Bey ilginize teşekkürler. Çok işime yarayacak. Sağolasın.

Bu arada sizin çalışmalarınız arasında Web den bilgi almak konusunda çalışmalarınız olduğunu biliyorum. Ufak bir ricam olacak "Futbol-Lig Puan Durumu Takip" konulu gönderdiğim soruya henüz bir yanıt alamadım.

Eğer varsa sizin bu konuda görüşlerinizi rica edeceğim.

 

[hsayar]

hocam güzel örnek bende teşekkür ederim... aynı şeyi vba penceresinde yapmak mümkün mü? sadece merak ettim

 

[Haluk]

hocam güzel örnek bende teşekkür ederim... aynı şeyi vba penceresinde yapmak mümkün mü? sadece merak ettim

Buraya bir göz atın ....

http://www.excel.web.tr/showthread.php?t=3223

 

[hsayar]

teşekkürler hocam

 

[hsayar]

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ı