File icons

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

   I'm trying to add the icon related to the file extension and I'm using:
Public Function GetIcon(ByVal Filename As String, ByVal iSize As IconSize) As System.Drawing.Icon
Dim hImg As IntPtr
Dim shinfo As New SHFileInfo
' Depending on the size, get the icon from the file
If iSize = IconSize.Small Then ' Return small icon
hImg = SHGetFileInfo(Filename, 0, shinfo, Marshal.SizeOf(shinfo), SHGFI_ICON Or SHGFI_SMALLICON)
ElseIf iSize = IconSize.Large Then ' Return large icon
hImg = SHGetFileInfo(Filename, 0, shinfo, Marshal.SizeOf(shinfo), SHGFI_ICON Or SHGFI_LARGEICON)
End If
'The icon is returned in the hIcon member of the shinfo struct.
GetIcon = System.Drawing.Icon.FromHandle(shinfo.hIcon)
End Function
Add the icon but when add the icon to the report control:

Dim ico As System.Drawing.Icon
...

rpCtrl.Icons.AddIcon(ico.Handle.ToInt32, nImageIndex, XTPImageState.xtpImageNormal)

But I can't see the icon in the report control
Thanks

Author	Message Topic Search Topic Options Post Reply Create New Topic Printable Version Translate Topic
Francesca Members Profile Send Private Message Find Members Posts Add to Buddy List Newbie Joined: 08 June 2006 Status: Offline Points: 1	Post Options Post Reply Quote Francesca Report Post Thanks(0) Quote Reply Topic: File icons Posted: 08 June 2006 at 6:22am
	I'm trying to add the icon related to the file extension and I'm using: Public Function GetIcon(ByVal Filename As String, ByVal iSize As IconSize) As System.Drawing.Icon Dim hImg As IntPtr Dim shinfo As New SHFileInfo ' Depending on the size, get the icon from the file If iSize = IconSize.Small Then ' Return small icon hImg = SHGetFileInfo(Filename, 0, shinfo, Marshal.SizeOf(shinfo), SHGFI_ICON Or SHGFI_SMALLICON) ElseIf iSize = IconSize.Large Then ' Return large icon hImg = SHGetFileInfo(Filename, 0, shinfo, Marshal.SizeOf(shinfo), SHGFI_ICON Or SHGFI_LARGEICON) End If 'The icon is returned in the hIcon member of the shinfo struct. GetIcon = System.Drawing.Icon.FromHandle(shinfo.hIcon) End Function Add the icon but when add the icon to the report control: Dim ico As System.Drawing.Icon ... rpCtrl.Icons.AddIcon(ico.Handle.ToInt32, nImageIndex, XTPImageState.xtpImageNormal) But I can't see the icon in the report control Thanks

SuperMario Members Profile Send Private Message Find Members Posts Add to Buddy List Senior Member Joined: 14 February 2004 Status: Offline Points: 18057	Post Options Post Reply Quote SuperMario Report Post Thanks(0) Quote Reply Posted: 08 June 2006 at 8:45am
	What size is the icon you wish to display? Try setting the width of the column to width of icon + 1. Also be sure to have muliline True.