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

<P>如何用程序加载ECW影像文件？</P>
<P>如何用程序设置一个图层的definition query？</P>
<P>谢</P>

'Displays only the features that meet the definition expression<BR>'in this case only oregon<BR>Sub DefineLayer()<BR>Dim PDoc As IMxDocument<BR>Dim pMap As IMap<BR>Dim pFLayerDef As IFeatureLayerDefinition<BR>Set PDoc = ThisDocument<BR>Set pMap = PDoc.FocusMap<BR>Set pFLayerDef = pMap.Layer(0)<BR>pFLayerDef.DefinitionExpression = "STATE_NAME = 'Oregon'"<BR>PDoc.ActiveView.PartialRefresh esriViewGeography, Nothing, Nothing<BR>End Sub<BR>

<P>问题解决自己顶吧</P>
<P>Private Sub 加载影像_Click()<BR>    Dim pDox As IMxDocument<BR>    Dim pMap As IMap<BR>    Set pDox = ThisDocument<BR>    Set pMap = pDox.FocusMap<BR>    <BR>    Dim pRasterLy As IRasterLayer<BR>    Set pRasterLy = New RasterLayer<BR>    pRasterLy.CreateFromFilePath "c:\yx.ecw"<BR>    pMap.AddLayer pRasterLy</P>
<P>  Dim pActiveview As IActiveView<BR>  Set pActiveview = pDox.ActivatedView<BR>  pDox.UpdateContents<BR>  pActiveview.Refresh<BR>  <BR>  Set pRasterLy = Nothing<BR>  Set pMap = Nothing<BR>  Set pDox = Nothing<BR>End Sub</P>