VB语言

本类阅读TOP10

·Visual Basic 安装程序的制作!!
·VB中使用EXCEL输出
·一个简单的MP3播放器
·VB程序实现WindowsXP效果的界面!!
·VB打造超酷个性化菜单(六)
·透明位图
·平铺与拉伸MDI窗口的背景图 ~!~
·对《VB程序实现WindowsXP效果的界面》一文的补遗
·从Windows资源管理器中拖动文件
·VB打造超酷个性化菜单(一)

分类导航
VC语言Delphi
VB语言ASP
PerlJava
Script数据库
其他语言游戏开发
文件格式网站制作
软件工程.NET开发
应用MapX编程实现地图数据查询

作者:未知 来源:月光软件站 加入时间:2005-2-28 月光软件站

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

 




相关文章

相关软件




月光软件源码下载编程文档电脑教程网站优化网址导航网络文学游戏天地生活休闲写作范文安妮宝贝站内搜索
电脑技术编程开发网络专区谈天说地情感世界游戏元素分类游戏热门游戏体育运动手机专区业余爱好影视沙龙
音乐天地数码广场教育园地科学大观古今纵横谈股论金人文艺术医学保健动漫图酷二手专区地方风情各行各业

月光软件站·版权所有