Codejock Developer Community : AddIconHandle (ActiveX) 8.6 http://forum.codejock.com/ Copyright (c) 2006-2013 Web Wiz Forums - All Rights Reserved. Tue, 28 Apr 2026 11:51:40 +0000 Tue, 30 Dec 2003 14:16:45 +0000 http://blogs.law.harvard.edu/tech/rss Web Wiz Forums 12.04 360 forum.codejock.com/RSS_post_feed.asp?TID=319 <![CDATA[Codejock Developer Community]]> http://forum.codejock.com/forum_images/codejock-logo.gif http://forum.codejock.com/ <![CDATA[AddIconHandle (ActiveX) 8.6 : When using LoadResPicture in VB,...]]> http://forum.codejock.com/forum_posts.asp?TID=319&PID=714&title=addiconhandle-activex-8-6#714 Author: robs
Subject: 319
Posted: 30 December 2003 at 2:16pm

When using LoadResPicture in VB, it seems to always load icons 32X32 pixels, which looks ugly on the docking panes.

I've had luck resizing the icons using code such as:

Private Declare Function CopyImage Lib "user32" (ByVal handle As Long, ByVal imageType As Long, ByVal newWidth As Long, ByVal newHeight As Long, ByVal lFlags As Long) As Long

Private Cons IMAGE_ICON=2

Private Const LR_COPYFROMRESOURCE =3

   Dim p As stdole.IPictureDisp
   Set p = LoadResPicture(101, 1)
   Dim l As Long
   l = CopyImage(p.handle, IMAGE_ICON, 16, 16, LR_COPYFROMRESOURCE)

  DockingPane.AddIconHandle (l,ID)

The code above will resize the icon in the resource file to 16X16.

Good luck.

 

]]> Tue, 30 Dec 2003 14:16:45 +0000 http://forum.codejock.com/forum_posts.asp?TID=319&PID=714&title=addiconhandle-activex-8-6#714