摘要:
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