System icons in Listview

T

Ty

I am using the following code to add the system associated icons to a
listview and seem to be having trouble.

When the project is run it seems like there should be an icon as the
text is moved to the right enough for where the icon would be, but
there is no icon showing.

I'm not sure if this is a Vista issue of a listview setup problem. I
am also getting an error when there is no icon associated with an
item.

CODE to get the icons.
Private Sub AddImages(ByVal strFileName As String)

Dim shInfo As SHFILEINFO
shInfo = New SHFILEINFO()
shInfo.szDisplayName = New String(vbNullChar, MAX_PATH)
shInfo.szTypeName = New String(vbNullChar, 80)
Dim hIcon As IntPtr
hIcon = SHGetFileInfo(strFileName, 0, shInfo, Marshal.SizeOf
(shInfo), SHGFI_ICON Or SHGFI_SMALLICON)
Dim MyIcon As System.Drawing.Icon
MyIcon = System.Drawing.Icon.FromHandle(shInfo.hIcon)
ImageList1.Images.Add(strFileName.ToString(), MyIcon)

End Sub

CALLING PROCDURE
Private Sub GetFiles(ByVal sender As Object, ByVal e As
DirectorySelectedEventArgs) Handles dtEvent.DirectorySelected

Dim fName As String 'The file name to get the icon from.
Dim FileExtension As String
Dim SubItemIndex As Integer
Dim DateMod As String
Dim strFileName As String

ListView1.Clear()
fName = e.DirectoryName

'Set up the ListView
ListView1.Columns.Add("File Name", 300,
HorizontalAlignment.Left)
ListView1.Columns.Add("File Type", 80,
HorizontalAlignment.Left)
ListView1.Columns.Add("Date Modified", 150,
HorizontalAlignment.Left)

For Each file As String In IO.Directory.GetFiles(fName)
strFileName = file.Substring(file.LastIndexOf("\"c) + 1)
ListView1.Items.Add(strFileName)
FileExtension = IO.Path.GetExtension(file)
DateMod = IO.File.GetLastWriteTime(file).ToString()
AddImages(file)
ListView1.Items(SubItemIndex).SubItems.Add
(FileExtension.ToString() & " File")
ListView1.Items(SubItemIndex).SubItems.Add(DateMod.ToString
())
SubItemIndex += 1
Next

End Sub
 
A

Armin Zingler

Ty said:
I am using the following code to add the system associated icons to a
listview and seem to be having trouble.

When the project is run it seems like there should be an icon as the
text is moved to the right enough for where the icon would be, but
there is no icon showing.

I'm not sure if this is a Vista issue of a listview setup problem. I
am also getting an error when there is no icon associated with an
item.

CODE to get the icons.
Private Sub AddImages(ByVal strFileName As String)

Dim shInfo As SHFILEINFO
shInfo = New SHFILEINFO()
shInfo.szDisplayName = New String(vbNullChar, MAX_PATH)
shInfo.szTypeName = New String(vbNullChar, 80)
Dim hIcon As IntPtr
hIcon = SHGetFileInfo(strFileName, 0, shInfo, Marshal.SizeOf
(shInfo), SHGFI_ICON Or SHGFI_SMALLICON)
Dim MyIcon As System.Drawing.Icon
MyIcon = System.Drawing.Icon.FromHandle(shInfo.hIcon)
ImageList1.Images.Add(strFileName.ToString(), MyIcon)

End Sub

CALLING PROCDURE
Private Sub GetFiles(ByVal sender As Object, ByVal e As
DirectorySelectedEventArgs) Handles dtEvent.DirectorySelected

Dim fName As String 'The file name to get the icon from.
Dim FileExtension As String
Dim SubItemIndex As Integer
Dim DateMod As String
Dim strFileName As String

ListView1.Clear()
fName = e.DirectoryName

'Set up the ListView
ListView1.Columns.Add("File Name", 300,
HorizontalAlignment.Left)
ListView1.Columns.Add("File Type", 80,
HorizontalAlignment.Left)
ListView1.Columns.Add("Date Modified", 150,
HorizontalAlignment.Left)

For Each file As String In IO.Directory.GetFiles(fName)
strFileName = file.Substring(file.LastIndexOf("\"c) + 1)
ListView1.Items.Add(strFileName)
FileExtension = IO.Path.GetExtension(file)
DateMod = IO.File.GetLastWriteTime(file).ToString()
AddImages(file)
ListView1.Items(SubItemIndex).SubItems.Add
(FileExtension.ToString() & " File")
ListView1.Items(SubItemIndex).SubItems.Add(DateMod.ToString
())
SubItemIndex += 1
Next

End Sub
Click to expand...

The name 'SubItemIndex' is confusing because it's actually the index of the
item, not the index of the sub item. However, I don't see where you assign
an icon to the item in the listview. I only see that Icons are added to an
imagelist in Sub AddImages.

BTW, is Icon.ExtractAssociatedIcon an option?


Armin
 
A

Armin Zingler

Ty said:
I am using the following code to add the system associated icons to a
listview and seem to be having trouble.

When the project is run it seems like there should be an icon as the
text is moved to the right enough for where the icon would be, but
there is no icon showing.

I'm not sure if this is a Vista issue of a listview setup problem. I
am also getting an error when there is no icon associated with an
item.

CODE to get the icons.
Private Sub AddImages(ByVal strFileName As String)

Dim shInfo As SHFILEINFO
shInfo = New SHFILEINFO()
shInfo.szDisplayName = New String(vbNullChar, MAX_PATH)
shInfo.szTypeName = New String(vbNullChar, 80)
Dim hIcon As IntPtr
hIcon = SHGetFileInfo(strFileName, 0, shInfo, Marshal.SizeOf
(shInfo), SHGFI_ICON Or SHGFI_SMALLICON)
Dim MyIcon As System.Drawing.Icon
MyIcon = System.Drawing.Icon.FromHandle(shInfo.hIcon)
ImageList1.Images.Add(strFileName.ToString(), MyIcon)

End Sub

CALLING PROCDURE
Private Sub GetFiles(ByVal sender As Object, ByVal e As
DirectorySelectedEventArgs) Handles dtEvent.DirectorySelected

Dim fName As String 'The file name to get the icon from.
Dim FileExtension As String
Dim SubItemIndex As Integer
Dim DateMod As String
Dim strFileName As String

ListView1.Clear()
fName = e.DirectoryName

'Set up the ListView
ListView1.Columns.Add("File Name", 300,
HorizontalAlignment.Left)
ListView1.Columns.Add("File Type", 80,
HorizontalAlignment.Left)
ListView1.Columns.Add("Date Modified", 150,
HorizontalAlignment.Left)

For Each file As String In IO.Directory.GetFiles(fName)
strFileName = file.Substring(file.LastIndexOf("\"c) + 1)
ListView1.Items.Add(strFileName)
FileExtension = IO.Path.GetExtension(file)
DateMod = IO.File.GetLastWriteTime(file).ToString()
AddImages(file)
ListView1.Items(SubItemIndex).SubItems.Add
(FileExtension.ToString() & " File")
ListView1.Items(SubItemIndex).SubItems.Add(DateMod.ToString
())
SubItemIndex += 1
Next

End Sub
Click to expand...

The name 'SubItemIndex' is confusing because it's actually the index of the
item, not the index of the sub item. However, I don't see where you assign
an icon to the item in the listview. I only see that Icons are added to an
imagelist in Sub AddImages.

BTW, is Icon.ExtractAssociatedIcon an option?


Armin
 
T

Ty

The name 'SubItemIndex' is confusing because it's actually the index of the
item, not the index of the sub item. However, I don't see where you assign
an icon to the item in the listview. I only see that Icons are added to an
imagelist in Sub AddImages.

BTW, is Icon.ExtractAssociatedIcon an option?

Armin- Hide quoted text -

- Show quoted text -
Click to expand...

The Listview is assigned to the image control in the Load event.

Not sure about the ExtratAssociatedIcon.

Ty
 
T

Ty

The name 'SubItemIndex' is confusing because it's actually the index of the
item, not the index of the sub item. However, I don't see where you assign
an icon to the item in the listview. I only see that Icons are added to an
imagelist in Sub AddImages.

BTW, is Icon.ExtractAssociatedIcon an option?

Armin- Hide quoted text -

- Show quoted text -
Click to expand...

The Listview is assigned to the image control in the Load event.

Not sure about the ExtratAssociatedIcon.

Ty
 
T

Ty

I got it figured out. I was not assigning the icon to the item added
to the listview in the FOR EACH loop.

I changed this line to ListView1.Items.Add(strFileName, imgindex)

and then this at the end to increase the index right above the 'Next'
statement... imgindex = imgindex + 1

Works like a champ now.

Ty
 
T

Ty

I got it figured out. I was not assigning the icon to the item added
to the listview in the FOR EACH loop.

I changed this line to ListView1.Items.Add(strFileName, imgindex)

and then this at the end to increase the index right above the 'Next'
statement... imgindex = imgindex + 1

Works like a champ now.

Ty
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

ListView Help 1
listView - filling it with datareader 3
ListView Control 7
Get associated icon for a file 4
Not appeared icons in the listview in VB.NET 1
ListView SQL DB Problem 1
how to fill listview without image 2
listview does not display contents 1

Top