Jobs
Author: Patrick Lockefeer Date Submitted: 7/23/2005 Category: Custom Controls Compatibility: VB 6 This code has been accessed 2569 times.
Email Yourself this snippet:
'No declarations 'Controls used : 'Frame control Name :Frame1 (put Slider and Label controls on this Frame) 'Slider control Name : SliderChange Properties : Min 0 Max 10 'Label control Name : lblSliderChange
Code
'Move the slider to enter the decimal values in the label Private Function SliderExact() 'Function Name is SliderExact Select Case SliderChange 'Name of Slider Case Is = 0 SliderExact = 0 'Value Case Is = 1 SliderExact = 0.01 Case Is = 2 SliderExact = 0.02 Case Is = 3 SliderExact = 0.03 Case Is = 4 SliderExact = 0.04 Case Is = 5 SliderExact = 0.05 Case Is = 6 SliderExact = 0.06 Case Is = 7 SliderExact = 0.07 Case Is = 8 SliderExact = 0.08 Case Is = 9 SliderExact = 0.09 Case Is = 10 SliderExact = 0.1 End Select End Function 'Slider Change event Private Sub SliderChange_Change() lblSliderChange = SliderExact 'Call function 'Show value in Frame caption Frame1.Caption = SliderExact End Sub