Search Tools Links Login

Slider Mixer Control Upgrade v3.5

The original author of this code is Mike Payne. Kenneth Foster expanded his work, adding the horizontal style and several more properties. 

Version 3.5: 
When drawing a new control, the code looks at the aspect ratio of the new control and sets the Style property accordingly. 
Toggling the Style property of the control swaps the width/height dimensions, thus preventing the control from shrinking to a small square as in previous versions. 

Version 3.4: The Enable property has been added. I can't believe I overlooked that one. There is another zip file in the main zip file called It is the same control as the main control except it does not have colored buttons. 
See the readme.txt in the zip file for more information. 

Version 3.3: 
A non-fatal calculation error that only occurred when changing the style and button size while in the IDE has been fixed. The slider now has colored buttons. 

Version 3.2: 
Thanks to ThePiper for pointing out a crash when using large values for Min/Max/Value. This has been fixed. 

Version 3.1: 
I cleaned up the ReDraw, DrawPicAtValue, and OneIncrement code. 
The original tick marks would draw every n pixels. I changed them to be evenly spaced apart. By setting the TickMarkCnt = Max - Min - 1, the slider will snap to the tick marks. 

Version 3.0: 
I added the Border on/off property, the Min property, corrected a minor bug in the border drawing procedure and added a little error checking when reading property values.

About this post

Posted: 2020-08-31
By: vb6boy
Viewed: 249 times


Visual Basic 6

Posted: 8/31/2020 2:39:02 PM
Size: 141,063 bytes

Loading Comments ...


No comments have been added for this post.

You must be logged in to make a comment.