[VB6] Slider User Control

[zeezee]

Hello Everyone.
This is my first ever post in Utility Bank. And this is my first ever User Control. Use this control as you want and modify as you like. I have tested this and works fine for now. How ever, bugs/ errors could occur when you execute this. Please give your feed back after using.

Title : Slider Control
Description : This control can be used as a silder control to get values between give Minimum Value and a Given Maximum Value. Control can handle Singel Pricision Floating Point Numbers , both positive and Negative. It can also be used in two orientations - Horizontal or Vertical. Check the Demo Project for more features

Feature list :

1. Generate Numbers From given Minimum Amount to given Maximum Amount
2. Supports for Single Pricision Floating Point Numbers
3. Supports Value rounding to given number of Decimal; Points
4. Supports For Negative Numbers
5. Supports Horizontol or Vertical Orientaion
6. Supports Key Board Navigation- Arrow keys and PageUp PageDown Keys
7. Back Colour and Slider Colour can be changed
8. Border Can Be Changed
9. Mouse Pointer Can be Changed
10. Increment Values can be changed

Screen-shots


Author name : Zeezee

System Requirements : Works in XP Professional with VB 6.0 SP5. Should work in Other Windows Versions also.

License info : Feels free to use or modify as you need. Give credit when used.
Code is supplied 'AS IS'. I will not be liable for any Loss of work or any damage occured by using this code/control.
No Malware/Spyware/Virus .

Last Update Date : 2007-11-11
Current Version : zzSlider Ver 1.02 Beta

Known Bugs :

1. ToolTip Doesnt Work
2. Smooth Scrolling not working. The test project, before the use control, changed values when the mouse was moving.
   In the user control, the slider movement is visible but value change only occurs when the mouse is released.
   Change event is raised in Value Change but still not working. needs to fix this.