>I'm working on a slider control:
>
http://www.geocities.com/kevin.marois/slider/dragdrop1.jpg>
>I can't seem to get the thumb to work right.
>
>See this:
>
http://www.geocities.com/kevin.marois/slider/test.zip>
>Anyone know how to go about this?
Hi Kevin,
Great Idea !
Just replace the code you have in your MouseMove() event from the CommandButton inside the container with the code below:
LPARAMETERS nButton, nShift, nXCoord, nYCoord
IF nButton <> 1
RETURN
ENDIF
IF nXCoord <= This.Parent.Left
nXCoord = This.Parent.Left
ENDIF
IF nXCoord >= This.Parent.Left + This.Parent.Width - This.Width
nXCoord = This.Parent.Left + This.Parent.Width - This.Width
ENDIF
This.Left = nXCoord - This.Parent.Left
RETURN
Hope this helps
Cesar