get icon from application exe

[Dominique Vandensteen]

I want to get the icon from my application exe file

dim myIcon as Icon = ... -> "myApplication.exe,0"

how can I do that?

 

[Cor]

Hi Dominique,

I never tested it have to do that still but I thought this was where you
where looking for?

Herfried will surely confirm when he does his round.



\\\By Herfried K Wagner
foo.Icon = _
New Icon( _
[Assembly].GetExecutingAssembly().GetManifestResourceStream( _
"WindowsApplication1.Ball.ico" _
) _
)
///

Cor

 

[Herfried K. Wagner [MVP]]

Cor,

I never tested it have to do that still but I thought this was where you
where looking for?

Herfried will surely confirm when he does his round.

I am not sure if this will solve the problem, but it will work for
embedded icon ressources.

;-)

 

[Herfried K. Wagner [MVP]]

I want to get the icon from my application exe file

dim myIcon as Icon = ... -> "myApplication.exe,0"

how can I do that?

AFAIS p/invoke on 'ExtractIconEx' if the icon is embedded as Win32
resource.

 

[Dominique Vandensteen]

used that one, it works

thx

AFAIS p/invoke on 'ExtractIconEx' if the icon is embedded as Win32
resource.

 

[Herfried K. Wagner [MVP]]

Addendum:

I am not sure if this will solve the problem, but it will work for
embedded icon ressources.

It won't work because the application icon is embedded as Win32
resource and .NET cannot deal with Win32 resources.

 

[Cor]

Hi Herfried,

Can you give me that routine dominique is using, I will try it also.

But finding out that wheel that you have 10000 times done, you know I will
distribute it only with your name.


Cor

 

[Herfried K. Wagner [MVP]]

Corm

Can you give me that routine dominique is using, I will try it also.

But finding out that wheel that you have 10000 times done, you know I will
distribute it only with your name.

I don't have written a routine using 'ExtractIconEx', but you may find
working samples here:

<http://www.google.ch/groups?q=dotnet+ExtractIconEx>

 

[Dominique Vandensteen]

it works here...
code:

Public Declare Function DestroyIcon Lib "User32.dll" (ByRef phicon As
IntPtr) As Boolean
Public Declare Function ExtractIconEx Lib "shell32.dll" _
(ByVal lpszFile As String, ByVal nIconIndex As Integer, _
ByRef phiconLarge As IntPtr, ByRef phiconSmall As IntPtr, ByVal nIcons As
Integer) _
As IntPtr
....
Dim iconPtr As IntPtr
Dim myIcon As Icon
ExtractIconEx(Application.ExecutablePath, 0, iconPtr, Nothing, 1)
-> returnvalue is number of icons found, so normally check for > 0
myIcon = Icon.FromHandle(iconPtr)
....
when "finished using" the icon:
DestroyIcon(iconPtr)


dominique

 

[Cor]

Hi Dominique,

Thanks

2 questions,
written by yourself (because I add that when I redistribute that)
combobox problem Net 1.0 or Net 1.1
Cor

 

[Cor]

Hi Herfried,

That I can also do myself but than I do not know which one is working.

And it is a German site how can I read that.

I try that one from Dominique, she is nice for me.

Cor

 

[Herfried K. Wagner [MVP]]

I try that one from Dominique, she is nice for me.

Her code seems to be OK.

 

[Cor]

Hi Herfried,

I forgot the

))

Cor

 

[Dominique Vandensteen]

to set things right

I'm a he not a she ;-)

Her code seems to be OK.

 

[Dominique Vandensteen]

written by yourself (because I add that when I redistribute that)

euh yes, with help of herfried's hint

combobox problem Net 1.0 or Net 1.1

workaround by doing .selectedIndex=-1 twice
and add a (boolean) variable IgnoreEvent which is true "around" the first
..selectindex=-1 so the switch to index 0 is ignored...

something like:
sub button_click()
IgnoreEvent = true
comboBox1.selectedIndex = -1
IgnoreEvent = false
comboBox1.selectedIndex = -1
end sub

sub combobox_selectedIndexChangedOrSomethingLikeThat()
if(IgnoreEvent) then exit Sub
'do stuff
end sub


dominique

 

[Herfried K. Wagner [MVP]]

to set things right

I'm a he not a she ;-)

:-(

Everybody here was so happy to see a "she" here...

;-)

 

[Herfried K. Wagner [MVP]]

Corina,

I forgot the

))

I already thought that...