Howto: 返回SDE栅格图层的数据源名称

摘要： 这篇文章举例说明了怎么用ArcObjects返回栅格图层的数据源名称。

内容： 在ArcMap中，你右击某个图层后可以显示它的属性。即使在内容列表（TOC）改变了图层名称，也可以在“数据源”标签页中显示其数据源。这篇文章举例说明了怎么用ArcObjects返回栅格图层的数据源名称。
1.启动ArcMap
2.创建一个新的UIButtonControl.
更多信息关于创建UIButtonControl，请参考ArcGIS Desktop帮助主题“'How to create custom commands with VBA.”
3.右击新建的UIButtonControl，选择“查看源”
4.将下列代码拷贝到UIButtonControl的“click”事件中

Dim pApp As IApplication
Dim pMxDoc As IMxDocument
Dim pMap As IMap
Dim pLayer As ILayer
Dim pRasterLayer As IRasterLayer
Dim pRaster As IRaster
Dim pRasterBandColl As IRasterBandCollection
Dim pEnumRasterBand As IEnumRasterBand
Dim pRasterBand As IRasterBand
Dim pRasterDataset As IRasterDataset
Dim pDataset As IDataset
Set pApp = Application
Set pMxDoc = pApp.Document
Set pMap = pMxDoc.FocusMap
Set pLayer = pMap.Layer(0)
Set pRasterLayer = pLayer ' QI
Debug.Print "LayerName: " & pLayer.Name
Set pRaster = pRasterLayer.Raster
Set pRasterBandColl = pRaster ' QI
Set pEnumRasterBand = pRasterBandColl.Bands
pEnumRasterBand.Reset
'Set pRasterBand = pRasterBandColl.BandByName("Band_1")
Set pRasterBand = pEnumRasterBand.Next
Do Until pRasterBand Is Nothing
Set pRasterDataset = pRasterBand.RasterDataset
Set pDataset = pRasterDataset ' QI
Debug.Print "Dataset.Name: " & pDataset.Name
Set pRasterBand = pEnumRasterBand.Next
Loop

5.点击“添加数据”，添加一个SDE栅格图层到TOC中
6.右击该层，选择“常规”标签页，键入新的图层名称，然后点击“确定”
7.运行代码
8.打开Visual Basic编辑器.从“View”菜单中点击“ Immediate Window ”来浏览程序的返回值




创建时间：2004-10-08
最近更新：2004-10-08


【原文链接】
http://support.esrichina.com.cn/2004/1008/375.html