Icon from an Executable |
Post Reply |
Author | |
Boris
Senior Member Joined: 21 June 2007 Location: United Kingdom Status: Offline Points: 179 |
Post Options
Thanks(0)
Posted: 15 October 2008 at 2:06pm |
Using VB2005
Hi,
This works
Dim ic As Iconic = Icon.ExtractAssociatedIcon("C:\Program Files\RealVNC\VNC4\vncviewer.exe")
ImageManager1.Icons.AddIcon(ic.Handle, ID_CONNECT_VNC, XtremeCommandBars.XTPImageState.xtpImageNormal) This doesn't ... it produces a horrible black border around the icon
ic = Icon.ExtractAssociatedIcon("C:\Windows\system32\mstsc.exe")
ImageManager1.Icons.AddIcon(ic.Handle, ID_CONNECT_RDC, XtremeCommandBars.XTPImageState.xtpImageNormal) CommandBars.Icons.AddIcon(ic.Handle, ID_CONNECT_RDC, XtremeCommandBars.XTPImageState.xtpImageNormal) Can anyone tell me what I am doing wrong ?? Regards to all |
|
Boris
Product: Xtreme SuitePro (ActiveX) version 16.4.0 16.3.1 Platform: Windows XP (32bit) - SP 3 Language: Visual Basic 6.0 SP6 VS 2005-2008-2010-2013 |
|
Oleg
Admin Group Joined: 21 May 2003 Location: United States Status: Offline Points: 11234 |
Post Options
Thanks(0)
|
Hi,
Guess it extracts Alpha icon. You need enable ComCtrl v6.0 to allow use it.
|
|
Oleg, Support Team
CODEJOCK SOFTWARE SOLUTIONS |
|
Boris
Senior Member Joined: 21 June 2007 Location: United Kingdom Status: Offline Points: 179 |
Post Options
Thanks(0)
|
Hi Oleg,
Thanks for your reply... not sure what you mean. I am working with VB.net 2005 and V12 of Xtreme Suite. I cannot seem to find anywhere that mentions ComCtl... have you got a snippet to show me what you mean.
Regards,
|
|
Boris
Product: Xtreme SuitePro (ActiveX) version 16.4.0 16.3.1 Platform: Windows XP (32bit) - SP 3 Language: Visual Basic 6.0 SP6 VS 2005-2008-2010-2013 |
|
Oleg
Admin Group Joined: 21 May 2003 Location: United States Status: Offline Points: 11234 |
Post Options
Thanks(0)
|
Hi, Add bolded lines to your Main method:
Shared Sub Main() Application.EnableVisualStyles() Application.DoEvents()...
frmMain.Instance = New frmMain Application.Run(frmMain.Instance) |
|
Oleg, Support Team
CODEJOCK SOFTWARE SOLUTIONS |
|
Boris
Senior Member Joined: 21 June 2007 Location: United Kingdom Status: Offline Points: 179 |
Post Options
Thanks(0)
|
Hi Oleg. Thanks for your reply. Your suggestion wouldn't work for me. I have since found out that the Icon class in VB.net does not support the alpha colours. I did find though that converting to a bitmap somehow works.
Dim bmp As Bitmapbmp = Icon.ExtractAssociatedIcon("C:\Windows\system32\mstsc.exe").ToBitmap bmp.Save(GetAppPath() & "mstsc.bmp") ImageManager1.Icons.LoadBitmap(GetAppPath() & "mstsc.bmp", ID_CONNECT_RDC, XtremeCommandBars.XTPImageState.xtpImageNormal) What I haven't been able to do is to capture the image without saving it first so alhough not perfect it works. It would be nice if you were to include an extract icon method that worked in your next release seeing as VB.Net doesn't support it. Regards |
|
Boris
Product: Xtreme SuitePro (ActiveX) version 16.4.0 16.3.1 Platform: Windows XP (32bit) - SP 3 Language: Visual Basic 6.0 SP6 VS 2005-2008-2010-2013 |
|
Oleg
Admin Group Joined: 21 May 2003 Location: United States Status: Offline Points: 11234 |
Post Options
Thanks(0)
|
Hello,
for next version added LoadIconfromResource for this case.
|
|
Oleg, Support Team
CODEJOCK SOFTWARE SOLUTIONS |
|
Boris
Senior Member Joined: 21 June 2007 Location: United Kingdom Status: Offline Points: 179 |
Post Options
Thanks(0)
|
Hi
That's really great. Thanks Oleg.
Regards
|
|
Boris
Product: Xtreme SuitePro (ActiveX) version 16.4.0 16.3.1 Platform: Windows XP (32bit) - SP 3 Language: Visual Basic 6.0 SP6 VS 2005-2008-2010-2013 |
|
Post Reply | |
Tweet
|
Forum Jump | Forum Permissions You cannot post new topics in this forum You cannot reply to topics in this forum You cannot delete your posts in this forum You cannot edit your posts in this forum You cannot create polls in this forum You cannot vote in polls in this forum |