打开栅格数据代码

        Dim pWsFact As IWorkspaceFactory
        Set pWsFact = New RasterWorkspaceFactory

        Dim pWs As IRasterWorkspace
        Set pWs = pWsFact.OpenFromFile(filePath, 0)

        Dim pRasterDataset As IRasterDataset
        Set pRasterDataset = pWs.OpenRasterDataset(fileName)

        Dim pRasterLayer As IRasterLayer
        Set pRasterLayer = New RasterLayer
        pRasterLayer.CreateFromDataset pRasterDataset

        MapControl1.AddLayer pRasterLayer
        MapControl1.ActiveView.Refresh