AddIconHandle (ActiveX) 8.6

Message Topic Search Topic Options Post Reply Create New Topic Printable Version Translate Topic

   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.

Author	Message Topic Search Topic Options Post Reply Create New Topic Printable Version Translate Topic
robs Members Profile Send Private Message Find Members Posts Add to Buddy List Groupie Joined: 09 November 2003 Status: Offline Points: 84	Post Options Post Reply Quote robs Report Post Thanks(0) Quote Reply Topic: AddIconHandle (ActiveX) 8.6 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.