Programming Tools
 
Forums: » Register « |  User CP |  Games |  Calendar |  Members |  FAQs |  Sitemap |  Support | 
 
User Name:
Password:
Remember me
 



Go Back   Dev Articles Community ForumsProgrammingProgramming Tools

Reply
Add This Thread To:
  Del.icio.us   Digg   Google   Spurl   Blink   Furl   Simpy   Y! MyWeb 
Thread Tools Search this Thread Display Modes
 
Unread Dev Articles Community Forums Sponsor:
  #1  
Old December 27th, 2002, 07:51 PM
mytch mytch is offline
Dev Articles Novice (500 - 999 posts)
 
Join Date: Apr 2002
Location: Sydney, Australia
Posts: 588 mytch User rank is Just a Lowly Private (1 - 20 Reputation Level) 
Time spent in forums: < 1 sec
Reputation Power: 16
Article Discussion: Finding Default App Icons With Visual Basic

Finding Default App Icons With Visual Basic If you have any questions or comments about this article then please post them here.

You can read the article here .

Reply With Quote
  #2  
Old December 14th, 2004, 10:33 AM
rbdryd rbdryd is offline
Registered User
Dev Articles Newbie (0 - 499 posts)
 
Join Date: Dec 2004
Posts: 1 rbdryd User rank is Just a Lowly Private (1 - 20 Reputation Level) 
Time spent in forums: < 1 sec
Reputation Power: 0
Question on GetIcon Code

Great article! I am trying to get this code to work with a VBA project.

Draw_Icon:
lngIcon = ExtractIcon(Access.hWndAccessApp, strDefaultIcon, lngIconNumber)
If lngIcon = 1 Or lngIcon = 0 Then GoTo No_Icon
lngError = DrawIcon(Me.IconPicture, 0, 0, lngIcon) 'Draw the icon in the box
lngError = DestroyIcon(lngIcon)
No_Icon:
strDefaultIcon = Space(260)
lngStringLength = GetSystemDirectory(strDefaultIcon, 260)
strDefaultIcon = Left(strDefaultIcon, lngStringLength) & "SHELL32.DLL"
lngIconNumber = 0
GoTo Draw_Icon

When it gets to this section of code it always sets the lngIcon to zero on the No_Icon
label and so goes into an endless loop. Can you see what I have done wrong. It appears
to not be finding the icon for Shell32.dll or else I'm missing the boat somewhere else. I'm also
not clear on what hsd is in an Access form environment. This may be the problem.

Thanks for any help.

Reply With Quote
  #3  
Old February 14th, 2006, 07:40 PM
philCouling philCouling is offline
Registered User
Dev Articles Newbie (0 - 499 posts)
 
Join Date: Feb 2006
Posts: 1 philCouling User rank is Just a Lowly Private (1 - 20 Reputation Level) 
Time spent in forums: 31 m 5 sec
Reputation Power: 0
Cool I'm sure this isn't where I left it

I originally wrote this article for the website: www.developerfusion.com (NOT associated with this one). Quite why I was not informed before a copy of it was taken I'm not entirely sure, however I apologise to anyone who has tried to contact me through the email address provided on DevArticles.com, it's not mine and neither is the profile.

If you would like to contact me regarding this article, please contact me through my account on developerfusion.com (my account name is “couling”). A full, better formatted version of this article is also available there (though it has one or two more typos).

regards

Reply With Quote
Reply

Viewing: Dev Articles Community ForumsProgrammingProgramming Tools > Article Discussion: Finding Default App Icons With Visual Basic


Developer Shed Advertisers and Affiliates


Thread Tools  Search this Thread 
Search this Thread:

Advanced Search
Display Modes  Rate This Thread 
Rate This Thread:


Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

vB code is On
Smilies are On
[IMG] code is On
HTML code is Off
View Your Warnings | New Posts | Latest News | Latest Threads | Shoutbox
Forum Jump

Forums: » Register « |  User CP |  Games |  Calendar |  Members |  FAQs |  Sitemap |  Support | 
  
 


Powered by: vBulletin Version 3.0.5
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.

© 2003-2018 by Developer Shed. All rights reserved. DS Cluster - Follow our Sitemap