mapobject第三贴

楼主^#

更多发布于：2007-09-11 11:10

<H1 >第二章</H1>
使用地图和图层
使用MapObjects的起点就是向应用程序中加入地图并向地图中加入数据。
向应用程序中加入地图十分简单，只需把工具箱中的地图控件加道VB的表单中，象其它控件一样，你可调整它的大小和位置，并可同过VB的属性窗口或地图控件属性窗口来改变属性。
通过地图控件属性窗口加入形文件十分方便，当你在应用程序中使用MapObjects时，还会发现使用图层是十分必要的。
最初，你会对向地图中加入图层感到不适应，你不得不研究大量的OLE Automatiion objects、SDE层和影像文件。但渐渐你会发现MapObjects的数据通道和地图显示目标具有极大的灵活性和多功能性。
本章将涉及以下内容：
§ 如何在地图上表示层。
§ 层的次序。
§ 向地图中加入形文件。
§ 向地图中加入图像文件。
§ 建立地图用户接口。
§ 设置地图属性。
§ 数据连接。
§ 修改图层。
§ 动态跟踪层。
本章将涉及以下目标：
GeoDatasets集、DataConnection目标、GeoDataset目标、地图控件、图层集、图层目标、影像层目标、动态跟踪层目标、GeoEvent目标。
使用MapObjects向地图中添加数据有三种方式：
§ 通过建立DataConnection、GeoDataset和图层目标及向地图目标的层集中添加数据的方法加入矢量地图数据。
§ 通过建立影像层目标及向地图目标的层集中影像层的方法显示影像地图数据以作背景。
§ 通过使用动态跟踪层目标和添加GeoEvent目标的方法实现动态跟踪。
在地图上画层
地图包含许多层。现在我们要讨论MapObjects的各种层目标和如何在地图控件中管理图层。
用户眼中的图层
地图的最上方是动态跟踪层，最下方为地图控件，中间为层集。层集中图层目标和影像层目标可以任意顺序排放，但通常影像层显示在最底层作为背景。
以层方式工作十分有意，因为它十你很容易的选取同类地物。
程序员眼中的层
以下是影响显示地图数据的关键目标：
§ 地图控件是显示图层的平台，它有两个重要的属性：层集和动态跟踪层目标。
§ 层集包含图层目标和动态跟踪层目标。它们的顺序决定在地图控件中的相互覆盖关系。
§ 图层目标代表矢量数据。
§ 影响层目标代表栅格数据。
§ 动态跟踪层目标显示实时数据。
地图控件的关键属性是层和跟踪层。当你向表单中假如一地图控件，你也同时建立了一个空层和空跟踪层。
另一重要属性是Extent。它决定地图的显示范围。
用Refresh方法在地图控件上画层。当你执行下列操作时Refresh方法将自动执行：
§ 向层集中加入图层或影像层。
§ 使用Pan和CenterAt方法。
§ 更新地图控件的Extent属性。
§ 使用Clear或Remove方法。
注意，有些操作不会引发Refresh方法，在编写程序时应在这些操作后加上Refresh方法一使操作更新显示。
标准控件的属性和方法
如果你是VB的用户，你应了解一些标准属性和方法：Container、DragIcon、Index、Left、Height、Drag、Setfocus等，这里我们还将介绍一些Mapobjects的专门属性。
层集
层集是地图控件的重要属性，包含图层和影像层。
使用Add方法可向层集中加入图层或影像层，无论增加了图层还是影像层，FullExtent属性都会使地图撑满。
如果你想使全图重新显示，可设置Extent属性为FullExtent。
Set map1.Extent = map1.FullExtent
Clear和Remove方法可删除层集中某层。例如：
Map1.Layers.Remove (4)
MoveTo、MoveToBottom和MoveToTop方法可改变层集中侧的顺序。
层的表示可以有层名和索引两种方式。例如，下面的例子中索引号为2，层名名叫Hydrography：
Map1.Layers.Item(2).Symbol.Color = vbBlue
Map1.Layers(2).Symbol.Color = vbBlue
Map1.Layers.Item("Hydrography").Symbol.Color = vbBlue
Map1.Layers("Hydrography").Symbol.Color = vbBlue
图层目标
图层目标代表矢量数据。你可以下面的方式建立新层：
Dim mLayer As New MapObjects。MapLayer
当你通过DataConnection目标的FindGeoDataset方法把图层加到GeoDataset目标中时，以下操作将自动执行：
§ Extent属性被更新为地图的最大范围。
§ Records属性被分配了一Recordset目标。
§ ShapeType属性将依据形文件类型被设成moPoint、moLine、moPolygon。
§ Symbol设为缺省，并随即赋予颜色。
§ 如果FindGeoDataset方法成功，Valid属性将被设成True。
§ Visible属性设成True。
Renderer属性将设为Nothing,等待你设定其中的一个Rerderer目标：ClassBreaksRenderer、ValueMapRenderer、DotDensityRenderer或LableRenderer。Maplayer给你提供了一些强有力的方法以改变Maplayer的属性数据。这些将在第五章里讲述。
影像层目标
影像层目标表示你的层集中的一个图象文件。象图层目标一样，可以如此创立一个新影像层目标：
Dim iLayer As New Mapobjects ImageLayer
然后，你可在层集里用Add方法往你的地图画面里加入图象文件。你可能还要使用层集里的MoveToBottom方法，这样图象就不会挡住其它的层。
当你将影像层附加图象文件时，Extent属性就会被更新，最大限度地反映地理范围。在同一地理坐标上，如果你想使用其它图层，图象文件应有一个相关的配准文件。
反馈图层类型
在层集里用Add方法加入图层或影像层，如方法成功,就会反回True。
一旦层集里包括了一些层目标，你必须随时掌握各种层的类型。下面是在层集中返回层类型的例子：
Dim Layer As objects
For Each Layer In Map1.Layers
If Layer.LayerType = moMapLayer Then
MsgBook "layer" ; Layer.Name ; "is a map layer"
ElseIf Layer.LayerType = moImageLayer Then
MsgBook "layer" ; Layer.Name ; "is a image layer"
End If
Next Layer
注意，我们必须将层声明为目标，这样Visual Basic可在运行时接受此定义。
在上面例子中，还用到两个常量：moMaplayer和moImagelayer，这增加了程序的可读性。你可在MapObjects帮助屏上或在MapObjects程序员手册上查到所有常量的值。
全面检查图层
在上面例子的基础上，使用层集索引全面检查图层属性：
Dim i As Integer
For i = 0 To Map1.Layers.Count - 1
If Map1.Layer(i).LayerType = moMapLayer Then
If Map1.Layer(i).shapeType = moPoint Then
MsgBook "Layer number" ; i ; "is a map layer and contains points."
ElseIf Map1.Layer(i).shapeType = <st1:place w:st="on"><st1:City w:st="on">moLine</st1:City></st1:place> Then
MsgBook "Layer number" ; i ; "is a map layer and contains lines."
ElseIf Map1.Layer(i).shapeType = moPolygon Then
MsgBook "Layer number" ; i ; "is a map layer and contains polygons."
End If
ElseIf Map1.Layer(i).LayerType = moImageLayer Then
MsgBook "Layer number" ; i ; "is a image layer."
End If
Next i
图层显示
图层在地图控件中的显示顺序与其在层集中索引的顺序相反。
新增图层的索引号总是0，以有图层的索引号按顺序递增。这与VB的一些集合有所不同。
在地图控制单中,Layers 是按 Layers 集里索引值的例序排列来调用的.
Drawing事件
当你在地图上调出图层后，一系列事件就会起动。你可将程序放到这些事件后面，并
可让用户取消调出的大的地图层。
当你在地图控件中使用Refresh方法,就会出现如下情况：
1. BeforeLayerDraw事件起动。
2. 层集按索引相反顺序调出。
3. AfterLayerDraw事件起动。
4. BeforeTrackingLayerDraw事件起动。
5. 如果任何GeoEvents加入到TrackingLayer中，他们就被画出。
6. AfterTrackingLayerDrow事件启动。
这些Drawing事件的一个使用方法是往地图上画一些几何图形，如线、圆和在地图上说明注记，另一使用方法是调出层集或TrackingLayer之前来检验状态。
如果你的用户在地图上已启动了一种方法，而它又占用了太长的时间，你可按Escape键取消操作。你可赋予地图控件的CancelAction属性以下三种值。
§ moCancelNone是说按Escape键将被忽略。
§ moCancelMap将停止所有层的调出。
§ moCancelLayer将停止当前层的调出。
按Escape键启动DrawingCancelled事件。将程序放到事件后，以便应用程序可通过恰当的方法处理绘图过程的末端。
在你的应用程序中控制地图的调出速度的方法是在地图控件中设置RefreshCount属性。Mapobjects在缓冲器里调出地图，当达到一定矢量数目时更新地图显示。缺省情况下，此属性为10,000。降低这种特性在较慢的计算机上可能会明显提高效率，增加这种特性将加快一些地图控件的调出。
利用Win API扩充MapObjects应用程序
MapObjects提供了一种方法来使用经常出现在Window应用程序接口程序中的两个变量 hDC和hWND。
hDC是一句柄，一个唯一Windows分配给表面设备的ID号，如屏幕或打印机，通过它你的应用程序可产生可视操作。
你可通过Windows API GetDC函数可以得到自己的hDC，但使用完，一定要用ReleaseDC功能退出。一旦你有了device context，你可用适合你的应用程序的Windows API图表来使用它。例如，在一个应用程序里，这个应用程序能够在地图点位上提供图符设制，你就可以象如下程序：
Private Sub mapMain_BeforeLayerDraw(ByVal index As Integer, ByVal hdc As Long)
If index = 0 Then
RenderIconicMarkers hdc, mapMain.Layers(index), picLogo
End If
Private Sub RenderIconicMarkers(hdc As Long, layer As MapLayer, pic As PictureBox)
Dim recs As MapObjects.Recordset
Set recs = layer.Records
 
Dim shpfield As MapObjects.Field
Set shpfield = recs.Fields("Shape")
 
Do While Not recs.EOF
Dim pt As MapObjects.Point
Set pt = shpfield.Value
DrawIconicMarker pt, pic, hdc
recs.MoveNext
<st1:place w:st="on">Loop</st1:place>
End Sub
 
Private Sub DrawIconicMarker(pt As MapObjects.Point, pic As PictureBox, hdc As Long)
Dim x As Single, y As Single
mapMain.FromMapPoint pt, x, y
Dim xPixels As Integer, yPixels As Integer
xPixels = Me.ScaleX(x, vbTwips, vbPixels)
xPixels = Me.ScaleX(y, vbTwips, vbPixels)
BitBlt hdc, xPixels - 16, yPixels - 16, 32, 32, pic, hdc, 0, 0, SRCCOPY
End Sub
另一方面，hWnd是Map的真正的句柄。它存在于较大的hDC中，尽管它设计成为地图的属性，实际上hwnd是windows变量，不能够改变，只有运用API子程序，才能通过它。
在下面的例子中，当用户在地图上拖动鼠标，就会出现一个矩形，依据矩形的大小显示地图。程序得到了地图的hwnd属性，用来设置显示设备。
Private Declare Function Rectangle Lib "gdi32" (ByVal hdc As Long, ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long
Private Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function ReleaseDC Lib "user32" (ByVal hwnd As Long, ByVal hdc As Long) As Long
Private Declare Function SetROP2 Lib "gdi32" (ByVal hdc As Long, ByVal nDrawMode As Long) As Long
Private Const R2_NOTXORPEN = 10
Private Const R2_NOT = 6
Dim g_hdc As Long
Dim g_hwnd As Long
Dim dragging As Boolean
Dim xs As Integer, ys As Integer
End Sub
 
Private Sub Form_Load()
dragging = False
End Sub
 
Private Sub Map1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
dragging = True
g_hwnd = Map1.hWnd
g_hdc = GetDC(g_hwnd)
SetROP<st1:chmetcnv w:st="on" UnitName="g" SourceValue="2" HasSpace="True" Negative="False" NumberType="1" TCSC="0">2 g</st1:chmetcnv>_hdc, R2_NOTXORPEN
xs = Form1.Scale(X, vbTwips, vbPixels)
ys = Form1.Scale(Y, vbTwips, vbPixels)
Rectangle g_hdc, xs - 10, ys - 10, xs + 10, ys + 10
End Sub
 
Private Sub Map1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If dragging Then
Rectangle g_hdc, xs - 10, ys - 10, xs + 10, ys + 10
xs = Form1.Scale(X, vbTwips, vbPixels)
ys = Form1.Scale(Y, vbTwips, vbPixels)
Rectangle g_hdc, xs - 10, ys - 10, xs + 10, ys + 10
End If
End Sub
 
Private Sub Map1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Rectangle g_hdc, xs - 10, ys - 10, xs + 10, ys + 10
ReleaseDC g_hwnd, g_hdc
dragging = False
d = Form1.Scale(10, vbTwips, vbPixels)
Dim pt As New MapObjects.Point
Set pt = map1.ToMapPoint(X, Y)
dist = map1.ToMapDistance(d)
Set rect = CreateObject("MapObjects.Rectangle")
rect.Left = pt.X - dist
rect.Top = pt.Y + dist
rect.Right = pt.X + dist
rect.Bottom = pt.Y - dist
map1.Extent = rect
End Sub
向层里加数据
在往地图控件中的层集里加入图层和影像层之前，你需把层集与数据相连接。通过DataConnection和GeoDataset目标可从文件系统或SDE数据服务器中查找和连接数据。
DataConrection目标
DataConrection目标用来连接装有形文件的文件夹或SDE数据库。
要连接形文件文件夹，需设置数据库特性为具有文件夹名的串，并应用Connect方法。连接SDE数据库，需设置数据库，密码，服务器和用户特性，并应用Connect方法和检查连接特性。
如果连接错误，检查ConnectError特性，对比ConnectionErrorCode，寻找错误原因。
当你进行连接时，GeoDatasets就会移到当前层或SDE层中的形文件集里。GeoDatasets并不是自动移到层集里，而是目的在于组织一个接口，用户可以选择形文件或SDE使用GeoDatasets集中的FindGeoDataset方法，来使形文件或SDE层连到GeoDatasets。
你可使用AllGeoDataset方法生成一个新的形文件。当你用这样方法生成一个形文件，也就是生成了一个TableDesc来设置新的形文件的生成。请参照MapObject手册或MapObjects帮助功能中的程序例子。
GeoDataset目标和GeoDatasets集
GeoDataset表示从形文件或SDE层中得到的地图数据的一层。Geo Datasets集表示DataConnection里所有的GeoDatasets，即文件夹里所有的形文件或SDE数据库里所有的SDE层。
注意，MapObjects中GeoDataset属性是只写的。一旦你将GeoDataset放置到MapLayer或其它目标上作为一种属性，那么它不能恢复或改写。
MapObjects里有3种属性：MapLayer目标的GeoDatasetct属性；AddressMatcher目标的SrreetTable属性；PlaceLocator目标的PlaceNameTable属性。

喜欢0 评分0

举报回复

whmwxhanshan123 路人甲注册日期2006-06-17 发帖数3108 QQ 铜币6445枚威望0点贡献值0点银元0个加关注写私信	1楼^# 发布于：2007-09-11 16:30 hao wen
	举报回复(0) 喜欢(0) 评分

qinchuanheng 路人甲注册日期2007-01-05 发帖数23 QQ 铜币165枚威望0点贡献值0点银元0个加关注写私信	2楼^# 发布于：2007-09-18 17:56 <P> 好</P> <P>多发这样的贴</P> <P>顶！</P>
	举报回复(0) 喜欢(0) 评分

whc77777 路人甲注册日期2007-07-14 发帖数10 QQ 铜币38枚威望0点贡献值0点银元0个加关注写私信	3楼^# 发布于：2007-09-21 17:01 <img src="images/post/smile/dvbbs/em02.gif" /><img src="images/post/smile/dvbbs/em02.gif" /><img src="images/post/smile/dvbbs/em02.gif" />
	举报回复(0) 喜欢(0) 评分

whmwxhanshan123 路人甲注册日期2006-06-17 发帖数3108 QQ 铜币6445枚威望0点贡献值0点银元0个加关注写私信	4楼^# 发布于：2007-09-22 14:14 <img src="images/post/smile/dvbbs/em02.gif" />
	举报回复(0) 喜欢(0) 评分

您需要登录后才可以回帖，登录或者注册

mapobject第三贴

最新喜欢：