image listview

[Maarten]

hi all,

is there a way to show the icons of a file, used by the system in a
listview.

now i have something like:

Private Sub AddFiles(ByVal nod As TreeNode)

Dim strPath As String = nod.FullPath

Dim strFile As String

With nod

For Each strFile In Directory.GetFi les(strPath)

With nod.Nodes.Add(P ath.GetFileName (strFile))

..Tag = ItemType.File

..ImageIndex = 3

End With

Next

End With

End Sub

kind regards,

Maarten

[Ken Tucker [MVP]]

Hi,

Use shgetfileinfo to get them. Here a listview control to the form
and name it lv. Here is an example.

Private Function getLocalIcons(B yVal szFolderPath As String)

Dim dirInfo As New System.IO.Direc toryInfo(szFold erPath)

Dim di As System.IO.Direc toryInfo

Dim fi As System.IO.FileI nfo

Dim lvitem As ListViewItem

Dim hIcon As Icon

Dim cIcon As New clsGetIcon

Dim htIcons As New Hashtable

Dim intIndex As Integer

imlIcon.Images. Clear()

lv.Items.Clear( )

lv.SmallImageLi st = imlIcon

For Each di In dirInfo.GetDire ctories()

lvitem = lv.Items.Add(di .Name)

hIcon = cIcon.getIcon(d i.FullName)

If htIcons.Contain sKey(hIcon) Then

intIndex = htIcons(hIcon)

Else

imlIcon.Images. Add(hIcon.ToBit map)

intIndex = imlIcon.Images. Count - 1

End If

lvitem.ImageInd ex = intIndex

Next

For Each fi In dirInfo.GetFile s()

lvitem = lv.Items.Add(fi .Name)

hIcon = cIcon.getIcon(f i.FullName)

If htIcons.Contain sKey(hIcon) Then

intIndex = htIcons(hIcon)

Else

imlIcon.Images. Add(hIcon.ToBit map)

intIndex = imlIcon.Images. Count - 1

End If

lvitem.ImageInd ex = intIndex

Next

End Function

Private Sub Form1_Load(ByVa l sender As System.Object, ByVal e As
System.EventArg s) Handles MyBase.Load

lv.SuspendLayou t()

getLocalIcons(" C:\")

lv.ResumeLayout ()

End Sub

The helper class.

Imports System.Runtime. InteropServices

Public Class clsGetIcon

Public Structure SHFILEINFO

Dim hIcon As IntPtr

Dim iIcon As Integer

Dim dwAttributes As Integer

<VBFixedString( 260),
System.Runtime. InteropServices .MarshalAs(Syst em.Runtime.Inte ropServices.Unm anagedType.ByVa lTStr,
SizeConst:=260) > Public szDisplayName As String

'String that contains the name of the file as it appears in the Microsoft®
Windows® Shell, or the path and file name of the file that contains the icon
representing the file.

<VBFixedString( 80),
System.Runtime. InteropServices .MarshalAs(Syst em.Runtime.Inte ropServices.Unm anagedType.ByVa lTStr,
SizeConst:=80)> Public szTypeName As String

End Structure
Private Declare Auto Function SHGetFileInfo Lib "shell32" (ByVal pszPath As
String, _

ByVal dwFileAttribute s As Integer, ByRef psfi As SHFILEINFO, _

ByVal cbFileInfo As Integer, ByVal uFlags As Integer) As Integer

Private Const SHGFI_ICON As Integer = &H100

Private Const SHGFI_SMALLICON As Integer = &H1 'Small icon

Private Const SHGFI_TYPENAME As Integer = &H400 ' get type name

Public Function getIcon(ByVal szFilename As String) As Icon

Try

Dim aSHFileInfo As New SHFILEINFO

Dim cbFileInfo As Integer = _

Marshal.SizeOf( aSHFileInfo)

Dim uflags As Integer = SHGFI_ICON Or SHGFI_SMALLICON

SHGetFileInfo(s zFilename, 0, aSHFileInfo, cbFileInfo, uflags)

Dim myIcon As Icon

myIcon = Icon.FromHandle (aSHFileInfo.hI con)

aSHFileInfo.szT ypeName = Space(255)

SHGetFileInfo(s zFilename, 0, aSHFileInfo, cbFileInfo, SHGFI_TYPENAME)

Trace.WriteLine (aSHFileInfo.sz TypeName)

Return myIcon

Catch ex As Exception

Debug.WriteLine (ex.ToString)

Return Nothing

End Try

End Function

End Class

Ken

---------------------------

"Maarten" <gu******@hotma il.com> wrote in message
news:41******** **************@ news.skynet.be. ..
hi all,

is there a way to show the icons of a file, used by the system in a
listview.

now i have something like:

Private Sub AddFiles(ByVal nod As TreeNode)

Dim strPath As String = nod.FullPath

Dim strFile As String

With nod

For Each strFile In Directory.GetFi les(strPath)

With nod.Nodes.Add(P ath.GetFileName (strFile))

..Tag = ItemType.File

..ImageIndex = 3

End With

Next

End With

End Sub

kind regards,

Maarten

[Herfried K. Wagner [MVP]]

"Maarten" <gu******@hotma il.com> schrieb:

is there a way to show the icons of a file, used by the system in a
listview.

System Image List
<URL:http://vbaccelerator.c om/article.asp?id= 4303>

--
M S Herfried K. Wagner
M V P <URL:http://dotnet.mvps.org/>
V B <URL:http://dotnet.mvps.org/dotnet/faqs/>

[Maarten]

thank you it works fine,

regards,
Maarten
"Ken Tucker [MVP]" <vb***@bellsout h.net> schreef in bericht
news:O#******** ******@TK2MSFTN GP11.phx.gbl...

Hi,

Use shgetfileinfo to get them. Here a listview control to the form and name it lv. Here is an example.

Private Function getLocalIcons(B yVal szFolderPath As String)

Dim dirInfo As New System.IO.Direc toryInfo(szFold erPath)

Dim di As System.IO.Direc toryInfo

Dim fi As System.IO.FileI nfo

Dim lvitem As ListViewItem

Dim hIcon As Icon

Dim cIcon As New clsGetIcon

Dim htIcons As New Hashtable

Dim intIndex As Integer

imlIcon.Images. Clear()

lv.Items.Clear( )

lv.SmallImageLi st = imlIcon

For Each di In dirInfo.GetDire ctories()

lvitem = lv.Items.Add(di .Name)

hIcon = cIcon.getIcon(d i.FullName)

If htIcons.Contain sKey(hIcon) Then

intIndex = htIcons(hIcon)

Else

imlIcon.Images. Add(hIcon.ToBit map)

intIndex = imlIcon.Images. Count - 1

End If

lvitem.ImageInd ex = intIndex

Next

For Each fi In dirInfo.GetFile s()

lvitem = lv.Items.Add(fi .Name)

hIcon = cIcon.getIcon(f i.FullName)

If htIcons.Contain sKey(hIcon) Then

intIndex = htIcons(hIcon)

Else

imlIcon.Images. Add(hIcon.ToBit map)

intIndex = imlIcon.Images. Count - 1

End If

lvitem.ImageInd ex = intIndex

Next

End Function

Private Sub Form1_Load(ByVa l sender As System.Object, ByVal e As
System.EventArg s) Handles MyBase.Load

lv.SuspendLayou t()

getLocalIcons(" C:\")

lv.ResumeLayout ()

End Sub

The helper class.

Imports System.Runtime. InteropServices

Public Class clsGetIcon

Public Structure SHFILEINFO

Dim hIcon As IntPtr

Dim iIcon As Integer

Dim dwAttributes As Integer

<VBFixedString( 260),
System.Runtime. InteropServices .MarshalAs(Syst em.Runtime.Inte ropServices.Unm a
nagedType.ByVal TStr, SizeConst:=260) > Public szDisplayName As String

'String that contains the name of the file as it appears in the Microsoft®
Windows® Shell, or the path and file name of the file that contains the icon representing the file.

<VBFixedString( 80),
System.Runtime. InteropServices .MarshalAs(Syst em.Runtime.Inte ropServices.Unm a
nagedType.ByVal TStr, SizeConst:=80)> Public szTypeName As String

End Structure
Private Declare Auto Function SHGetFileInfo Lib "shell32" (ByVal pszPath As String, _

ByVal dwFileAttribute s As Integer, ByRef psfi As SHFILEINFO, _

ByVal cbFileInfo As Integer, ByVal uFlags As Integer) As Integer

Private Const SHGFI_ICON As Integer = &H100

Private Const SHGFI_SMALLICON As Integer = &H1 'Small icon

Private Const SHGFI_TYPENAME As Integer = &H400 ' get type name

Public Function getIcon(ByVal szFilename As String) As Icon

Try

Dim aSHFileInfo As New SHFILEINFO

Dim cbFileInfo As Integer = _

Marshal.SizeOf( aSHFileInfo)

Dim uflags As Integer = SHGFI_ICON Or SHGFI_SMALLICON

SHGetFileInfo(s zFilename, 0, aSHFileInfo, cbFileInfo, uflags)

Dim myIcon As Icon

myIcon = Icon.FromHandle (aSHFileInfo.hI con)

aSHFileInfo.szT ypeName = Space(255)

SHGetFileInfo(s zFilename, 0, aSHFileInfo, cbFileInfo, SHGFI_TYPENAME)

Trace.WriteLine (aSHFileInfo.sz TypeName)

Return myIcon

Catch ex As Exception

Debug.WriteLine (ex.ToString)

Return Nothing

End Try

End Function

End Class

Ken

---------------------------

"Maarten" <gu******@hotma il.com> wrote in message
news:41******** **************@ news.skynet.be. ..
hi all,

is there a way to show the icons of a file, used by the system in a
listview.

now i have something like:

Private Sub AddFiles(ByVal nod As TreeNode)

Dim strPath As String = nod.FullPath

Dim strFile As String

With nod

For Each strFile In Directory.GetFi les(strPath)

With nod.Nodes.Add(P ath.GetFileName (strFile))

.Tag = ItemType.File

.ImageIndex = 3

End With

Next

End With

End Sub

kind regards,

Maarten