Forum

Hello,

Elegant Ribbon 3.0, vb2005

How can i add a Comobox Item with Screentip an Image with Code in vb2005.
The Images are store in a Imagelist.

I can add a Combobox Item without Image and Screentip with:

ComboBoxControl.Items.Add("MyCombobox")

Thanks
Gunter

Hello,

I found it.

Comboboxcontrol.Items.Add(New ComboboxItem("Name",Image,"Screentip"))

Thanks.
Gunter

Hello,

Please, can you give me a litte example for vb2005?

Thanks.
Gunter

If you need to modify combo box items collection dynamically, you should work with the ComboBox.Items collection directly instead of setting DataSource. In this case all you need is to add an items to this collection in a button click event handler.

Hello,

thanks.

I found the sample Code in our Samples.

Ok. This Sample adds 2 ComboboxItems and works fine.

How can i add with a Button Click another (third) Combobox Item?

Text ="Item 3"
Screentip = "My next ComboBoxitem"
Image=imgList1.Images("myImage")

You can add images and tooltips for a combo box items by using the ComboBox.ItemImagePropertyName and ComboBox. ItemScreentipTextPropertyName properties, like as follows

            Friend Class ComboBoxItem
      Public Sub New(ByVal text As String, ByVal image As Image, ByVal tooltipText As String)
            _Text = text
            _Image = image
            _ScreentipText = tooltipText
      End Sub

      Public _Text As String

      Public Property Text() As String
            Get
                 Return _Text
            End Get
            Set(ByVal value As String)
                 _Text = value
            End Set
      End Property

      Public _ScreentipText As String

      Public Property ScreentipText() As String
            Get
                 Return _ScreentipText
            End Get
            Set(ByVal value As String)
                 _ScreentipText = value
            End Set
      End Property

      Public _Image As Image

      Public Property Image() As Image
            Get
                 Return _Image
            End Get
            Set(ByVal value As Image)
                 _Image = value
            End Set
      End Property
End Class

Private Sub InitializeComboBoxWithImages()
      Dim ds() As ComboBoxItem = { New ComboBoxItem("Item 1", myImage1, "Item 1 Description"), _
                                        New ComboBoxItem("Item 2", myImage2, "Item 2 ) }

      SampleComboBoxWithImages.ItemImagePropertyName = "Image"
      SampleComboBoxWithImages.ItemScreentipTextPropertyName = "ScreentipText"
      SampleComboBoxWithImages.DisplayMember = "Text"
      SampleComboBoxWithImages.ItemHeight = 40
      SampleComboBoxWithImages.DataSource = ds
End Sub