设置图层的地图提示字段

设置图层的地图提示字段
设置图层的地图提示字段。

Private Sub UIButtonControl30_Click()

'显示地图提示

 Dim pDoc As IMxDocument

 Dim pMap As Imap

 Set pDoc = ThisDocument

 Set pMap = pDoc.FocusMap

 Dim pLayer As IFeatureLayer

 Set pLayer = pDoc.FocusMap.Layer(0)

 pLayer.DisplayField = "Name"    '设置地图提示显示内容的字段

 pLayer.ShowTips = True      '显示地图提示

End Sub