Quick Search for:  in language:    
Display,real,Office,like,icon,menus,Source,co
   Code/Articles » |  Newest/Best » |  Community » |  Jobs » |  Other » |  Goto » | 
CategoriesSearch Newest CodeCoding ContestCode of the DayAsk A ProJobsUpload
Visual Basic Stats

 Code: 3,014,970. lines
 Jobs: 119. postings

 How to support the site

 
Sponsored by:

 

You are in:

 
Login



Latest Code Ticker for Visual Basic.
Excel Into a webpage
By Bill Donahue on 7/2


Unroll2 - Update
By Cyber Chris on 7/2


MultilinePWD
By Cyber Chris on 7/2


Click here to see a screenshot of this code!Song/Poem Assistant
By Peter Rowan on 7/2

(Screen Shot)

Click here to see a screenshot of this code!GPA Cal
By KBM-00 on 7/2

(Screen Shot)

Click here to see a screenshot of this code!Connection Via the Telephone line.No internet or cable.Just the telephone line
By Nass ClickMan on 7/2

(Screen Shot)

DBTool
By Make Strömberg on 7/2


Click here to see a screenshot of this code!MSChart Simple Example
By Sebastian Pereira on 7/2

(Screen Shot)

CString v1.5
By Ultimatum on 7/2


Click here to put this ticker on your site!


Add this ticker to your desktop!


Daily Code Email
To join the 'Code of the Day' Mailing List click here!





Affiliate Sites



 
 
   

CoolMenu (real icon menus)

Print
Email
 
winzip icon
Submitted on: 5/9/2000 9:54:47 AM
By: Olivier Martin 
Level: Advanced
User Rating: By 32 Users
Compatibility:VB 5.0, VB 6.0

Users have accessed this code 16358 times.
 
 
     <p>Display real Office like icon menus.</p> Source code based on Paul DiLascia's work from the Microsoft System Journal (Jan98); ported from VC++ to VB by me + some adaptation. visit www.dilascia.com<br> <p>**Features:<br> Real Office like icon menus;<br> Partial Win98 main menu effect in Win95 (need help for full effect if possible);<br> Embossed pictures in color (thanks Paul);<br> Uses the form's font (~and style attributes);<br> Working "local" and "global" accelerators (&, Ctrl+?);<br> Easy interfacing between ImageList and VB's Menu Editor;</p> Take a look at the screen shot !

 
winzip iconDownload 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 2 submission(s) by this author

 

 
Report Bad Submission
Use this form to notify us if this entry should be deleted (i.e contains no code, is a virus, etc.).
Reason:
 
Your Vote!

What do you think of this code(in the Advanced category)?
(The code with your highest vote will win this month's coding contest!)
Excellent  Good  Average  Below Average  Poor See Voting Log
 
Other User Comments
5/9/2000 12:32:24 PM:Omar
Hi This is A Very Great Code.
Can I 
Please Have Your PERMISSION TO Post 
This Code On My Web 
Sit?
http://www.omarswan.cjb.net
Keep the Planet clean! If this comment was disrespectful, please report it:
Reason:

 
5/9/2000 12:34:01 PM:Pete Sral
This is it!  Code that uses the 
ImageList and the use of the Tab in the 
ImageList (great idea!!!).  No more 
picture boxes, no more picture arrays!  
Great code!
Keep the Planet clean! If this comment was disrespectful, please report it:
Reason:

 
5/9/2000 12:54:37 PM:Olivier
Go ahead and post it, just make a link 
to this site with my name somewhere
Keep the Planet clean! If this comment was disrespectful, please report it:
Reason:

 
5/9/2000 3:00:10 PM:OmarSwan
Hi Oliver It's Me Again.
First I must 
Thank you for giving me the permission 
to post the code on my web site. 
Do 
you have any tutorials or information 
as to how to impement this in another 
program. (for example : - What f the 
user does not want to use the imagelist 
control, what can he/she use 
instead)
Thanks Again.
May God 
Bless You
Keep the Planet clean! If this comment was disrespectful, please report it:
Reason:

 
5/9/2000 4:27:43 PM:siph0n
great code, very easy to use and change 
for programmers needs.  make sure you 
end the program by unload the form and 
not using the stop command in the IDE 
or VB will shutdown because it has to 
unload the class.
Keep the Planet clean! If this comment was disrespectful, please report it:
Reason:

 
5/9/2000 6:38:25 PM:Olivier
Well Omar, the use of the ImageList is 
hardcoded in the CoolMenu class.  That 
is, the icons are extracted and drawn 
using API calls in the DrawItem 
function.  The main purpose of the 
imagelist is to spare the user the 
complecated task of collecting images 
in one location.
Keep the Planet clean! If this comment was disrespectful, please report it:
Reason:

 
5/10/2000 8:11:15 AM:Olivier Martin
Double oops...  a few minutes ago I 
accidently delete a comment from Pietro 
Cecchi (cecchi@etrurianet.it) that said 
:
Hi Oliver,
at the end someone who 
cares of elegance!
I just downloaded 
your code, and I saw that frmtest.frx 
is missed (that contains the 
icons).
Please send it to 
me.
Besides, I would ask you if it is 
possible to add a MenuItem_MouseMove 
event, to serve a help text box with 
the meaning of the menu item, while the 
cursor goes on it.
A 
MenusItem_Forecolor Property (id est 
same forecolor as the one of the form) 
also, would be very nice to 
have!
Sorry about that, I fixed the 
zip and reposted it.  I'll start 
working on the suggested improvement 
and will propably post a CoolMenu 
update soon.  For those of you who want 
to try it, go play with OnMenuSelect 
and OnDrawItem
Keep the Planet clean! If this comment was disrespectful, please report it:
Reason:

 
5/10/2000 11:55:22 AM:VBMoose
Probably the best icon menu code I've 
seen.. I turned it into an activeX 
control in no time. Works like a charm.
Keep the Planet clean! If this comment was disrespectful, please report it:
Reason:

 
5/10/2000 10:43:32 PM:Jeffrey Drake
I have tried to integrate your menu 
code into my program, but it gives an 
illegal function call. I have to try to 
stop the program or debug but I can't 
see where it is doing the error.
My 
code is available if you wanted to look 
at it.
I basically put the code into 
my project the way you had it. I 
already had a premade application (by 
the wizard) and had extended it 
somewhat.
Regards,
Jeffrey Drake
Keep the Planet clean! If this comment was disrespectful, please report it:
Reason:

 
5/10/2000 11:05:23 PM:Robbie
hi, is there anyway to make your code 
so that when you end/stop the example 
vb doesn't always crash? Anyways i 
think your code is great, Keep up the 
GREAT work!
Keep the Planet clean! If this comment was disrespectful, please report it:
Reason:

 
5/11/2000 10:20:31 AM:Olivier Martin
To Jeffrey and Robbie:
the program 
will always crash vb when you click on 
the "stop" button or if you try to 
break the execution.
Send me your code 
if you want.
Keep the Planet clean! If this comment was disrespectful, please report it:
Reason:

 
5/13/2000 9:45:02 AM:tsi
Thank You!
Keep the Planet clean! If this comment was disrespectful, please report it:
Reason:

 
5/13/2000 9:58:36 AM:tsi
Me again.
I am getting an illeagal 
procedure call on this line:
  Set 
Item = mCol(vntIndexKey)
In the class 
CMyItemDatas
Help would be 
appreciated.
What I can get looking is 
pretty good!
Keep the Planet clean! If this comment was disrespectful, please report it:
Reason:

 
5/15/2000 12:49:28 PM:Olivier Martin
I suggested a few corrections to my 
code because "tsi" is using a MDI 
environment.  I'm not posting them 
because it's not a "common" use of 
CoolMenu (I hope)
I'll make the 
required tests on MDI forms before 
releasing the CoolMenu update in 
June!
The new version will include 
Checks and Radio menus as well as many 
bug fixes
Keep the Planet clean! If this comment was disrespectful, please report it:
Reason:

 
5/18/2000 5:07:38 AM:Patrick van Geenen
Hello you all,Great Code, but would it 
be possible to receive the
Keep the Planet clean! If this comment was disrespectful, please report it:
Reason:

 
5/18/2000 9:31:13 AM:Olivier Martin
the what ?
It seems there's a problem 
with the feedback form, It's impossible 
to leave a complete msg when your not 
logged
Keep the Planet clean! If this comment was disrespectful, please report it:
Reason:

 
5/18/2000 11:35:33 AM:Patrick van Geenen
About the...
The reason why was indeed 
I was not "registered". The sentence 
ended with. ... the "update" as I'm 
also trying to use CoolMenu in an MDI 
form, and seem to have the same bug as 
tsi. Help would be appreciated a 
lot.
Thanks!
Keep the Planet clean! If this comment was disrespectful, please report it:
Reason:

 
5/25/2000 10:08:05 PM:siph0n
i am getting an out of stack space 
error after i click my menu to popup, 
then click a menu or off the menu, it 
highlights: Set pmds = Nothing
Keep the Planet clean! If this comment was disrespectful, please report it:
Reason:

 
5/25/2000 10:18:27 PM:Olivier Martin
What ?!
I'll need more info so I can 
reproduce the conditions of the error 
and correct it (maybe...)
Keep the Planet clean! If this comment was disrespectful, please report it:
Reason:

 
5/30/2000 4:12:57 AM:Seth DK
This code is very cool, and usefull, 
but I have a little problem when using 
it on MDI forms. I'm not a 
professional, so would you please help 
me with this problem? By the way...How 
do you change the font to not-bold om a 
MDI-form when there's not any 
Font-property?
Keep the Planet clean! If this comment was disrespectful, please report it:
Reason:

 
5/30/2000 10:21:09 AM:Olivier Martin
MDI forms cause some problems.  I'm 
still working on it and hope to find 
solutions very soon.  There is a font 
property in the new version but it's  
not ready yet
Keep the Planet clean! If this comment was disrespectful, please report it:
Reason:

 
5/30/2000 8:02:23 PM:Paul Dexter C. Bacani
Thank you for showing us that it's 
possible.
Keep the Planet clean! If this comment was disrespectful, please report it:
Reason:

 
5/30/2000 11:07:35 PM:Olivier Martin
Hummm... Paul Dexter
Your name tells 
me something...
Thank you very much. 
 I learned just a few weeks ago that 
MANY things ARE possible when I got 
around the MenuFromPoint bug.  If 
you're impressed, wait until you see 
the next version...
Keep the Planet clean! If this comment was disrespectful, please report it:
Reason:

 
5/31/2000 1:50:39 AM:Seth DK
This version is so cool (except the bug 
with the MDIform thing), so I just 
can't wait to see the next one. 
Keep the Planet clean! If this comment was disrespectful, please report it:
Reason:

 
6/6/2000 6:53:23 PM:Matt
I am trying to use your menu with a 
system tray icon. Everytime when I exit 
it causes vb to have an error and 
close. I can click on stuff on that 
menu it only happens when I close it. I 
am not using End anywhere and it works 
fine on all the other forms. Does your 
menu have a problem working with system 
tray icons? Thanks.
Keep the Planet clean! If this comment was disrespectful, please report it:
Reason:

 
6/7/2000 11:01:21 AM:Olivier Martin
I have tested CoolMenu (in its current 
version) with Systray icons and the 
menu works fine; just as 
expected.
The only problem you could 
have is when you unload your form.  You 
must use the "Install" function with a 
null form handle (0) just like in the 
example.  If not, or if you press the 
stop button in the IDE, vb will crash.  
That's a well know subclassing 
fact.(believe me, you learn it pretty 
fast)  Good luck
Keep the Planet clean! If this comment was disrespectful, please report it:
Reason:

 
6/7/2000 5:24:38 PM:Matt
I am using multiple forms with it. I 
load it on the main form that has the 
systray icon and unload it in the that 
form. I can install the CoolMenu 
everywhere and exit and get no errors. 
But when I install it on the main form 
with it gives me an illegal operation 
everytime and closes Vb.
Keep the Planet clean! If this comment was disrespectful, please report it:
Reason:

 
6/19/2000 10:14:17 PM:etrask
WOW! Great code! this is very useful 
and also gives your application a very 
professional look to it. Good work!
Keep the Planet clean! If this comment was disrespectful, please report it:
Reason:

 
6/22/2000 10:54:31 AM:Mauricio Cunha
Really, this idea is very cool !
Keep the Planet clean! If this comment was disrespectful, please report it:
Reason:

 
6/23/2000 9:49:44 AM:Jachym
Hi, very cool code. Can I have 
permission to publish it on our VB site 
(www.czechia.com/vbasic),please?
Keep the Planet clean! If this comment was disrespectful, please report it:
Reason:

 
6/23/2000 11:04:13 AM:Olivier Martin
Yes Jachym, you can post my code on 
your site.  But I want my name on it 
and you'll have to do the 
traduction.
I suggest you use the 
leatest version however. Search for 
"CoolMenu" or browse in "my other 
submissions" (1)
Keep the Planet clean! If this comment was disrespectful, please report it:
Reason:

 
6/26/2000 6:46:09 AM:Vasilis Sagonas
!!!!!!!!!! I LOVE YOU !!!!!!! That's 
EXACTLY What I was looking for!!!!!!
Keep the Planet clean! If this comment was disrespectful, please report it:
Reason:

 
6/26/2000 6:51:06 AM:Vasilis Sagonas
Sorry! I was impressed :))) This is a 
great idea and great code! Great 
great!!! Can I use it in a freeware 
program i prepare? 
(http://www.dawn.gr/netfly) for its new 
version ?
Keep the Planet clean! If this comment was disrespectful, please report it:
Reason:

 
6/26/2000 10:08:43 AM:Olivier Martin
You can use my CoolMenu your app, but 
I'd like you to add my name somewhere.  
You should also use the latest version 
: browse my "other submissions" (1) or 
search for "CoolMenu"
Keep the Planet clean! If this comment was disrespectful, please report it:
Reason:

 
2/24/2001 10:12:21 PM:Greg C.
This is good! I have been using The 
icon in menu code from 
http://vbthunder.com for some time now 
but I have to say this is much 
better(Except for the freeze when you 
push the stop button!)I have also tried 
http://vbaccelerator.com s put that 
crashes if you use it for right click 
menus! This is the best example!(I have 
tried your newer code but it is not 
this simple!, What code do I use to 
make those neet seporaters??)
Keep the Planet clean! If this comment was disrespectful, please report it:
Reason:

 
2/24/2001 10:14:36 PM:Greg C.
This is good! I have been using The 
icon in menu code from 
http://vbthunder.com for some time now 
but I have to say this is much 
better(Except for the freeze when you 
push the stop button!)I have also tried 
http://vbaccelerator.com s put that 
crashes if you use it for right click 
menus! This is the best example!(I have 
tried your newer code but it is not 
this simple!, What code do I use to 
make those neet seporaters, in Version 
1.3??)
Keep the Planet clean! If this comment was disrespectful, please report it:
Reason:

 
3/25/2001 6:27:25 PM:Ignacio Nelson
Hi there. hey can i use this code on 
Xtremepad? u can find it here, it's a 
complete text editor. i'll put your 
name on it =]
Keep the Planet clean! If this comment was disrespectful, please report it:
Reason:

 
7/12/2001 7:00:49 AM:Owais Muhammad
I tried to use your code but it only 
one image comes in all the menus please 
tell me how to fix it. Please give me 
your email address at 
amowais@hotmail.com
Keep the Planet clean! If this comment was disrespectful, please report it:
Reason:

 
2/11/2002 6:43:36 PM:Whoisit
I've not even unzipped it yet and I'm 
already impressed!!!!!!!!
Keep the Planet clean! If this comment was disrespectful, please report it:
Reason:

 
3/15/2002 7:21:37 AM:NyXZ
I doesn't draw the icons in winXP.
The 
small 'box' is drawn in the menus, but 
no icons. (or maybe it's me? >)
Keep the Planet clean! If this comment was disrespectful, please report it:
Reason:

 
4/28/2002 5:46:35 PM:Juan Rodriguez
This system dosn't work in WinXP, i 
tried to change the windows commaon 
control's version, and it works just 
before corrupt the icons on the 
imagelist, any idea?
Keep the Planet clean! If this comment was disrespectful, please report it:
Reason:

 
12/17/2002 10:52:27 PM:
The menus appear to work correctly but 
when I exit my program it crashes in 
Kernel32.dll .....  the program won't 
exit/quit cleanly..... I stepped thru 
the program for a long time and I 
think 
it dies in mCoolMenu in 
WindowProc  but 
can't be sure....  
Has anyone seen this 
or know how to 
debug it?
Regards
-Tim
Keep the Planet clean! If this comment was disrespectful, please report it:
Reason:

 
2/5/2003 3:36:51 AM:
Great code Olivier! I've been looking 
for this for a long time and all were 
using picture box.  
Keep the Planet clean! If this comment was disrespectful, please report it:
Reason:

 
2/5/2003 6:46:47 AM:
thanks for you help
god bless u
Keep the Planet clean! If this comment was disrespectful, please report it:
Reason:

 
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.
 
Name:
Comment:

 

Categories | Articles and Tutorials | Advanced Search | Recommended Reading | Upload | Newest Code | Code of the Month | Code of the Day | All Time Hall of Fame | Coding Contest | Search for a job | Post a Job | Ask a Pro Discussion Forum | Live Chat | Feedback | Customize | Visual Basic Home | Site Home | Other Sites | About the Site | Feedback | Link to the Site | Awards | Advertising | Privacy

Copyright© 1997 by Exhedra Solutions, Inc. All Rights Reserved.  By using this site you agree to its Terms and Conditions.  Planet Source Code (tm) and the phrase "Dream It. Code It" (tm) are trademarks of Exhedra Solutions, Inc.