Item doesn't show text on selection

[HKSHK]

Hi guys,

I have a problem with the combo box I'm writing on.
What I want is custom items, which are fine so far, but when I select
one the combo box shows the project name
("WindowsApplic ation1+ListItem s")... What's wrong? The source code is below.

Thanks in advance!

Best regards,

HKSHK

#Region "ComboBoxVB 6"
Public Class ComboBoxVB6
Inherits System.Windows. Forms.ComboBox

Public Class ListItems
Public Item As Object
Public ItemData As Long

Public Sub New(ByVal Item As Object, ByVal ItemData As Long)
Me.Item = Item
Me.ItemData = ItemData
End Sub

Public Property Text() As String
Get
Return Me.Item.ToStrin g
End Get
Set(ByVal Value As String)
Me.Item = Value
End Set
End Property

Public Overridable Shadows Function ToString() As String
Return Me.Item.ToStrin g
End Function
End Class
Public Function AddItem(ByVal item As Object) As Integer
Return AddItem(item, 0)
End Function
Public Function AddItem(ByVal Item As Object, ByVal ItemData As Long) As
Integer
Dim t As New ListItems(Item, ItemData)
Return Items.Add(t)
End Function

Public Property ItemData(ByVal index As Integer) As Long
Get
If TypeOf (Items.Item(ind ex)) Is ListItems Then
Dim t As ListItems
t = Items.Item(inde x)
Return t.ItemData
Else
Return 0
End If
End Get
Set(ByVal Value As Long)
If TypeOf (Items.Item(ind ex)) Is ListItems Then
Dim t As ListItems
t = Items.Item(inde x)
t.ItemData = Value
Items.Item(inde x) = t
Else
Dim t As New ListItems(Items .Item(index), Value)
Items.Item(inde x) = t
End If
End Set
End Property

Public Sub New()
Me.DrawMode = DrawMode.OwnerD rawFixed
End Sub

Protected Overrides Sub OnDrawItem(ByVa l e As
System.Windows. Forms.DrawItemE ventArgs)
'draw background & focus rect
e.DrawBackgroun d()
e.DrawFocusRect angle()

'check if it is an item from the ListItems collection
If e.Index < 0 Then
'not an item, draw the text (indented)
e.Graphics.Draw String(Me.Text, e.Font, New SolidBrush(e.Fo reColor),
e.Bounds.Left, e.Bounds.Top)
Else
'check if item is a ListItems item

If TypeOf (Me.Items(e.Ind ex)) Is ListItems Then

'get item to draw
Dim item As ListItems = Me.Items(e.Inde x)

' draw text
e.Graphics.Draw String(item.Tex t, Font, New
SolidBrush(e.Fo reColor), e.Bounds.Left, e.Bounds.Top)

Else
' it is not an ListItems item, draw it
e.Graphics.Draw String(Me.Items (e.Index).ToStr ing(), e.Font, New
SolidBrush(e.Fo reColor), e.Bounds.Left, e.Bounds.Top)
End If

MyBase.OnDrawIt em(e)
End If

End Sub

Public Overrides Function ToString() As String
Dim t As ListItems
t = SelectedItem

Return t.ToString
End Function
End Class
#End Region

[Claes Bergefall]

Probably beacuse you're shadowing the ToString method in the ListItems
class. Try overriding it instead

/claes

"HKSHK" <hk***@gmx.ne t> wrote in message
news:44******** *************** @news.freenet.d e...

Hi guys,

I have a problem with the combo box I'm writing on.
What I want is custom items, which are fine so far, but when I select one
the combo box shows the project name ("WindowsApplic ation1+ListItem s")...
What's wrong? The source code is below.

Thanks in advance!

Best regards,

HKSHK

#Region "ComboBoxVB 6"
Public Class ComboBoxVB6
Inherits System.Windows. Forms.ComboBox

Public Class ListItems
Public Item As Object
Public ItemData As Long

Public Sub New(ByVal Item As Object, ByVal ItemData As Long)
Me.Item = Item
Me.ItemData = ItemData
End Sub

Public Property Text() As String
Get
Return Me.Item.ToStrin g
End Get
Set(ByVal Value As String)
Me.Item = Value
End Set
End Property

Public Overridable Shadows Function ToString() As String
Return Me.Item.ToStrin g
End Function
End Class
Public Function AddItem(ByVal item As Object) As Integer
Return AddItem(item, 0)
End Function
Public Function AddItem(ByVal Item As Object, ByVal ItemData As Long) As
Integer
Dim t As New ListItems(Item, ItemData)
Return Items.Add(t)
End Function

Public Property ItemData(ByVal index As Integer) As Long
Get
If TypeOf (Items.Item(ind ex)) Is ListItems Then
Dim t As ListItems
t = Items.Item(inde x)
Return t.ItemData
Else
Return 0
End If
End Get
Set(ByVal Value As Long)
If TypeOf (Items.Item(ind ex)) Is ListItems Then
Dim t As ListItems
t = Items.Item(inde x)
t.ItemData = Value
Items.Item(inde x) = t
Else
Dim t As New ListItems(Items .Item(index), Value)
Items.Item(inde x) = t
End If
End Set
End Property

Public Sub New()
Me.DrawMode = DrawMode.OwnerD rawFixed
End Sub

Protected Overrides Sub OnDrawItem(ByVa l e As
System.Windows. Forms.DrawItemE ventArgs)
'draw background & focus rect
e.DrawBackgroun d()
e.DrawFocusRect angle()

'check if it is an item from the ListItems collection
If e.Index < 0 Then
'not an item, draw the text (indented)
e.Graphics.Draw String(Me.Text, e.Font, New SolidBrush(e.Fo reColor),
e.Bounds.Left, e.Bounds.Top)
Else
'check if item is a ListItems item

If TypeOf (Me.Items(e.Ind ex)) Is ListItems Then

'get item to draw
Dim item As ListItems = Me.Items(e.Inde x)

' draw text
e.Graphics.Draw String(item.Tex t, Font, New
SolidBrush(e.Fo reColor), e.Bounds.Left, e.Bounds.Top)

Else
' it is not an ListItems item, draw it
e.Graphics.Draw String(Me.Items (e.Index).ToStr ing(), e.Font, New
SolidBrush(e.Fo reColor), e.Bounds.Left, e.Bounds.Top)
End If

MyBase.OnDrawIt em(e)
End If

End Sub

Public Overrides Function ToString() As String
Dim t As ListItems
t = SelectedItem

Return t.ToString
End Function
End Class
#End Region