Combobox with images and text

[mqdias]

Hi,

I'm trying to do a combobox containing items wich are made of a image and some text following it, for example, like that one in Autocad to selec the layer, wich is shown in the appended image.

I have the code to insert images, but not to insert items with both images and text.

Thanks

[Hack]

Have a look here

[mqdias]

Hi,

Thanks for the reply. I have taken a look and downloaded the zip fie. I've opened the project and i see too much code and don't understand what is it and how can i use it.

can you help me a bit more?

Thanks

[Hack]

I have taken a look and downloaded the zip fie. I've opened the project and i see too much code

That doesn't surprise me. What you ask isn't easy.

can you help me a bit more?

Sure. If you have specific questions, I'll take a shot at them.

[mqdias]

Hi,

Maybe i'll insert the text i want directly in the image, so that i can use the code that i have already to list images.

But, with the code that i've attached in a doc, you see any way i can add some few more code to add text aside to the images, please tell me.

Thanks anyway!!!

[Hack]

Code from the document (unless there is so much code that it won't fit in a post, it makes better sense to just post it rather than attach with something.)

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Dim items(Me.ImageList1.Images.Count - 1) As String
        For i As Int32 = 0 To Me.ImageList1.Images.Count - 1
            items(i) = "Item " & i.ToString
        Next

        Me.ComboBox1.Items.AddRange(items)
        Me.ComboBox1.DropDownStyle = ComboBoxStyle.DropDownList
        Me.ComboBox1.DrawMode = DrawMode.OwnerDrawVariable
        Me.ComboBox1.ItemHeight = Me.ImageList1.ImageSize.Height
        Me.ComboBox1.Width = Me.ImageList1.ImageSize.Width + 50
        Me.ComboBox1.MaxDropDownItems = Me.ImageList1.Images.Count

    End Sub
    Private Sub ComboBox1_DrawItem(ByVal sender As Object, ByVal e As System.Windows.Forms.DrawItemEventArgs) Handles ComboBox1.DrawItem

        If e.Index <> -1 Then
            e.Graphics.DrawImage(Me.ImageList1.Images(e.Index) _
         , e.Bounds.Left, e.Bounds.Top)
        End If
    End Sub

    Private Sub ComboBox1_MeasureItem(ByVal sender As Object, ByVal e As System.Windows.Forms.MeasureItemEventArgs) Handles ComboBox1.MeasureItem
        e.ItemHeight = Me.ImageList1.ImageSize.Height
        e.ItemWidth = Me.ImageList1.ImageSize.Width
    End Sub
End Class

[Hack]

Where is the text that you want associated with the images stored?

[mqdias]

That code is to show add images as combobox items. It doesn't have text, but i would like to insert some, after each image, as it's showed in the attached image.

[Hack]

Have a look here

I think it would be worth the effort to go through this code and see if you can get it to work for you.