win10系统下载站 - 最全面的操作系统下载网站

u盘教程游戏攻略电脑学习教程

windows7旗舰版
当前位置:主页 > 技术开发教程 >

应用MapX编程完成地图数据查询

发布时间:2020-01-27 来源:未知 浏览量:

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

 


关键词: 应用MapX编程完成地图数据查询 
我要分享:

相关推荐

本站发布的ghost系统仅为个人学习测试使用,请在下载后24小时内删除,不得用于任何商业用途,否则后果自负,请支持购买微软正版软件!

如侵犯到您的权益,请及时通知我们,我们会及时处理。

Copyright @ 2018 win10系统下载站(http://www.win10pc.cn) 版权所有  xml地图 邮箱: