新建 文本文档 (2).txt

来自「ao的一些代码集合」· 文本 代码 · 共 21 行

Dim WithEvents g_Map As Map

Private Sub g_Map_SelectionChanged()

  Dim activeView As IActiveView    '活动地图
  Dim featureEnum As IEnumFeature    '列举的要素？
  Dim feat As IFeature    '要素
  Dim index As Long
  Dim Msg As String

  Set activeView = g_Map    '获取当前地图     
  Set featureEnum = activeView.Selection    '列举所选的要素 
  featureEnum.Reset    '还原至初始顺序 
  Set feat = featureEnum.Next    '获取选择集中第一个要素 
  Do While Not feat Is Nothing    '如果要素存在  
    index = feat.Fields.FindField(“Name”)    '获取Name字段的索引值 
    If index <> -1 Then MsgBox Msg & chr(13) & chr(10) & feat.Value(index)    '显示该要素的Name 
    Set feat = featureEnum.Next    '移至选择集中的下一个要素 
  Loop 

End Sub