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 .

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.

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