VB+mapx 查找图元的问题。求助啊
我想通过一个文本框超找地图中的地物。。。但提示错误。。。大大们帮我看看是哪的错误。。。PrivateSubCommand7_Click()DimfdObjectAsMap...
我想通过一个文本框超找地图中的地物。。。但提示错误。。。大大们帮我看看是哪的错误。。。
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
VB提示第2行Set fdObject 那错了。“search的方法cmapxlayerfind失败”
要实现这个要怎么写啊~ 展开
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
VB提示第2行Set fdObject 那错了。“search的方法cmapxlayerfind失败”
要实现这个要怎么写啊~ 展开
1个回答
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询