25 多状态的复制

多状态和前者一样

页面布局一下，tnd 换成2个多状态实体就是

BTN一按，格式被复制

与前面稍微不同的地方在于

多状态格式设置用 set

 

Dim MyMultiState As PBObjLib.MultiState

Dim returnedMultiState As PBObjLib.MultiState

Set MyMultiState = thisdisplay.SelectedSymbols.Item(1).GetMultiState

Set returnedMultiState = thisdisplay.SelectedSymbols.Item(2).SetMultiState(MyMultiState)

不知道在编辑多状态的时候  能不能用上