This events occurs when the down or left arrow button is clicked.
Sub UpDown_UpClick()
Sub UpDown_DownClick()
Sub UpDown_Change()
Using the UpClick and DownClick events, you can control exactly how the UpDown control scrolls through a series of values.
The Change event occurs whenever the Value property changes. The Value property can change through code, by clicking the arrow buttons, or by changing the value in a buddy control when the BuddyControl property is set.
For example, if you want to allow the end user to scroll rapidly upward through the values, but slower going down through the values, you can set reset the Increment property to different values, as shown below:
Ocx TextBox tb = "", 10, 10, 50, 15 : .BorderStyle = 1 : .ReadOnly = True
Ocx UpDown upd : .BuddyControl = tb : .Max = 100 : .Value = 10
Ocx Label upl = "<= upd", 65, 10, 120, 15
Ocx TextBox tb1 = "", 10, 30, 50, 15 : .BorderStyle = 1 : .ReadOnly = True
Ocx UpDown up1 : .BuddyControl = tb1 : .Max = 5 : .Value = 1
Ocx Label up1l = "Increment Value of upd", 65, 30, 120, 15
Ocx Label lbl = "", 10, 50, 140, 15
Do : Sleep : Until Me Is Nothing
Sub upd_UpClick
lbl.Caption = "upd Up Button Clicked"
EndSub
Sub upd_DownClick
lbl.Caption = "upd Down Button Clicked"
EndSub
Sub up1_Change
upd.Increment = up1.Value
EndSub
{Created by Sjouke Hamstra; Last updated: 25/10/2014 by James Gaite}