求明白MAPX和VB查找图元的大哥留个QQ，我有问题求救

来源：百度知道 编辑：UC知道 时间：2024/05/30 22:43:28
代码怎么弄都有问题，求哪位大哥能帮帮忙，只要能帮我可以查找图元了就行啊，到时追加500分！高手大哥快来帮帮忙吧。。
留QQ那哥们你QQ设的提问,加不了你啊!!!急啊，你加我好不好，你要能帮我解决这个小问题我老感激您了!真的！！！！

我的QQ 486114

关于查找图元的问题！~是在是笨啊，看不懂啊~
现在是有一个市级的地图，我已经载入了用MAPX载入了VB，地图的层“地物”里面包含了要查找的数据，我就想实现一个
在一个TEXT1.TEXT 里输入要查找的地物名，然后就能找到。。
实现查找的功能，可是看不懂他们的代码。。。怎么改都有问题。。要疯了~谢谢回答的人！！！！

下头是找的一个简单例子，就拿它换的话，那us major cites usa columbia sc 都换成什么呢？

VisualBasic中关于简单查找的示例
Dim FoundObj As FindFeature
Set Map1.Layers("US Major Cities").Find.RefineLayer = _
Map1.Layers("USA")
Set FoundObj = Map1.Layers("US Major _
Cities").Find.Search("Columbia", "SC")

mapx查找地图上的图元有多种方法

a, FindObj.Search
这种方法在用的时候有局限性：数据集必须要有索引，查找的字段类型不能是10进制类型（可能还有其它的类型，忘了），否则在图上找不到。

Set FindObj = fMainForm.Map1.Layers(LayerCombo.Text).Find
Set FindObj.FindDataset = fMainForm.Map1.DataSets(LayerCombo.Text & " dataset")
Set FindObj.FindField = FindObj.FindDataset.Fields(FieldCombo.Text)
Set FoundFeature = FindObj.Search(FindText.Text)

If FoundFeature.FindRC Mod 10 = 1 Or FoundFeature.FindRC Mod 10 = 2 Then
fMainForm.Map1.Layers(LayerCombo.Text).Selection.Add FoundFeature
fMainForm.Map1.AutoRedraw = False
fMainForm.Map1.CenterX = FoundFeature.CenterX
fMainForm.Map1.CenterY = FoundFeature.CenterY
End If

b,SQL语句方法

Dim ftrs As MapXLib.Features
Dim lyr As Layer
Dim i As Integer

Set lyr = fMainForm.Map1.Layers(RoadlyrName)
Dim strs As String
strs = Trim("路线编码