|
|
|
| |
|
 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 |
12/8/2001 1:58:50 PM:gonchuki
nice code! i have been working in
something similar for a few months...
but your's seems to be better...
|
12/8/2001 2:53:29 PM:Carles P.V.
Thanks again,
A lot of
hours...
But, I've had one problem:
ImageList (well, really, more than
one...).
I'd like to show all
ImageList controls on parent form in a
property page.
...
Congratulations for your Button control
of last month!
|
12/8/2001 3:34:14 PM:Omar Dixon
Another Great job again!
Keep you the
good work Charles..
|
12/8/2001 3:35:53 PM:Omar Dixon (OmarSwan)
I meant keep it up!
|
12/8/2001 4:07:19 PM:Carles P.V.
Ok, thanks.
|
12/8/2001 4:32:41 PM:Refik
This is great brotha! I really like,
well I will try it now! You will get 5
Globes from me! Perfect job done keep
up the good work
|
12/9/2001 12:46:42 PM:michael
Hello Carles,
>
What can I say
?
Very nice control and a excellent
work,
you have 5 star`s from me.
|
12/9/2001 1:23:02 PM:Carles P.V.
Hello Michael,
Thanks again.
|
12/10/2001 9:07:39 AM:s amditis
Excellent work. Couldn't use the
gradients though. Missing msimg.dll.
|
12/10/2001 2:28:05 PM:raf
Very nice ocx, got 5 from me. However,
I would add few more standard
properties to it:
1. Border Color
(VERY IMPORTANT)
2. Border Styles
(Raised, Frame etc)
3. Background
Picture (not so important)
anyhow,
good job
raf
|
12/10/2001 2:55:02 PM:Carles P.V.
Raf:
Thanks,
I'll add these
border properties next
version.
Probably too:
New select
styles, hor. scroll bar, enable/disable
item/s, icon aligments, new
effects.
About background picture
(I'll add to). Meanwhile, you can
generate two pictures (same size as
item), and use them as selected and
unselected item.
|
12/10/2001 6:50:12 PM:Chris O'Hara
You really are a pro man
|
12/10/2001 7:34:38 PM:Carles P.V.
But, always, all can be improved. There
are ways, and better ways, to do
something. The only problem is know
them... and there are lots to
learn.
Anyway, thanks again.
|
12/11/2001 10:11:50 AM:ßrunø It@lianinø
no comments! good control!
|
12/11/2001 10:31:41 AM:Carles P.V.
Good comment!
|
12/12/2001 12:18:09 AM:Kenny Lai, Lai Ho Wa
Excellent! I will never use the M$
listbox again.
|
12/12/2001 5:33:23 AM:Carles P.V.
Well, it's an option...
|
12/15/2001 1:56:31 AM:Yusuf Simonson
Best list i've ever seen, but that
doesn't take much ^_^. 5'er!
|
12/15/2001 2:32:32 AM:Yusuf Simonson
By the way... how do you get icons in
the list?
|
12/15/2001 11:47:38 AM:Carles P.V.
Yusuf: Thanks.
"Pointing to" an
ImageList control.
See <SetImageList>
method.
I've tried to get all
ImageList controls from parent form to
a property page, and let select desired
one like TreeView or ListView do, ...
but I haven't got how to do it.
|
12/17/2001 8:53:05 PM:Emperor Frollard
Call me a NewB...but
I CANNOT get
this to work.
I get:
2x"error during
load, refer to the logfile"
1x"Invalid
property value" pointing to Ln43..."
cmbAlignment.ListIndex =
.Alignment"
any thoughts?
Hope you
can help me because this thing is
awesome!
P.S. if you know how to
help, email me (jfrost@monarch.net) how
to do it, because whether or not I can
get back into this page is uncertain.
Thanks!!!
|
12/24/2001 6:34:47 PM:Grout
Hey, could you send me the OCX.
Thanks
|
2/7/2002 7:42:16 AM:David Peake
Hi Charles,
I'm experiencing problems
when removing item from the list....
When I select the last item and remove
it, the text & icon remain in the
control but are unselectable, the
'ghost' stays there until the list is
completely empty.
Any ides?
Dave
|
2/7/2002 7:47:21 AM:David Peake
Hi Charles, I've found out the problem,
here's the fix:
Public Sub
RemoveItem(Index As Integer)
If
UBound(List) = 0 Or Index >
UBound(List) - 1 Then Err.Raise 381 _
If Index <=
UBound(List) - 1 Then ........
It's
the above if statement needed changing
to '<=' from '<'
Dave
|
2/7/2002 11:24:29 AM:Carles P.V.
David: Thanks!
Zip is updated.
|
2/7/2002 4:50:05 PM:Carles P.V.
Fixed: Repaints on resize.
|
2/7/2002 4:52:45 PM:Carles P.V.
Really fixed: Resize.
(Crashed on
minimizing parent form)
|
2/26/2002 8:58:25 PM:Glenn L Hasley
Can you pleae not give this code out
for free? I mean how is anyone every
supposed to make any money if everyone
is giving code away for free?
Very
cool OCX but you shouldnt just give
away the code. You can give away the
control... but NOT THE CODE! :(
|
3/14/2002 12:16:45 PM:Elias Barbosa
Excellent.
Five planets from me!
|
4/9/2002 4:24:20 PM:Kristof Torfs
WOW!!!!
|
4/15/2002 2:24:28 PM:tony
i've just come across you coollist
control - WOW - this code is absolutely
fantastic - can't say enough - probably
the most useful piece of code on psc -
excellent*****
|
5/18/2002 6:58:51 AM:Vlad Vissoultchev
about imagelists: make a Friend
Property Get ParentControls() As
ParentControls on the control and use
it from the property page to enumerate
the controls on the form and filter
imagelists in a combobox. Then use the
Name of the imagelist control to
persist user selection as control
property. Later at run-time access
ParentControls to find the
imagelist.
HTH,
|
5/24/2002 8:05:00 AM:CyAnShaDoW
Very nice.... very very nice
|
5/24/2002 10:32:58 AM:O. Brightman
I think Glenn is missing the whole
point of this site.
|
5/24/2002 3:49:02 PM:JccSoft
excellent work, 5 globs from me.
|
5/25/2002 6:44:03 AM:John Galanopoulos
Excellent Excellent Excellent. 1000000
if i could. Keep up.
|
5/25/2002 4:00:14 PM:Al Moledina
Great!! Carles *****
|
5/26/2002 5:29:14 PM:Eugene
is there a way i can load and save the
listbox?
|
5/26/2002 5:58:25 PM:Eugene
I just made a module to save and load
from the CoolList, it saves the icon
integer too !
Public Sub
xSaveCLList(FileName As String, List As
cpvCoolList)
On Error Resume
Next
Dim lngSave As Integer
If FileName$ = "" Then Exit Sub
Open FileName$ For Output As
#1
For lngSave = 0 To
List.ListCount - 1
Print
#1, List.ItemText(lngSave) & "|" &
List.ItemIcon(lngSave)
Next
lngSave
Close #1
End Sub
Public
Sub xLoadCLList(FileName As String,
List As cpvCoolList, Clear As
Boolean)
If Clear = True
Then List.Clear
Dim lstInput As
String
Dim X As Integer
On
Error Resume Next
Open FileName$
For Input As #1
While Not EOF(1)
Input #1, lstInput$
X = InStr(1, lstInput$, "|")
List.AddItem
Mid(lstInput$, 1, X - 1),
Mid(lstInput$, X + 1, Len(lstInput$)),
Mid(lstInput$, X + 1, Len(lstInput$))
Wend
Close #1
End
Sub
|
5/27/2002 3:33:32 AM:Carles P.V.
Eugene:
Or, if you want: Add these
two methods in UserControl...
Public
Sub LoadList(ByVal Filename As
String)
Dim ff As Integer
Dim ni As
Integer
Clear
ff
= FreeFile
Open Filename For
Binary As #ff
Get #ff, , ni
ReDim List(ni)
Get #ff, ,
List
ReDim Selected(ni)
Get #ff, , Selected
Close #ff
ff = 0
ReadjustScrollBar
End Sub
Public
Sub SaveList(ByVal Filename As
String)
Dim ni As Integer
Dim ff As
Integer
ni = UBound(List)
ff = FreeFile
Open
Filename For Binary As #ff
Put
#ff, , ni
Put #ff, , List
Put #ff, , Selected
Close #ff
ff = 0
End Sub
|
5/27/2002 3:39:48 AM:Carles P.V.
Anyway, if you want to locate these
subs out of OCX, you can use 'Item'
type.
Dim m_Item as Item
...
|
6/18/2002 7:27:23 AM:David Peake
Hi Charles,
I'm still amazed at this
listbox. Any thoughts on adding
columns? (aka MS ListView Report Mode)
??
Cheers
Dave
|
7/5/2002 11:35:39 AM:StephanLudwig@t-online.de
Super OCX,
I have added a function so
that the user can decide if the
scrollbar shall be shown. This is
useful if somebody uses Your OCX in an
OSD application.
Again Great
Work
Stephan
|
7/24/2002 10:28:58 PM:Paul Hendryx
I cant get it to work in WinXP Pro. It
works find during design time, but the
exe fails when its compiled.
|
9/10/2002 11:33:33 AM:
same as Paul Hendryx. If I compile the
OCX start a new project add the
cpvCoolList to a form and run from IDE
the IDE crashes in both win98 and
win2000 ??.
Looks really good and
works fine in the demo project so I
hope I can get this to work, you got 5
globs from me.
|
10/14/2002 3:05:55 PM:
Could you please send me the OCX for
the cpvCoolList. Thanks, it's great...
|
12/9/2002 3:49:38 AM:
This code is absolutely
fantastic.
Could I get the OCX that
may not be crashed in both win2000 and
winXP?
Thanks.....
|
12/9/2002 4:05:48 AM:
This code is absolutely
fantastic.
Could I get the OCX that
may not be crashed in both win2000 and
winXP?
My email address is
alphee@naver.com
Thanks.....
|
2/18/2003 3:25:49 AM:
Very very good work.
But If I compile
the
OCX and then add the
cpvCoolList to a form and run from
IDE
the IDE crashes in both win98 and
winXP? Could you tell me that am i
doing wrong? or send me the OCX at
svagelis@hotmail.com
Thanks
Anyway.....
|
|
| 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.
|
|
