1个回答
展开全部
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
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
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询