Private Sub Command7_Click()
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
End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024