[求助]shp文件上如何选择地图要素并显示属性信息呢？

请问各位同仁，如何在运行后显示的shp文件里选择地图要素并显示属性信息呢？谢谢！！

<P>利用空间查询查询到要素，然后显示要素的属性字段信息就好了</P>
<P>
<TABLE width="100%">

<TR>
<TD class=subtitle colSpan=6>内容摘要</TD></TR>
<TR>
<TD class=txt colSpan=6>空间查询是一个经常要用到的功能，它是通过给定一定的范围，查询得到在这个空间范围内的要素的查询方式。下面的代码是在返回鼠标点击点周围长宽100个地图单位的矩形范围内的要素。</TD></TR>
<TR>
<TD class=subtitle colSpan=6>过程描述</TD></TR>
<TR>
<TD class=txt colSpan=6>Dim pMap As IMap<BR>Dim pPoint As IPoint<BR>Set pMap = MapControl1.Map<BR>Dim pFeatureLayer As IFeatureLayer<BR>Set pFeatureLayer = pMap.Layer(1)<BR>Set pPoint = MapControl1.ActiveView.ScreenDisplay.DisplayTransformation.ToMapPoint(x, y)<BR><BR>Dim pEnv As IEnvelope<BR>Set pEnv = New Envelope<BR>Set pEnv = MapControl1.ActiveView.Extent<BR>pEnv.Height = 100<BR>pEnv.Width = 100<BR>pEnv.CenterAt pPoint<BR>MsgBox pPoint.x<BR>MsgBox pEnv.XMax<BR><BR>Dim pGeometry As IGeometry<BR>Set pGeometry = pEnv<BR>Set pGeometry.SpatialReference = pMap.SpatialReference<BR><BR>pFeatureLayer.Selectable = True<BR>Dim pSFilter As ISpatialFilter<BR>Set pSFilter = New SpatialFilter<BR>With pSFilter<BR>Set .Geometry = pGeometry<BR>.GeometryField = pFeatureLayer.FeatureClass.ShapeFieldName<BR>.SpatialRel = esriSpatialRelIntersects<BR>End With<BR>Dim b As Boolean<BR>b = pSFilter.FilterOwnsGeometry<BR>Dim pFeatureCursor As IFeatureCursor<BR><BR>Set pFeatureCursor = pFeatureLayer.Search(pSFilter, False)</TD></TR></TABLE></P>