【2017年整理】电子地图常用工具开发.docVIP

第四讲电子地图常用工具开发 一、使用指示图 1、在指示窗口中改变主窗口大小 使用如下示例代码，可以在小窗口中点击移动大窗口位置，还可以画方框改变大窗口的大小。 Private Sub Map2_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) Dim kuang As New MapObjects2.Rectangle Dim pt As New MapObjects2.Point Set kuang = Map2.TrackRectangle Set Map1.Extent = kuang Set pt = Map2.ToMapPoint(X, Y) Map1.CenterAt pt.X, pt.Y End Sub 几点说明： （1）Rectangle对象描述矩形的特征，即具有四条边和四个直角的几何形状。 （2）Point对象表示一个点的地理形状，可以通过Point的X, Y属性修改得到它的地理位置坐标值。 （3）Map控件的几个用到的成员函数：CenterAt将当前的显示范围中心移动到指定的中心，语法为object.CenterAt x, y；ToMapPoint是将点的位置从以屏幕坐标表示转换为以地图坐标表示，语法为Set variable = object.ToMapPoint( xControl, yControl)。 2、在指示窗口中拖动方框 要实现在指示窗口中拖动方框的功能，程序非常复杂，但是MO中提供了类模块DragFeedback，只要在工程中添加类模块DragFeedback就可以了。其中类模块DragFeedback在MO安装不全的情况下是不存在的，可以在程序中加入。 示例代码见附录。 二、属性显示 在电子地图系统中，常常要查询地图上对象的属性，这时就需要属性显示的程序设计方法了。 1、显示一个区的属性 添加控件Map1和ListView1，并且设置ListView1的View属性为3。并添加如下代码实现区域属性的显示。 Option Explicit Dim p As Point Dim recs As Recordset Dim fld As Field Dim l As MapLayer Private Sub Form_Load() 初始化ListView1的ColumnHeaders属性 Set col = ListView1.ColumnHeaders.Add() col.Text = Field Set col = ListView1.ColumnHeaders.Add() col.Text = Value 加载地图数据 Dim dc As New DataConnection dc.Database = App.Path + \..\ + world If Not dc.Connect Then End Dim layer As MapLayer Set layer = New MapLayer Set layer.GeoDataset = dc.FindGeoDataset(country) layer.Symbol.Color = 4636724 Map1.Layers.Add layer End Sub ? Private Sub Map1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single) 获得地图对象，country即为Layers对象counts属性的名称，也可以以索引号代替 Dim newitem As Object Set l = Map1.Layers(country) ToMapPoint是Map控件的成员函数之一，表示将点的位置从以屏幕坐标转换为以地图坐标系坐标表示，语法为Set variable = object.ToMapPoint( xControl, yControl)，variable是以地图坐标系表示的点位置，xControl, yControl是屏幕坐标的值。 Set p = Map1.ToMapPoint(x, y) 建立一个Recordset查找，语法为Set variable = object.SearchShape( shape, searchMethod, expression )；该函数是MapLayer对象的一个函数，返回值是图层地理特征的子集，即Recordset对象。Expression为逻辑条件表达式，一般为空。 Set recs = l