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

上一篇：兔八哥用VB+AO写的Merge Layer程序

下一篇：对shape文件添加属性字段