菜鸟问题：如何得到一个层的范围啊？

<P>我在做放到到当前图层范围这个功能时，得到了该层，却找不到图层范围这个属性，谁能告诉我啊！谢谢！</P>

我已经找到了，谢谢!

<P>呵呵，找到了可以贴出来大家看看哈</P><P>'弹出式菜单的功能选项1：放大到整个图层
Private Sub mnuFLayerZoomToLayer_Click()
  On Error GoTo ErrorHandler</P><P>    If m_SelectLayer Is Nothing Then Exit Sub
    If Not TypeOf m_SelectLayer Is IFeatureLayer Then Exit Sub
    
    Dim i_FLayer As IFeatureLayer
    Set i_FLayer = m_SelectLayer
    
    '获取选中图层的范围
    Dim i_LayerEnv As IEnvelope
    Set i_LayerEnv = i_FLayer.AreaOfInterest
    If i_LayerEnv Is Nothing Then Exit Sub
    
    frmMap.map1.Extent = i_LayerEnv</P><P>
  Exit Sub
ErrorHandler:
  HandleError True, "mnuFLayerZoomToLayer_Click " ; c_sModuleFileName ; " " ; GetErrorLineNumberString(Erl), err.Number, err.Source, err.Description, 4
End Sub</P>