加载coverage文件代码

最新推荐文章于 2023-01-04 22:34:34 发布

lzx1221

最新推荐文章于 2023-01-04 22:34:34 发布

阅读量625

点赞数

分类专栏： ArcObject 文章标签： dataset database

本文链接：https://blog.csdn.net/lzx1221/article/details/1724788

版权

ArcObject 专栏收录该内容

5 篇文章 0 订阅

订阅专栏

        Dim pPropset As IPropertySet
        Set pPropset = New PropertySet
        pPropset.SetProperty "DATABASE", filePath

        '使用ArcInfoWorkspaceFactory类实现IWorkSpaceFactory接口对象
        '用IWorkspaceFactory.Open方法打开一个Workspace
        Dim pFact As IWorkspaceFactory
        Dim pWorkspace As IWorkspace
        Set pFact = New ArcInfoWorkspaceFactory
        Set pWorkspace = pFact.Open(pPropset, frmFCLst.hWnd)

        Dim pFeatureWorkspace As IFeatureWorkspace
        Set pFeatureWorkspace = pWorkspace

        Dim pFeatureClass As IFeatureClass
        Set pFeatureClass = pFeatureWorkspace.OpenFeatureClass(fileName)

        '获得Dataset对象
        Dim pDateset As IDataset
        Set pDateset = pFeatureClass
        '通过FeatureLayer类实现IFeatureLayer接口对象
        '设置IFeatureLayer.FeatureClass属性和Name属性
        Dim pFeatureLayer As IFeatureLayer
        Set pFeatureLayer = New FeatureLayer
        Set pFeatureLayer.FeatureClass = pFeatureClass
        pFeatureLayer.Name = pDateset.Name

        MapControl1.AddLayer pFeatureLayer

        MapControl1.ActiveView.Refresh