|
| 
| Submitted on: 11/13/2001 3:53:33 PM
By: Carles P.V.
Level: Beginner
User Rating:
By 31 Users
Compatibility:VB 6.0
Users have accessed this code 8117 times.
| |
| | | Make your own slider. Complete graphical slider control: Vertical/Horizontal orientation, ShowValueTip option, Long values... Sample project and some images included.
| |
|
| |
|
Download code
Note: Due to the size or complexity of this submission, the author has submitted it as a .zip file to shorten your download time. Afterdownloading it, you will need a program like Winzipto decompress it.
Virus note:All files are scanned once-a-day by Planet Source Code for viruses,but new viruses come out every day, so no prevention program can catch 100% of them.
FOR YOUR OWN SAFETY, PLEASE:
1)Re-scan downloaded files using your personal virus checker before using it.
2)NEVER, EVER run compiled files (.exe's, .ocx's, .dll's etc.)--only run source code.
3)Scan the source code with Minnow's Project Scanner
If you don't have a virus scanner, you can get one at many places on the net including:McAfee.com
|
Terms of Agreement:
By using this code, you agree to the following terms...
1) You may use
this code in your own programs (and may compile it into a program and distribute it in compiled format for languages that allow it) freely and with no charge.
2) You MAY NOT redistribute this code (for example to a web site) without written permission from the original author. Failure to do so is a violation of copyright laws.
3) You may link to this code from another website, but ONLY if it is not wrapped in a frame.
4) You will abide by any additional copyright restrictions which the author may have placed in the code or code's description. |
Other 25 submission(s) by this author
|
|
| |
| Report Bad Submission |
|
| |
| Your Vote! |
|
See Voting Log |
| |
| Other User Comments |
11/13/2001 6:25:00 PM:Steve H.
Nicely Done! Now if be nice if
Microsoft would follow this example and
create a slide control that supports
something other than Integer values.
Hint... Hint... Microsoft!
|
11/13/2001 6:25:54 PM:Steve H.
Nicely Done! Now it would be nice if
Microsoft would follow this example and
create a slide control that supports
something other than Integer values.
Hint... Hint... Microsoft!
|
11/13/2001 8:42:00 PM:Carles P.V.
Thanks!...
...It would be nice.
|
11/13/2001 9:25:04 PM:Thushan Fernando
ahhhh another classical hit by the man
who brought us the awesum button.
Thanks for sharing it with us! 5 gL0Be$
|
11/14/2001 6:05:51 AM:Carles P.V.
Resize fixed.
Last upd.: 11/14
|
11/15/2001 4:42:25 AM:Zhu JinYong
Real nice Slider.how to get updated
one?
Thanks.
|
11/15/2001 2:12:05 PM:Carles P.V.
Thanks.
The zip is updated.
|
11/15/2001 9:27:57 PM:Al Moledina
did it again! Carles. Another 5
|
11/16/2001 1:34:53 AM:Hybrid
Excellent work!!
I think you should
make a toolbar or listbox control next
to complete your set!!
|
11/16/2001 3:27:24 AM:Carles P.V.
A ListBox control will be the
next...
Thanks Al, thanks Hybrid.
|
11/16/2001 7:57:32 AM:michael
Hello Carles,
>
Your Slider control
is excellent,
I give you 5 globes for
this work.
>
Suggestion:
Make a
scale (with 'GDI' functions)
optional
'Visible or not'
'...
Indent your
Code and use more
'With'
statement`s.
>
Any suggestion
For your next project`s
small Toolbar,
Listbox, Statusbar, a small
PrintPreview(50-80Kb)
>
>
Thanks for
share your work.
|
11/16/2001 8:02:20 AM:Carles P.V.
Thanks to you, Michael.
|
11/27/2001 9:07:48 AM:SuPA KrAka
I couldn't find the OCX in the Zip
File. PLZ Help!!!
THANX!!
|
11/27/2001 12:54:08 PM:Carles P.V.
This site does not accept compiled
files (EXE's, DLL's, OCX's).
These are
automatically deleted from submissions
to prevent viruses.
Open "Start.vbg"
and compile it...
|
11/28/2001 7:24:13 PM:G.
Looking forward to the listbox, Carles
:)
G.
|
11/29/2001 7:03:26 AM:Carles P.V.
Next moth...
|
11/29/2001 7:05:47 AM:Carles P.V.
Sorry, ... next month.
|
11/30/2001 12:06:21 AM:Shafeek mohammed
one thing is missing in this slider. In
other slider controls, if you click on
the rail anywhere, slider will move to
that position(see vb slider or winamp).
This will make this slider perfect.
Anyway 5*
|
11/30/2001 4:13:12 AM:Carles P.V.
Yes, you are right.
I'm going to add
it today. I'll post a comment to notice
the update.
Thanks.
|
11/30/2001 7:37:03 AM:Carles P.V.
Zip updated.
See changes in
MouseDown and MouseUp events.
|
3/8/2002 6:31:21 AM:Mike
The paths are a bit screwy :) but looks
nice
|
3/14/2002 11:15:04 AM:Elias Barbosa
What can I say? IMPRESSIVE!
A little
tip, though. Before zipping your files
to upload, open the project files with
Notepad and delete the absolute
reference to the files. The files
reference should always be relative if
you want your project to work right
away on other computer. What I got when
I opened your project was a series of
error messages saying that the forms
where not found.
Exemple:
Form=..\..\..\..\..\Arch
ivos de programa\Microsoft Visual
Studio\VB
Carles\Controls\cpvSlider\Test1.frm
S
hould be:
Form:Test1.frm
You
shouldn’t worry about the
line:
Reference=*\G{00020430-0000-000
0-C000-000000000046}#2.0#0#..\..\..\..\.
.\WINDOWS\SYSTEM\stdole2.tlb#OLE
Automation
Visual Basic will correct
the OLE reference automatically.
You
should include a shot from the mixer on
your screen shot.
You are getting
five planets from me!
|
3/14/2002 11:37:43 AM:Carles P.V.
Ooops, you are right.
I've forgot
it.
I'm going to fix now.
|
3/19/2002 7:22:07 AM:Mike
Great slider, but i want to set up the
graphics at runtime, not at design
stage.
usually i would do
blah.picture =
LoadPicture(Variable)
but this does
not work for railpicture of slidericon.
could you add this?
Thanx
|
5/18/2002 12:43:40 PM:Vlad Vissoultchev
oops,
1) .Move x * 15, y * 15 in
Function ShowTip is absolutely NOT
working for large fonts
(Screen.TwipsPerPixelX = 12:-)) so i
get a pretty displaced tooltip. Use
Screen.TwipsPerXXXX props.
2) in
UserControl_MouseMove don't just count
on SliderHooked for mousecapture. your
usercontrol could have gotten
WM_CANCELMODE and the capture will be
released. instead put a simple check
for vbLeftButton still being pressed in
the beginning of the event like this:
If (Button And vbLeftButton) = 0 Then
SliderHooked = False. E.g. Press and
hold left mouse put and drag the
slider. Then WITHOUT releasing it press
Ctrl+Esc. Release button. Try to move
the mouse (with released button) over
the control.
3) Mind that Button
checks should be bitmask compares and
not test for equality. Test your slider
code this way. Press and hold left
button and drag slider. Then WITHOUT
releasing it press right :-)) "strange
behaviour you get!" (Episode
II?)
HTH,
Nice coding,
btw.
</wqw>
|
5/24/2002 1:30:33 PM:Ryan
Would there be a way to make it so the
background was transparent?
|
5/24/2002 1:39:49 PM:Ryan
Nevermind, I figured it out, This thing
is awesome, 5 globes
|
5/28/2002 6:34:22 AM:HoLaLou
Great work but can't get the OCX to
install on a client, works fine at
design time, runtime throws an error,
saying not correctly registered, or
files missing (this is on Win95 and 2K)
|
8/21/2002 4:34:48 PM:Don
Nice job. I compile the Start project
into an ocx control; however when I try
to use the new ocx component, the
standard rail and slider icon images do
not show up and I get a Run-Time error
'50003': Unexpected error. Is there a
reference that was coded to look in a
particular directory for these
images?
Thanks in advance
|
9/27/2002 12:27:25 PM:[\DReY\]
Hi Carles.
This is a great slider.
adn im used into my mp3 player. please
evaluate it Searching "DRey MP3 PlayeR"
in PSC search box. Thanks.
|
|
| Add Your Feedback! |
Note:Not only will your feedback be posted, but an email will be sent to the code's author in your name.
NOTICE: The author of this code has been kind enough to share it with you. If you have a criticism, please state it politely or it will be deleted.
For feedback not related to this particular code, please click here.
|
|
