如何对选择的要素进行属性修改？

<P>如题，我想用AE实现选择一个要素，然后对该要素进行属性修改！该如何进行呢？</P>
<P>下面的代码是实现选择要素的，但是生成时没有反映，请您们帮忙看看为什么？（通过局部修改在VBA中是实现了的，但在AE中却没反应）</P>
<P>Private Sub AxMapControl1_OnMouseDown(ByVal sender As Object, ByVal e As ESRI.ArcGIS.Controls.IMapControlEvents2_OnMouseDownEvent) Handles AxMapControl1.OnMouseDown</P>
<P><BR>        Dim ppmap As IMap<BR>        ppmap = AxMapControl1.Map</P>
<P><BR>        Dim ppoint As IPoint<BR>        ppoint = New Point<BR>        ppoint.PutCoords(e.mapX, e.mapY)<BR>        Dim x As Integer = e.mapX<BR>        Dim y As Integer = e.mapY<BR>        Dim pixeltol As Integer<BR>        pixeltol = 8<BR>        Dim r As tagRECT<BR>        <BR>        r.left = x - pixeltol <BR>        r.top = y - pixeltol <BR>        r.right = x + pixeltol <BR>        r.bottom = y + pixeltol</P>
<P>       <BR>        Dim pEnvelope As IEnvelope<BR>        pEnvelope = New Envelope<BR>        Dim pActiveView As IActiveView<BR>        pActiveView = ppmap<BR>        Dim pDisplayTrans As IDisplayTransformation<BR>        pDisplayTrans = pActiveView.ScreenDisplay.DisplayTransformation<BR>        pDisplayTrans.TransformRect(pEnvelope, r, 5)</P>
<P>        pEnvelope.SpatialReference = ppmap.SpatialReference</P>
<P>        Dim pSelectionEnvironment As ISelectionEnvironment<BR>        pSelectionEnvironment = New SelectionEnvironment<BR>        pSelectionEnvironment.CombinationMethod = esriSelectionResultEnum.esriSelectionResultNew<BR>        ppmap.SelectByShape(pEnvelope, pSelectionEnvironment, False)<BR>        pActiveView.PartialRefresh(esriViewDrawPhase.esriViewGeoSelection, Nothing, Nothing)</P>
<P>    End Sub</P>

已经实现了！哈哈<img src="images/post/smile/dvbbs/em03.gif" /><img src="images/post/smile/dvbbs/em05.gif" /><img src="images/post/smile/dvbbs/em07.gif" /><img src="images/post/smile/dvbbs/em06.gif" /><img src="images/post/smile/dvbbs/em08.gif" /><img src="images/post/smile/dvbbs/em04.gif" /><img src="images/post/smile/dvbbs/em04.gif" /><img src="images/post/smile/dvbbs/em03.gif" />