Hello,
I am very very new with Image Combo and I tryed everything but something goes wrong and it won't work. Ok, let me explain situation.
I have a userform. And I added imagecombo1 and imagelist1 as well. I right clicked to imagelist, Proporties and then Custom. Then I inserted my images sample1, sample2, sample3 from picture tab. And I added same names with pictures to Key part. I also assigned from 1 to 3 for each picture from index part. Then I wrote blw codes to userform.
So what is next ?
<codes>
Private Sub Form_Load()
Me.ImageCombo1.ImageList = ImageList1
Me.ImageCombo1.Text = "VBCODES"
Me.ImageCombo1.ImageList = ImageList1
Me.ImageCombo1.ComboItems.Add 1, , "sample1", 1
Me.ImageCombo1.ComboItems.Add 2, , "sample2"
Me.ImageCombo1.ComboItems.Add 3, , "sample3"
'Me.ImageCombo1.ComboItems.Add.Image = ImageList1.ListImages.Item.Index
End Sub
</codes>
I am very very new with Image Combo and I tryed everything but something goes wrong and it won't work. Ok, let me explain situation.
I have a userform. And I added imagecombo1 and imagelist1 as well. I right clicked to imagelist, Proporties and then Custom. Then I inserted my images sample1, sample2, sample3 from picture tab. And I added same names with pictures to Key part. I also assigned from 1 to 3 for each picture from index part. Then I wrote blw codes to userform.
So what is next ?
<codes>
Private Sub Form_Load()
Me.ImageCombo1.ImageList = ImageList1
Me.ImageCombo1.Text = "VBCODES"
Me.ImageCombo1.ImageList = ImageList1
Me.ImageCombo1.ComboItems.Add 1, , "sample1", 1
Me.ImageCombo1.ComboItems.Add 2, , "sample2"
Me.ImageCombo1.ComboItems.Add 3, , "sample3"
'Me.ImageCombo1.ComboItems.Add.Image = ImageList1.ListImages.Item.Index
End Sub
</codes>