ScrollBar ın Sol ve Sağ Okları ile MultiPage in Pagelerini açıp kapama...

[ocamsul]

Arkadaşlar herkesi iyi günler iyi çalışmalar dilerim.
ScrollBar ın Sol ve Sağ Okları ile MultiPage in Pagelerini açıp kapama yani bi nevi ileri geri işlemi yapmak istiyorum. Nasıl yapabilirim?

 

[Halit TÜRK]

Merhaba

Private Sub CommandButton1_Click()
If MultiPage1.Value >= 1 Then
MultiPage1.Value = MultiPage1.Value - 1
End If
End Sub
Private Sub CommandButton2_Click()
If MultiPage1.Value < MultiPage1.Pages.Count - 1 Then
MultiPage1.Value = MultiPage1.Value + 1
End If
End Sub

 

[ocamsul]

Sn: htrk cevabınıza teşekkür ederim. Ancak benim yapmak istediğim Buton ile değil ScrollBar ın Sol ve Sağ Okları ile.

 

[Seyit Tiken]

Soruyu, sırayla Page'leri göstermek şeklinde anlıyorum. SpinButton ile aşağıdaki kodu deneyiniz.

Private Sub SpinButton1_SpinDown()
On Error Resume Next
MultiPage1.Value = SpinButton1
End Sub
--------------------------------
Private Sub SpinButton1_SpinUp()
On Error Resume Next
MultiPage1.Value = SpinButton1
End Sub

Not : Yeni farkettim. MultiPage'yi sayfa adedine göre genişliğini daraltın. Sağ/sol tırnakları kendiliğinde oluşacaktır.

 

[ocamsul]

SN: Seyit Tiken Yardımınız için teşekkür ederim.