stones75

Hi,

I'm trying to have a listbox with text and icons. My listbox isn't displaying anything because it's not going through the OnDrawItem procedure but I don't know how to make it do that. Thanks for any help.

This is what I have in my onload procedure ( have a listbox called lstText):

Dim lstText As CustomListBox = New CustomListBox
lstText.Items.Add(New CustomListBox("Image 1", New Icon("../Images/Icon16.ico")))
lstText.Items.Add(New CustomListBox("Image 2", New Icon("../Images/Icon16.ico")))



This is my CustomListBox class:

Imports System
Imports System.ComponentModel
Imports System.Drawing
Imports System.Drawing.Drawing2D
Imports System.Reflection
Imports System.Resources
Imports System.Windows.Forms


Public Class CustomListBox
Inherits ListBox

Private m_Icon As Icon

Public Sub New()
MyClass.New("", Nothing)
End Sub

Public Sub New(ByVal text As String, ByVal Icon As Icon)
Me.DrawMode = DrawMode.OwnerDrawFixed
m_Icon = Icon
End Sub

Private Function GetText() As String
Dim s As String
s = Text
return s
End Function

Protected Overrides Sub OnDrawItem(ByVal e As System.Windows.Forms.DrawItemEventArgs)
Dim item As String
Dim br As Brush

item = GetText()
'Draw the icon
If Not m_Icon Is Nothing Then
e.Graphics.DrawIcon(m_Icon, e.Bounds.Left + 2, e.Bounds.Top + 2)
End If

'Draw the item
e.Graphics.DrawString(item, e.Font, New SolidBrush(e.ForeColor), e.Bounds.Left + 25, e.Bounds.Top + 2)

MyBase.OnDrawItem(e)
End Sub


Protected Overrides Sub OnMeasureItem(ByVal e As MeasureItemEventArgs)
e.ItemWidth = 300
e.ItemHeight = 100
End Sub


End Class

shiba126

Have you ever thought about using the Listview control? You can add icons etc into it. You can also change the view, whether it be in columns, large icons, small icons or list. I think there are a few more, but ah well.

Chris

stones75

Well I have other reasons for wanting to use a listbox

shiba126

And these are....

stones75

Dosen't matter.

Iceplug

attitude...

Is it going through the "OnMeasureItem". Have you set the OwnerDraw property of the listbox. The DrawItem and MeasureItem events will not fire unless this is set.

shiba126

Then how can you expect help........

I think Iceplug was right - attitude