VBMaX编程实现地图数据查询节能

应用MapX控件实现查询的功能并不太难。MapX为我们提供了Find、FindFeature等对象，可以用来实现我们需要的功能。

1、本程序实现从下列表中选择一个节点，并以此节点为中心进行进行定位的功能（实例以第一层RTUName属性的值进行查询）

Private Sub Command1_Click()

Dim FindObj As nd

Dim FoundFeature As FindFeature

'从要查询的RTU图层生成Find对象，并为这个对象设置要查询的FindDataSet、FindField属性

Set FindObj = em(1).Find

Set ndDataset = taSets("RTU节点" " dataset")

Set ndField = elds("RTUName")

Set FoundFeature = arch(xt)

de

' 关掉AutoRedraw是因为CenterX(Y)的改变就要刷新图层，AutoRedraw打开的话会造成二次刷新

toRedraw = False

nterX = nterX

nterY = nterY

ow

End Sub

2、把上面的程序稍微改写一下，实现按照用户输入的字段进行查询定位的功能：

Private Sub Command2_Click()

Dim FindObj As nd

Dim FoundFeature As FindFeature

'从要查询的RTU图层生成Find对象，并为这个对象设置要查询的FindDataSet、FindField属性

Set FindObj = em(1).Find

Set ndDataset = taSets("RTU节点" " dataset")

Set ndField = elds("RTUName")

从当地电视台画面看Set FoundFeature = arch(xt)

If ndRC Mod 10 = 1 Or ndRC Mod 10 = 2 Then

de

' 关掉AutoRedraw是因为CenterX(Y)的改变就要刷新图层，AutoR还有大量的商机。更重要的是edraw打开的话会造成二次刷新

toRedraw = False

nterX = nterX

nterY = nterY

ow

Else

MsgBox "不存在该RTU节点！"

End If

End Sub查看本文来源

益阳儿童牛皮癣医院
月经有淤血正常吗
攀枝花白癜风医院地址