鹤翔庄气功:VB+MapX编程实现地图数据查询
来源:百度文库 编辑:九乡新闻网 时间:2024/07/14 08:43:47
VB+MapX编程实现地图数据查询
2004-06-01 14:00作者:citylamp出处:论坛责任编辑:方舟
综述应用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
关注此文的读者还看过:
VB+MapX编程实现地图数据查询
vb+oracle+mapx实现的最短路径查询
VB+mapx实现各种专题图的示例
MapX地图操基本作功能的实现:MapX开发基础教程(2)
VB编程(输入法、数据转制)+
VB,VB编程实现图像的漂亮效果,珠江路在线
在VB中用DAO实现数据库编程(1)
在VB+Access系统中实现多项条件查询
VB 实现类电子表格grid的数据录入(转)
VB实现类电子表格grid的数据录入
vb 程序编程规范+
使用MapX开发实现若干小功能
VFP中多条件数据查询程序的实现
地图查询
查询地图
[地图查询
地图查询
编程入门网-Vb教程+
VB编程基础(1)
基于MapX的GIS动态操作与实现
编程入门网-VB教程:第三章-VB语言+
VB爱好者乐园(VBGood) - 经验之谈 - VB编程的必备技巧
地图查询-中国地图,省市地图,各国地图
地图查询-中国地图,省市地图,各国地图