Dim fdObject As MapXLib.FindFeature
Set fdObject = Map1.Layers("地物").Find.Search(text1.text)
If (FindCityObject.FindRC Mod 10 = 1) Then
MapX1.SetZoom (100)
MapX1.SetCenterX (fdObject.GetCenterX())
MapX1.SetCenterY (fdObject.GetCenterY())
Else
MsgBox ("City not found")
End If
代码可能有问题,仅供参考!
更多可以访问:
http://www.cnblogs.com/kaixin110/category/134689.html