如何用程序加载ECW影像文件

如何用程序加载ECW影像文件？

如何用程序设置一个图层的definition query？

谢

问题解决自己顶吧

Private Sub 加载影像_Click()
   Dim pDox As IMxDocument
   Dim pMap As IMap
   Set pDox = ThisDocument
   Set pMap = pDox.FocusMap
   
   Dim pRasterLy As IRasterLayer
   Set pRasterLy = New RasterLayer
   pRasterLy.CreateFromFilePath "c:\yx.ecw"
   pMap.AddLayer pRasterLy

 Dim pActiveview As IActiveView
 Set pActiveview = pDox.ActivatedView
 pDox.UpdateContents
 pActiveview.Refresh
 
 Set pRasterLy = Nothing
 Set pMap = Nothing
 Set pDox = Nothing
End Sub