|
'aggiungo una combobox a run-time
Dim b As Button Set b = Toolbar1.Buttons.Add(, , , tbrSeparator) Set b = Toolbar1.Buttons.Add(, "combo1", , tbrPlaceholder) With Combo1 .Move Toolbar1.Buttons("combo1").Left, Toolbar1.Buttons("combo1").Top .AddItem "rosso" .AddItem "verde" .AddItem "blu" .ListIndex = 0 End With Supponendo di avere gia' la toolbar con dei bottoni e di voler aggiungere una ComboBox alla fine dei bottoni: |