ComboBox Overpopulates

Each time I pull down on this list, it adds more layouts to the list. I don't want to use an initialize form event, can I do something right in the code to make it only list the layouts and not add with each susequent pull-down?

Private Sub cmbLayout_DropButtonClick()
Dim acLayout As AcadLayout
For Each acLayout In ThisDrawing.Layouts
cmbLayout.AddItem acLayout.Name
Next
End Sub

 

Stck2mlon,

Maybe I'm trying to see too many trees in the forest. Are you asking to clear your combo box each round before it is populated again via AddItems?

If then Do...

cmbLayout.Clear
For Each acLayout in ThisDrawing.layouts
cmbLayout.AddItem acLayout.Name
Next

Hope this answers your question.

Regards,

Bob Coward
CADS, Inc

800-366-0946

 

That was perfect, thank you very much!