怎样用属性字段进行标注？急！！

怎样用属性字段进行标注？急！！

<P>给你个例子，不过这个例子在83下面没有问题，可是在9.0下面好像不起作用。你参考一下吧。</P><P>Public Sub LabelField(Player As IFeatureLayer)</P><P>   Dim pFLayer As IGeoFeatureLayer
   Set pFLayer = Player
  
   Dim pAnoLayPC As IAnnotateLayerPropertiesCollection
   Dim pAnnoLayerProps As ILabelEngineLayerProperties
    
   Set pAnoLayPC = pFLayer.AnnotationProperties
   pAnoLayPC.QueryItem 0, pAnnoLayerProps, Nothing, Nothing
    
   pAnnoLayerProps.Expression = "NAME"
    
   pFLayer.DisplayField = "NAME"
   pFLayer.DisplayAnnotation = True
End Sub
</P>

<P>楼上说的很对,先得到IGeoFeatureLayer</P>

<P> //设置显示indexName
 IGeoFeatureLayerPtr ipGeoFeatureLay;
 m_pFeaLayer.QueryInterface(__uuidof(IGeoFeatureLayer),;ipGeoFeatureLay);    
 
 ipGeoFeatureLay->put_DisplayField(_bstr_t("indexName"));</P><P>吧indexname替换成你的属性字段就行了</P>

<P>关注中！！</P><img src="images/post/smile/dvbbs/em01.gif" />