有很多实例表明可能要检查集合中的图层。下面是一个简单的代码段,它在 Layers 集合中循环以确定现有的图层是什么类型,并在对话框中显示消息指出图层类型。
Dim lyr as Layer
For Each lyr in Map1.Layers
Select Case lyr.Type
Case miLayerTypeNormal
MsgBox “Layer ” & lyr.Name & “ is a normal layer”
Case miLayerTypeRaster
MsgBox “Layer ” & lyr.Name & “ is a raster layer”
Case miLayerTypeSeamless
MsgBox “Layer ” & lyr.Name & “ is a seamless layer”
Case miLayerTypeUnknown
MsgBox “Layer ” & lyr.Name & “ is an unknown layer”
Case miLayerTypeUserDraw
MsgBox “Layer ” & lyr.Name & “ is a user draw layer”
Case miLayerTypeDrilldown
MsgBox “Layer ” & lyr.Name & “ is a drilldown layer”
Next
在代码段中对所有图层类型使用了 MapX 定义的常量。这些常量通称为 LayerTypeConstants。所有的 MapX 常量都列出在MapX 联机帮助和《MapX参考指南》中。