Latest Contributions by MickeyO_Neil

I have found a workaround: That's how you store data in the Project-Settings: https://github.com/esri/arcgis-pro-sdk/wiki/ProGuide-Custom-settings#step-6-implement-the-module-class-overrides-to-read-and-write-the-new-project-settings This way you even can store JSON or XML strings in the  APRX-File. Furthermore you can use the URI Property of a layer as a unique identifier: https://pro.arcgis.com/en/pro-app/sdk/api-reference/index.html#topic11759.html ... View more

Got it: Snippet Public   Shared   Function  GetAGSFeatureLayer( ByVal  sURL  As   String )  As   IFeatureLayer              Dim  pAGSConnectionFactory  As   IAGSServerConnectionFactory              Dim  pConnectionProps  As   IPropertySet              Dim  pAGSConnection  As   IAGSServerConnection             Dim  enumServerObjectName  As   IAGSEnumServerObjectName             Dim  pServerObjectName  As   IAGSServerObjectName3               Dim  pLayerFactory  As   ILayerFactory             Dim  pEnumLayer  As   IEnumLayer             Dim  pLayer  As   ILayer             Dim  pCurrentLayer  As   ILayer             Dim  pCompositeLayer  As   ICompositeLayer             Try                    pConnectionProps =  New   PropertySet                    pConnectionProps.SetProperty( "URL" , sURL)                    pAGSConnectionFactory =  New   AGSServerConnectionFactory                    pAGSConnection = pAGSConnectionFactory.Open(pConnectionProps, 0)                      enumServerObjectName = pAGSConnection.ServerObjectNames                    enumServerObjectName.Reset()                    pServerObjectName = enumServerObjectName.Next                       Do   Until  pServerObjectName  Is   Nothing                              If  pServerObjectName.Type.Equals( "FeatureServer" ,  StringComparison .OrdinalIgnoreCase)  Then                                                       pLayerFactory =  New   FeatureServerLayerFactory                                  pEnumLayer = pLayerFactory.Create(pServerObjectName)                                  pLayer = pEnumLayer.Next()                                     Do   Until  pLayer  Is   Nothing                                          If   TypeOf  pLayer  Is   ICompositeLayer   Then                                                pCompositeLayer = pLayer                                                   For  i  As   Integer  = 0  To  pCompositeLayer.Count - 1                                                       pCurrentLayer = pCompositeLayer.Layer(i)                                                        If   TypeOf  pCurrentLayer  Is   IFeatureLayer   Then                                                                 Return   DirectCast (pCurrentLayer,  IFeatureLayer )                                                        End   If                                                 Next                                          End   If                                         pLayer = pEnumLayer.Next()                                   Loop                              End   If                           pServerObjectName = enumServerObjectName.Next                     Loop              Catch  ex  As   Exception                    logger.Error( "GetAGSFeatureLayer" , ex)              End   Try              Return   Nothing      End   Function ... View more