21 组合对象

组合对象在 实际用处不多

随便做了例子了

假设页面上 有一个组合对象Composite1 和几个零散的对象，我们要点一个 加一个
 
 

ThisDisplay.Symbols.Item("Composite1").GroupedSymbols.Add _

   ThisDisplay.SelectedSymbols.Item(1).Name


再加一个btn，点一次，分拆一个

Dim iSym As Integer
iSym = ThisDisplay.Symbols.Item("Composite1").GroupedSymbols.Count
ThisDisplay.Symbols.Item("Composite1").GroupedSymbols.Remove _
   ThisDisplay.Symbols.Item("Composite1").GroupedSymbols.Item(iSym).Name

如此而已