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
