creating an owner drawn listbox that includes a filetype icon and a filespec

[Bernie Yaeger]

I now know how to gather the file type icons and I'm able to use them in a
listview. But a listbox does not have a .smallimagelist or .largeimagelist
member, so I don't know how to translate that so that I have the icon + the
string in a listbox. Is this possible, and if so, can you give me some idea
how to go about it.

Thanks for any help.

Bernie Yaeger

[Herfried K. Wagner [MVP]]

"Bernie Yaeger" <be*****@cherwe llinc.com> schrieb:

I now know how to gather the file type icons and I'm able to use them in a
listview. But a listbox does not have a .smallimagelist or .largeimagelist
member, so I don't know how to translate that so that I have the icon + the
string in a listbox. Is this possible, and if so, can you give me some
idea how to go about it.

I am just curious why a listview control is not sufficient...

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

[Ken Tucker [MVP]]

Hi,
Try something like this.

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

Dim arIcons As New ArrayList

Dim clsIco As New clsGetIcon

Dim diRoot As New IO.DirectoryInf o("C:\")

For Each fiCur As IO.FileInfo In diRoot.GetFiles

Dim c As New FileHelper

c.FileName = fiCur.Name

c.FileIcon = clsIco.getIcon( fiCur.FullName)

arIcons.Add(c)

Next

ListBox1.DrawMo de = DrawMode.OwnerD rawFixed

ListBox1.DataSo urce = arIcons

ListBox1.Displa yMember = "FileName"

End Sub


Private Sub ListBox1_DrawIt em(ByVal sender As Object, ByVal e As
System.Windows. Forms.DrawItemE ventArgs) Handles ListBox1.DrawIt em

Dim g As Graphics = e.Graphics

Dim br As SolidBrush

Dim s As String

Dim c As FileHelper

Try

c = DirectCast(List Box1.Items.Item (e.Index), FileHelper)

s = c.FileName

Catch ex As Exception

Trace.WriteLine (ex.ToString)

End Try

g.FillRectangle (Brushes.White, e.Bounds)

If CBool(e.State And DrawItemState.S elected) Then

g.FillRectangle (Brushes.LightB lue, e.Bounds)

End If

br = New SolidBrush(Colo r.Black)

g.DrawIcon(c.Fi leIcon, e.Bounds.Left, e.Bounds.Top)

g.DrawString(s, ListBox1.Font, br, e.Bounds.Left + 25, e.Bounds.Top)

br.Dispose()

End Sub

Helper classes

Public Class FileHelper

Dim ico As Icon

Dim strFile As String

Public Property FileIcon() As Icon

Get

Return ico

End Get

Set(ByVal Value As Icon)

ico = Value

End Set

End Property

Public Property FileName() As String

Get

Return strFile

End Get

Set(ByVal Value As String)

strFile = Value

End Set

End Property

End 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( _

System.Runtime. InteropServices .UnmanagedType. ByValTStr, _

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( _

System.Runtime. InteropServices .UnmanagedType. ByValTStr, _

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

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

"Bernie Yaeger" <be*****@cherwe llinc.com> wrote in message
news:Of******** ******@TK2MSFTN GP15.phx.gbl...
I now know how to gather the file type icons and I'm able to use them in a
listview. But a listbox does not have a .smallimagelist or .largeimagelist
member, so I don't know how to translate that so that I have the icon + the
string in a listbox. Is this possible, and if so, can you give me some idea
how to go about it.

Thanks for any help.

Bernie Yaeger

[Bernie Yaeger]

Hi Herfried, Cor;

There are several reasons why the listview is inadequate.

I am trying to replicate the funtionality and display of the Outlook Express
attachment box. The listview does not give me a horizontal scrollbar until
there is a second column displayed, but the path string sometimes runs
beyond the bounds of the listview. In addition, I can't get a vertical
scrollbar in it. Third, I do not want multi cols. Fourth, only 'list' view
can do what I need done - even smallicon view is inadequate.

The listbox has most of what I need intrinsically.

Thanks to both of you for your responses, as always.

Bernie Yaeger

"Herfried K. Wagner [MVP]" <hi************ ***@gmx.at> wrote in message
news:Os******** ******@TK2MSFTN GP10.phx.gbl...

"Bernie Yaeger" <be*****@cherwe llinc.com> schrieb:

I now know how to gather the file type icons and I'm able to use them in a
listview. But a listbox does not have a .smallimagelist or
.largeimageli st member, so I don't know how to translate that so that I
have the icon + the string in a listbox. Is this possible, and if so, can
you give me some idea how to go about it.

I am just curious why a listview control is not sufficient...

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

[Bernie Yaeger]

Hi Ken,

Thanks, as always; I will try your suggestion.

Bernie

"Ken Tucker [MVP]" <vb***@bellsout h.net> wrote in message
news:OX******** ********@tk2msf tngp13.phx.gbl. ..

Hi,
Try something like this.

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

Dim arIcons As New ArrayList

Dim clsIco As New clsGetIcon

Dim diRoot As New IO.DirectoryInf o("C:\")

For Each fiCur As IO.FileInfo In diRoot.GetFiles

Dim c As New FileHelper

c.FileName = fiCur.Name

c.FileIcon = clsIco.getIcon( fiCur.FullName)

arIcons.Add(c)

Next

ListBox1.DrawMo de = DrawMode.OwnerD rawFixed

ListBox1.DataSo urce = arIcons

ListBox1.Displa yMember = "FileName"

End Sub


Private Sub ListBox1_DrawIt em(ByVal sender As Object, ByVal e As
System.Windows. Forms.DrawItemE ventArgs) Handles ListBox1.DrawIt em

Dim g As Graphics = e.Graphics

Dim br As SolidBrush

Dim s As String

Dim c As FileHelper

Try

c = DirectCast(List Box1.Items.Item (e.Index), FileHelper)

s = c.FileName

Catch ex As Exception

Trace.WriteLine (ex.ToString)

End Try

g.FillRectangle (Brushes.White, e.Bounds)

If CBool(e.State And DrawItemState.S elected) Then

g.FillRectangle (Brushes.LightB lue, e.Bounds)

End If

br = New SolidBrush(Colo r.Black)

g.DrawIcon(c.Fi leIcon, e.Bounds.Left, e.Bounds.Top)

g.DrawString(s, ListBox1.Font, br, e.Bounds.Left + 25, e.Bounds.Top)

br.Dispose()

End Sub

Helper classes

Public Class FileHelper

Dim ico As Icon

Dim strFile As String

Public Property FileIcon() As Icon

Get

Return ico

End Get

Set(ByVal Value As Icon)

ico = Value

End Set

End Property

Public Property FileName() As String

Get

Return strFile

End Get

Set(ByVal Value As String)

strFile = Value

End Set

End Property

End 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( _

System.Runtime. InteropServices .UnmanagedType. ByValTStr, _

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( _

System.Runtime. InteropServices .UnmanagedType. ByValTStr, _

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

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

"Bernie Yaeger" <be*****@cherwe llinc.com> wrote in message
news:Of******** ******@TK2MSFTN GP15.phx.gbl...
I now know how to gather the file type icons and I'm able to use them in a
listview. But a listbox does not have a .smallimagelist or
.largeimagelist
member, so I don't know how to translate that so that I have the icon +
the
string in a listbox. Is this possible, and if so, can you give me some
idea
how to go about it.

Thanks for any help.

Bernie Yaeger