NIM036636 for No Product Found

Numéro d’ID de bogue	NIM036636
Envoi	July 8, 2008
Dernière modification	June 5, 2024
S’applique à	No Product Found
Version trouvée	9.2
Langue du programme	VBA
Statut	Non-Reproducible

Informations supplémentaires

No Public Explanation

Solution de contournement

Add a layer from a valid workspace.---------------------------------------------------Public Sub AddShapeFile() Dim pWorkspaceFactory As IWorkspaceFactory Dim pFeatureWorkspace As IFeatureWorkspace Dim pFeatureLayer As IFeatureLayer Dim pMxDocument As IMxDocument Dim pMap As IMap 'Create a new ShapefileWorkspaceFactory object and open a shapefile folder Set pWorkspaceFactory = New ShapefileWorkspaceFactory Set pFeatureWorkspace = pWorkspaceFactory.OpenFromFile("<a href="file:C:/Student/igis1/World" target="_blank">C:\Student\igis1\World</a>", 0) 'Create a new FeatureLayer and assign a shapefile to it Set pFeatureLayer = New FeatureLayer Set pFeatureLayer.FeatureClass = pFeatureWorkspace.OpenFeatureClass("Country") <a href="http://pFeatureLayer.Name" target="_blank">pFeatureLayer.Name</a> = pFeatureLayer.FeatureClass.AliasName 'Add the FeatureLayer to the focus map Set pMxDocument = Application.Document Set pMap = pMxDocument.FocusMap pMap.AddLayer pFeatureLayerEnd Sub----------------------------------------------------