NIM036636 for No Product Found

不具合 ID 番号	NIM036636
送信されました	July 8, 2008
最終更新日	June 5, 2024
適用対象	No Product Found
見つかったバージョン	9.2
プログラム言語	VBA
ステータス	Non-Reproducible

参考情報

No Public Explanation

対処法

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----------------------------------------------------