Description: Dim i As Integer
For i = 0 To Map1.Layers.Count- 1
If Map1.Layer(i).LayerType = moMapLayer Then
If Map1.Layer(i).shapeType = moPoint Then
MsgBook "Layer number" & i & "is a map layer and contains points."
ElseIf Map1.Layer(i).shapeType = moLine Then
MsgBook "Layer number" & i & "
To Search:
File list (Check if you may need any files):
99\2.vbp
..\工程2.vbw
99
Download