VB+MapX编程实现地图数据查询
来源:互联网 发布:dos下如何打开端口 编辑:程序博客网 时间:2024/06/05 05:52
应用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+MapX编程实现地图数据查询
- 应用MapX编程实现地图数据查询
- 3S基础知识:MapInfo应用MapX编程实现地图数据查询
- vb+MAPX 数据绑定
- [VB.NET]VB.NET+MAPX查询问题
- mapx实现查询
- MAPX地图数据与属性数据的关联
- 3S基础知识:MapX应用讲义—加载地图数据
- VB+mapx实现各种专题图的事例
- mapx+vb实战摘要
- vb + Mapx常见问题解答
- MapX切割地图
- MapX系列-- 地图浏览
- MapX切割地图
- 新建Mapx地图文档
- MSSQL:vb数据查询
- VB数据库编程实现添加、查询、修改、删除
- mapx模糊查询
- 数据文件结构分析——第三部分
- 使用dmalloc&valgrind检测内存泄露
- 一个整数,它加上100后是一个完全平方数,再加上168又是一个完全平方数,请问该数是多少?
- cakephp学习之Model(2)---------find函数
- VB+MapX编程实现地图数据查询
- 常用的Dos命令(转载)
- lstrcmp Function
- 数据文件结构分析——第四部分
- 数据文件结构分析——第五部分
- Spring AspectJ简单测试代码
- 名词解释
- cakephp学习之Model(3)--------执行自定义的SQL语句
- 知识收藏-使用内存映射操作文件的步骤