前几天研究了一下,感觉都快忘了。虽然去啃帮助仍然可以把这些东西啃出来,但有点烦。把记忆的东西零星整理一下:
代码:
Map1.ConvertCoord x, y, Lon, lat, miScreenToMap
pnt.Set Lon, lat
Set fs = Map1.Layers(PLayer).SearchAtPoint(pnt)
If fs.Count > 0 Then '定位对象
If Not curftr Is Nothing Then If curftr = fs.Item(1) Then Exit Sub '防止重复设置
Set lb = GetLabel(fs.Item(1).FeatureKey, Map1.Layers(PLayer).Labels)
If Not lb Is Nothing Then '为标注加下划线效果
lb.Style.TextFont.Underline = True
Set curftr = fs.Item(1)
'fs.Item(1).Update
End If
Map1.MousePointer = miCustomCursor '鼠标样式