应用MapX编程实现地图数据查询

0、综述

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

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

Private Sub Command1_Click()
    Dim FindObj As MapXLib.Find
    Dim FoundFeature As FindFeature
    '从要查询的RTU图层生成Find对象,并为这个对象设置要查询的FindDataSet、FindField属性
    Set FindObj = Form1.Map1.Layers.Item(1).Find
    Set FindObj.FindDataset = Form1.Map1.DataSets("RTU节点" & " dataset")
    Set FindObj.FindField = FindObj.FindDataset.Fields("RTUName")
   
    Set FoundFeature = FindObj.Search(Combo1.Text)
     
    Me.Hide
    ' 关掉AutoRedraw是因为CenterX(Y)的改变就要刷新图层,AutoRedraw打开的话会造成二次刷新
    Form1.Map1.AutoRedraw = False
    Form1.Map1.CenterX = FoundFeature.CenterX
    Form1.Map1.CenterY = FoundFeature.CenterY
    Form1.Show
   
End Sub


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

Private Sub Command2_Click()

    Dim FindObj As MapXLib.Find
    Dim FoundFeature As FindFeature
    '从要查询的RTU图层生成Find对象,并为这个对象设置要查询的FindDataSet、FindField属性
    Set FindObj = Form1.Map1.Layers.Item(1).Find
    Set FindObj.FindDataset = Form1.Map1.DataSets("RTU节点" & " dataset")
    Set FindObj.FindField = FindObj.FindDataset.Fields("RTUName")
          
    Set FoundFeature = FindObj.Search(Text1.Text)
     
    If FoundFeature.FindRC Mod 10 = 1 Or FoundFeature.FindRC Mod 10 = 2 Then
        Me.Hide
        ' 关掉AutoRedraw是因为CenterX(Y)的改变就要刷新图层,AutoRedraw打开的话会造成二次刷新
        Form1.Map1.AutoRedraw = False
        Form1.Map1.CenterX = FoundFeature.CenterX
        Form1.Map1.CenterY = FoundFeature.CenterY
        Form1.Show
    Else
        MsgBox "不存在该RTU节点!"
    End If
 
End Sub

 

  • 1
    点赞
  • 0
    收藏
  • 打赏
    打赏
  • 4
    评论

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
©️2022 CSDN 皮肤主题:大白 设计师:CSDN官方博客 返回首页
评论 4

打赏作者

citylamp

你的鼓励将是我创作的最大动力

¥2 ¥4 ¥6 ¥10 ¥20
输入1-500的整数
余额支付 (余额:-- )
扫码支付
扫码支付:¥2
获取中
扫码支付

您的余额不足,请更换扫码支付或充值

打赏作者

实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、C币套餐、付费专栏及课程。

余额充值