レイヤーの切断

2016/9/1 (Thu)2017/12/9 (Sat)

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

URLをコピーしました！