1 打开ArcMap, 并打开Visual Basic Editor.2 在工程浏览窗口，展开Project.mxt，选择ArcMap ObjectsThisDocument,右键并选择浏览代码。在工程的ThisDocument代码模块中的代码将仅仅在现在的地图文档中使用。如果想存储你的代码在你的所有的地图文档中，那么使用Normal.mxt中的ThisDocument代码模块。3 粘贴下面的代码到代码模块中：Public Sub AddRasterLayer()Dim pMxDocument As IMxDocumentDim pMap As IMapDim pLayer As IRasterLayerDim pWF As IWorkspaceFactoryDim pWs As IWorkspaceDim pFW As IRasterWorkspaceDim pDataset As IDatasetDim pRDataset As IRasterDatasetSet pWF = New RasterWorkspaceFactory 输入图像文件的路径Set pWs = pWF.OpenFromFile(C:Images, 0) QISet pFW = pWs 输入图像文件的名字Set pRDataset = pFW.OpenRasterDataset(seb1.jpg) 创建数据集Dim pRLayer As IRasterLayerSet pRLayer = New RasterLayerpRLayer.CreateFromDataset pRDataset添加栅格图层到地图中Set pMxDocument = ThisDocumentSet pMap = pMxDocument.FocusMappMxDocument.AddLayer pRLayerEnd Sub4 关闭Visual Basic Editor并运行测试。/Private Sub Menu_files_r_Click() 创建数据集Dim RDataset As IRasterDatasetDim pRLayer As IRasterLayerSet pRLayer = New RasterLayerWith frmmain.CommonDialog1.FileName = .Filter = EMF(*.emf)|*.emf|EPS(*.eps)|*.eps|AI(*.ai)|*.ai|PDF(*.pdf)|*.pdf|SVG(*.svg)|*.svg|BMP(*.bmp)|*.bmp|JPEG(*.jpg)|*.jpg|PNG(*.png)|*.png|TIFF(*.tif)|*.tif|GIF(*.gif)|*.gif.ShowOpenIf Not .FileName = Then从数据集中创建栅格图层Set RDataset = AddRasterLayer(Left(.FileName, Len(.FileName) - Len(.FileTitle) - 1), .FileTitle)pRLayer.CreateFromDataset RDataset添加栅格图层到地图中frmmain.MapControl1.AddLayer pRLayershp_Title = .FileTitleshp_Name = .FileNameEnd IfEnd WithEnd SubPublic Function AddRasterLayer(sDir As String, sFileName As String) As IRasterDataset添加栅格数据到mapcontrol控件中，还没有完善。 sPath: 输入图像文件的路径 sFileName: name of the raster datasetOn Error GoTo ErrorHandler 创建栅格工作空间Dim pWF As IWorkspaceFactoryDim pWs As IWorkspaceDim pFW As IRasterWorkspaceDim pDataset As IDatasetDim pRDataset As IRasterDatasetSet pWF = New RasterWorkspaceFactory 输入图像文件的路径Set pWs = pWF.OpenFromFile(sDir, 0) QISet pFW = pWs 输入图像文件的名字Set pRDataset = pFW.OpenRasterDataset(sFileName)Set AddRasterLayer = pRDataset 释放内存Set pRDataset = NothingSet pDataset = NothingSet pFW = NothingSet pWs = NothingSet pWF = NothingExit FunctionErrorHandler:Set AddRasterLayer = NothingEnd Function