ArcObject之添加向量圖層

（1）添加向量圖層——方法1

Dim sPath As String
sPath = "F:\AE 資料"    '"F:\AE 資料"為所有圖層檔案所在的檔案夾目錄
Me.AxMapControl1.AddShapeFile(sPath, "object_pt")     '"object_pt"為其中之一的圖層檔案

 

（2）添加向量圖層——方法2

Dim sPath As String
sPath = "F:\AE 資料"
Dim pWorkSpaceFactory As IWorkspaceFactory
pWorkSpaceFactory = New ShapefileWorkspaceFactory

   '利用ShapefileWorkSpaceFactory建立FeatureWorkSpace
Dim pFeatureWorkSpace As IFeatureWorkspace
pFeatureWorkSpace = pWorkSpaceFactory.OpenFromFile(sPath, 0)

   '將FeatureWorkSpace中的指定FeatureClass  賦予  FeatureLayer的FeatureClass屬性

Dim pFeatureLayer As IFeatureLayer
pFeatureLayer = New FeatureLayer
pFeatureLayer.FeatureClass = pFeatureWorkSpace.OpenFeatureClass("object_pl")
pFeatureLayer.Name = pFeatureLayer.FeatureClass.AliasName

   '添加圖層
Me.AxMapControl1.AddLayer(pFeatureLayer)

 

（3）添加向量圖層——方法3

Dim pFileName As IFileName
pFileName = New FileName
pFileName.Path = "F:\AE 資料\object_pg.shp"

     '用LayerFactoryHelper來建立圖層集（EnumLayer）

Dim pLayerFactoryHelp As ILayerFactoryHelper
pLayerFactoryHelp = New LayerFactoryHelper
Dim pEnumLayer As IEnumLayer
pEnumLayer = pLayerFactoryHelp.CreateLayersFromName(pFileName)

pEnumLayer.Reset()

     '將圖層集（EnumLayer）中的特曾逐個添加到地圖axMapControl中
Dim pLayer As ILayer
pLayer = pEnumLayer.Next
Do While Not pLayer Is Nothing
      Me.AxMapControl1.AddLayer(pLayer)
       pLayer = pEnumLayer.Next
Loop