Returns or sets a value that specifies the number of months that are scrolled when the user clicks one of the scroll buttons in a MonthView Ocx.
MonthView.ScrollRate [= number]
The ScrollRate property specifies the number of months that are scrolled at once. The ScrollRate property allows the user to scroll more than one month at a time.
Local Int32 h, w, w1
OpenW 1
Ocx MonthView mvw
~mvw.ComputeControlSize(1, 1, w, h) : w1 = TextWidth("Scroll Rate: ")
Ocx Label lbl = "Scroll Rate:", w + 20, 10, w1, 14
Ocx TextBox tb = "", w + w1 + 20, 10, 60, 14 : .BorderStyle = 1 ': .ReadOnly = True
Ocx UpDown up : up.BuddyControl = tb : .Increment = 1 : .Min = 1 : .Max = 12 : .Value = mvw.ScrollRate
Do : Sleep : Until Win_1 Is Nothing
Sub up_Change
mvw.ScrollRate = up.Value
EndSub
{Created by Sjouke Hamstra; Last updated: 22/10/2014 by James Gaite}