レイヤーの切断

 2016/9/1 (木)    

Dim enumLayer As IEnumLayer = AxMapControl1.Map.Layers
Dim layer As IDataLayer2 = enumLayer.Next
While Not layer Is Nothing
    layer.Disconnect()
    layer = enumLayer.Next
End While

Copyright© WINGFIELD since1981 , 2018 All Rights Reserved.