Spinbutton ile Listbox

[fehdur]

Arkadaşlar internetde bulunmayan konulardan biri.Oluşturduğum Listbox1 de 1-10 arası sayılar var bunlar arasında spinbutton ile yukardan aşağıya veya aşağıdan yukarıya doğru nasıl geçiş yapabilirim.Eğer bu mümkün değilse mause tekerleği ile de çalışabilirim.Şimdiden Teşekkürler.

 

[Seyit Tiken]

Kodu kendinize uyarlayınız.

Private Sub SpinButton1_SpinDown()
If Me.ListBox1.ListIndex = 9 Then Exit Sub
Sayfa1.ListBox1.ListIndex = Sayfa1.ListBox1.ListIndex + 1
End Sub
Private Sub SpinButton1_SpinUp()
If Me.ListBox1.ListIndex = 0 Then Exit Sub
Sayfa1.ListBox1.ListIndex = Sayfa1.ListBox1.ListIndex - 1
End Sub

 

[fehdur]

Kod için teşekkürler mümkünse bir de scroolbar için de yazabilir misin.

 

[fehdur]

Listbox1 click olayında kod var.Spinbutton veya scrollbar ile gezinirken kod çalışmasın istiyorum nasıl yapabiliriz.

 

[Seyit Tiken]

Aşağıdaki kodu kendinize uyarlayınız. Bu soruyu VBA bölümünde sormanız lazımdı.

Private Sub SpinButton1_SpinDown()
On Error Resume Next
If Me.ScrollBar1 = 0 Then Exit Sub
Me.ScrollBar1.Value = Me.ScrollBar1.Value - 1
End Sub
Private Sub SpinButton1_SpinUp()
On Error Resume Next
If Me.ScrollBar1 = 10 Then Exit Sub
Me.ScrollBar1.Value = Me.ScrollBar1.Value + 1
End Sub