Comments by RonaR - CodeProject

RonaR 23-Jul-12 16:16pm View

Private Sub Form_Open(Cancel As Integer)
Me.Word.SetFocus
Me.Word.Text = ""
Dim ImageList6 As ImageList
Dim ImageCombo7 As ImageCombo
Dim objnewItem As ComboItem

Set ImageCombo7 = Me.ImageCombo7.Object
Set ImageList6 = Me.ImageList6.Object
Set ImageCombo7.ImageList = ImageList6

Set objnewItem = ImageCombo7.ComboItems.Add(1, "a", "a", "a") '1-pervyi -poriado risunkov of deopdown
objnewItem.Indentation = 1
Everything works fine...but when i open the form from the main form, the imagecombo is not populated. Either i need to set up a default value for the image combo, so when the form opens the imagebox is populated, or autoload all pictures on the Open event of the form. Please, help!

RonaR 23-Jul-12 16:14pm View

I did!
Set objnewItem = ImageCombo7.ComboItems.Add(1, "a", "a", "a") and they show up and allow selection when I switch from design mode to Form acNormal. But when i open the form from the main form...the imagecombo comes empty.

RonaR 23-Jul-12 12:26pm View

Me.ImageCombo7.AutoLoad = true This line doen't work!
What if just to set a default value to an imagecombo? Then the form will open up with the combobox already populated with an image, but
Me.ImageCombo7.Default = Me.ImageCombo.ComboIems(1) also is not working.

Comments by RonaR (Top 3 by date)