137第一章 了解MapObjects MapObjects是一套制圖軟件集，它使程序員能夠把地圖加到應用程序中去。 通過MapObjects你可靈活地建立適合用戶的地圖接口。在小內存空間中，你能用多種工業標準程序環境之一去建立應用程序，你能夠聯合使用MapObjects與其它軟件去實現地圖與用戶信息的聯系。1.1 元素軟件 大部分商業軟件在最近的版本中極度壯大，諸如字處理及報表等程序，其最初僅有幾兆，目前卻嚴重消耗磁盤空間。這就要看最新的計算機能否快速執行最新版本軟件以至于不落后于舊機器使用老軟件的效率。 由于操作系統變得越來越復雜及用戶對更多功能的要求也日趨強烈，程序也隨之壯大了。然而典型用戶也僅充分使用了這些大軟件的10%-20%。那些沒有用到的功能象一個大包袱，嚴重消耗了系統資源和磁盤空間。 如何打破這種惡性循環?元素軟件(Component software)是一技術上的重大突破。它提供了一種解決辦法。 元素軟件的原理是把大的桌面應用軟件的功能打碎成部件。開發人員可跟據需要恰當地將一些部件組合成工具箱，用它建立專用軟件。這種部件叫目標(objects)。所用平臺就是可視化程序語言。其結果就是精煉地程序快速經濟地運行并且對特定的市場有很強的適應性。1.2 MapObjects的功能通過MapObjects你可完成以下甚至更多功能： 顯示一張多圖層地圖(道路，河流，邊界)。 放大，縮小，漫游。 生成圖形元素，如點，線，圓，多邊形。 說明注記 識別地圖上被選中的元素。 通過線，方框，區域，多邊形，圓來拾取物體。 拾取距某參照物特定范圍內的物體。 通過SQL描述來選擇物體。 對選取物體進行基本統計。 對所選地圖元素的屬性進行更新，查詢。 繪制專題圖。 標注地圖元素。 從航片或衛星圖片上截取圖像。 動態顯示實時或系列時間組數據。 在圖上標注地址或定位。 本書開發了一系列通過VB，OLE，WinAPI擴展MapObjects的辦法。 MapObjects可執行許多基礎制圖功能。但它不能執行某些高級功能。如，高質量地圖輸出，地圖坐標系投影，表面模型或網絡分析等高級空間分析。以及拓撲編輯。你可利用ESRI的其它產品如ARC/INFO，ArcView來實現高級功能。1.3 MapObjects簡介 MapObjects包括一個OLE控件(OCX)叫做地圖控件(Map control)和一組(三十多個)OLE目標(objects)。它適用于工業標準程序環境。如VB4.0，Delphi2.0,PowerBuilder,MS Access等。 MapObjects不適用于最終用戶。它是為程序開發者設計的。程序開發者可利用MapObjects開發應用程序并把這些程序提供給下一級用戶使用。 MapObjects運行于Win95或Win NT3.51或更高。 最近，Mierosoft開始把OLE controls稱作ActiveX controls。本書將元素稱為控件(OLE controls 或 OCXs)，但這些術語可與新術語ActiveX互換。MapObjects和OLE containers OLE Automation object 是一種可編程目標，它可通過OLE Automation server來通訊。OLE custom control是一種軟件元件，它可通過OLE container實現特定功能。OLE container和 OLE Avtomation Server就是VB，Delphi，Access，VFro。 OLE custom control有事件，屬性和方法。 OLE Automation objects有屬性和方法。 在OLE Container中(如VB)，你能聯合使用Map Objects的目標和其它Custom controls，及利用別的程序中的OLE Automation objects(如 office)去建立應用程序。 部件軟件的優勢 Map Objects(通常叫OCXs)可容易地用OCXs建立程序而免去C+ 冗長的代碼，你可發揮專長于設計，工程，制圖，而不是軟件。 你的Map Objects 應用軟件不多占用內存空間。 比其它 Win 支持的制圖軟件速度更快，MapObjects 直接建立在MFC 庫上且優化執行。 你有極大的靈活性去建立用戶接口。你可在應用程序上建立幾乎所有在Win95上見過的接口。 MapObjects的另一特點是，地圖可以是程序中的主要元素也可是附屬品。因此MapObjects尤其適合vertical應用軟件。例如， 你的軟件可能主要是商用數據庫，當查詢時可在表單上高亮度顯示與查詢內容相關的地圖。1.4 使用MapObjects 把一張地圖加到VB的表單上十分容易，如圖*用 MapObjects編寫程序的步驟: 從CD-ROM裝入MapObjects。 啟動VB在工具菜單下打開Custom controls對話框。如果安裝成功你將看到ESRI MapObjects的全稱。用鼠標點check box (選 MapObjects 可用)。你會看到MapObjects圖標被加到VB工具欄內。選地圖控件，把鼠標移到表單中，拖動十字絲把矩形框尺寸調到適當大小，釋放鼠標，你的表單上就會有一個地圖控件。 通過地圖控件屬性框或通過對Data connection和圖層目標的編程，你可向地圖控件中增加地圖數據。 你還可以繼續添加其它控件，如命令按鈕和工具條，或編寫代碼來調用屬性，事件和方法。 編寫，調試，編譯。安裝 MapObjects 一旦從CD-ROM中成功裝入，下一步就是向VB工程中增加MapObjects* 當你打開一個VB的工程，工具檔中包含了一部份你已購買的 VB控件。但并不是全部。你會發現制定缺省控件裝入從而把MapObjects 包括進去是十分方便的。 為達到上述目的，你可向C:Program FilesMicrosoft Visral BasicAvto 32 ld.vbp中加入所需控件。一但你把MapObjects加入，在每次開始新工程時，地圖控件將被自動裝入。 你可自己制定一次裝入控件的數量。按需要決定控件的數量是一個好習慣。這樣會使你的工程裝入的快點且節省內存。加入一地圖控件 你可向任意VB表單中加入一個或多個地圖控件。* 當你向表單中加入一地圖控件，最初它就象VB的圖片框控件， 然而它的資源并不是位圖而是矢量或柵格數據的圖層。加入一圖層 你可通過地圖控件的屬性窗或通過寫代碼來加入圖層。* 你可通過地圖控件屬性窗口增加圖層也可采用在圖層屬性窗口中對圖層目標賦屬性的辦法加如圖層。 地圖控件屬性窗和圖層屬性窗是連接地圖控件和圖層目標的某些屬性的通道。 在實踐中你可通過寫代碼來增加圖層，因為你通常不能預言你的下級用戶新需接的圖層在哪里。下面是加入圖層的例子：Dim dCON As New MapObjects.DataConnectionDim curLayer As New MapObjects.MapLayerdCON.Database = c:DatacurLayer.GeoDataset = dCON.FindGeoDataset(Counties)map1.Layers.Add curLayer 這是一段通用程序，下一章我們將進一步討論MapObjects的數據通道(data access)目標，將介紹更多的增加圖層的程序。編寫代碼和增加屬性 以下是如何使用VB代碼編輯器和設置屬性： * 象其它所有控件一樣，當在地圖控件上打開VB代碼窗時，你就會看到關于地圖控件的所有事件的代碼結構。 在最后一部分，你會看到在地圖控件屬性表中可快捷設置地圖控件的屬性。 注意，在標準屬性窗口中，地圖控件的一些屬性是不可見的。這些屬性是只讀的。我們在后面會涉及。取得MapObjects的幫助 MapObjects具有在線幫助系統，它包括MapObjects每一目標的屬性，方法和事件，以及常量的詳細說明。 大多數幫助的主題下都有一小段程序例子，它可在VB下執行。下面有三種辦法可得到幫助： 你可點工具欄中地圖控件并按F1。 可通過VB的目標瀏覽器與MapObjects的幫助建立聯系。 可把VB編輯窗口的文本游標移到MapObjects的某一目標，屬性或事件上按F1。 一種最好的學習MapObjects的方法就是學習例子。以下是使用例子的步驟： 在幫助的主題下點例子。 打開一新VB工程并加上一地圖控件。 當表單是活動狀態時按F7打開代碼編輯器。 讀例子的結構，并向表單中加入特定控件。 從例子中粘貼代碼到代碼編輯器中。 按F5或選擇RUN。你的例子將被運行。運行工程 你可編寫一小段應用程序。加入地圖控制并加入一個或多個圖層。在編寫時你不會看到任何圖層顯示出來。但當程序運行時，你就會看到圖層將掌滿顯示區域，如果沒制定符號屬性(顏色、大小 、型)，則缺省設置將自動啟用。1.5 使用OLE Automation objects 除了地圖控件以外，MapObjects包括三十多個OLE Automation objects，這些目標是MapObjects區別于同類產品的制圖軟件部件，它們提供了靈活性和多功能。OLE Automation objects是編寫交互的高效應用軟件的關鍵。使用目標瀏覽器OLE Automation objects在打開VB之初并沒有呈現出來。但可在目標瀏覽中看到它們，點View菜單中object Browser，在庫/工程下拉框中選Mapobjects-ESRI Mapobjects你就會在類/組件列表框中看到MapObjects的constants和目標。 點任意目標，在方法/屬性列表框中就會有增加。 點任意方法或屬性，你就會在目標瀏覽器底部看到一小段描述。 點question按鈕，就會得到on line幫助。引用OLE Avtomation objects 大多情況，用MapObjects就要用地圖控件。地圖控件是一種可視化元素，然而有一些用MapObjects編制的應用程序并不需要地圖控件。你可以在VB的Reference窗口選中MapObjects OLE Automation objects而不用增加地圖控件。在VB工具 注意，如果你把MapObjects加到VB的工具欄中，也就自動地引用了OLE Automation objects。聲明目標當你聲明或建立一新目標時，最好寫全名，例：Dim rSet As New Mapobjects.Recordset而不是Dim rSet As New Recordset 這不僅可提高運行效率，也避免了潛在的命名矛盾。如 MapObjects的Recordset目標和VB的Recordset目標。使用常量 本書涉及了所有MapObjects可用的常量，在設置變量或屬性時可使用常量而不是數值。常量代表的具體數值請參閱參考手冊和在線幫助。明確變量類型 如果你還沒有做準備，你就應該在VB的工程中聲明變量和目標的類型。從Tools 單中選Options項，在Options對話框中點中 Require Variable Declaration，在任何一個新表或模塊中都會具有這個設置。 在聲明段，你的微不足道的變量和目標聲明工作將換來少測試和高效的表。1.6 MapObjects的數據源 你可通過MapObjects使用形文件，圖像文件，屬性表或通過ESRI的專用數據庫引擎連接的專用數據庫。形文件是地圖數據的矢量形式，圖像文件是柵格圖像或尤指航空或衛量的畸變圖像的糾正照片，屬性表是可用ODBC裝入的任意格式。 專用數據庫是網絡上通過ESRI專用數據庫引擎連接的UNIX服務器。 形文件適用于中小型地圖數據。而大型數據(省，國家道路網)，你就需使用專用數據庫。 用MapObjects編寫的軟件是可伸縮的。最初你可用形文件。當用戶需要與大型數據庫連接時，幾乎所有代碼都可被移到與專用數據庫連接后的工作中，你僅需修改打開數據源的幾行代碼。形文件 形文件是ESRI提供的存儲地理數據的矢量格式。這就意味著地圖元素以X，Y形式出現。其坐標系是笛卡爾坐標。注意，笛卡爾坐標與屏幕坐標有所不同。 每一元素的幾何形狀以包括一組矢量坐標的形的形式存儲。其屬性存放在與形文件相連的dBASE的記錄中。以下是得到形文件的不同方法。 購賣商業地圖數據。 MapObjects提供的光盤。 ARcView，ARC/INFO 等 ESRI 產品的數據。 編寫程序從其它格式中轉換。 一個形文件由三種文件組成，主文件(*.shp)包含幾何形狀。索引文件(*.shx)包含數據的索引。數據庫文件(*.dbf)包含形的屬性,你可以修改字段的定義。每一個形文件包含一種類型(點 弧 多邊形) 點有一個(X，Y)坐標和一個屬性。 弧段包含一條或一組(可連，可不連)的多義線。一條多義線是一組有序結點。每一弧段有一個屬性記錄。 多邊形包括一個或多個邊界，一個邊界是一個無交叉點的閉合環，一個邊界可嵌于一多邊形中而形成環形。邊界的方向決定它是否代表區域內的面積。每一多邊形有一屬性記錄。 形文件通過ODBC讀入，ODBC在裝MapObjects的同時被裝入并注冊。 ARC/INFO用戶應注意形文件中弧，多邊形的定義不同于 ARC/INFO coverage中的定義。形文件無拓撲，因此，形文件允許你集合簡單元素來合成元素。如，把幾條polyoline會成arc。通過形文件，你可快速顯示圖形并具有一簡單數據模型; 以簡單數據模型換取快速顯示，這使得對形文件進行拓撲編輯或高級分析變得十分困難。 形文件是一種通用格式，如果你想編寫程序直接讀寫形文件，你可以從ESRI網點 上下載ArcView V 2.0形文件描述。圖像(Image)文件 你可通過MapObjects編寫應用程序來顯示多種圖像文件。在地圖中圖像多來自航空照片和衛星圖像。 圖像文件依靠帶有灰度值或色標的一組像元來表示圖片，這些像元無屬性連接，其坐標系統與形文件不同。 你可把圖像文件精確重疊于大地坐標的形文件。MapObjects (或其它 ESRI 軟件)用world files來配準圖像。 一個world文件是一個簡單的文本文件，它包括數學參數來定義轉換關系，其公式為：x = Ax + By + Cy = Dx + Ey + Fx 像元在地圖上的計算坐標值X。y 像元在地圖上的計算坐標值 Y。x 像元列數。y 像元行數。A X軸上像元的尺寸。B,D 旋轉關系項。E 負的Y軸上像元的尺寸。C,F 左上角像元中心的X Y地圖坐標。 注意 E 為負值，因為，形文件坐標與圖像坐標Y方向正向反。 world文件是包含A，B，C，D，E，F值的連續行文本文件。 注意 MapObjects不支持圖像旋轉。這樣 B，D的值在 world 文件中是被忽略的。為果需要旋轉，你可用 ESRI的ARC GRID。以下是MapObjects支持的圖像文件格式。名稱 描述 擴展名 World file擴展名BMP Windows bitmap *.bmp *.bpwTIFF Tag image file *.tif *.tfwSUN Sun raster file *.sun *.snwERDAS ERDAS GIS or LAN *.gis *.gswIMPELL IMPELL bitmap *.rls *.rlwBIL Band interleaved by line *.bil *.blwBIP Band interleaved by pixel *.bip *.bpwBSQ Band sequential *.bsq *.bqw屬性表用MapObjects編寫的應用程序，可通過一種關系與外部屬性表相連。關系是連接元素表(元素表可是形文件的dBASE表，也可是從SDE層中得到的表)與屬性表的表。為了這種連接，可安裝 ODBC。這種關系留存于應用程序運行期間，它不會被寫入文件中。 要建立這種關系。你要確認一個元素表的某一字段，一個要與之建立關系的屬性表和該屬性表的一個字段。屬性表的相關字段必須是primary key或允許在其上建立一獨一無二的索引。有一例外，在少于100個記錄的小型元素表上可建立無特殊字段的關系。 一旦建立了關系，它就在元素表上建立了一種紐帶，你可通過屬性表的字段查詢屬性，但你不能在MapObjects中通過SQL表達式向里面增加數據。空間數據引擎 如果你采用大規模地圖數據組來組織工作，見意考慮使用空間數據引擎(SDE)，一種高性能制圖數據服務器。 通過SDE，空間數據可存放于UNIX服務器上。用戶的SDE應用程序可基于UNIX或WIN環境被編寫，SDE提供軟件開發和數據管理能力： 管理大規模地理數據，提供地圖無縫顯示。 通過某種商業關系數據庫存儲數據。 通過一組高效的尖端空間數據操作來查詢空間數據。 SDE包括一個C語言應用程序接口(API)，它提供最大能力的執行效率和極大的靈活性。下一章，我們將詳細解紹與SDE的連接。1.7 縱覽MapObjects MapObjects包含一組具有屬性，事件和方法的目標。 你已經看到你可通過地圖控件快速建立一簡單應用程序，但實際的應用中，需要使用OLE Automation objects。當你初次使用MapObjects你應了解這些目標、屬性和方法。這些對于MapObjects的全部組織是非常有用的。MapObjects的目標分為四組： 數據通道目標組 地圖顯示目標組 幾何圖形目標組 地址匹配目標組數據通道目標組 通過數據通道目標組，你能建立與地圖數據的聯系。增加屬性值，從地圖元素上反饋屬性信息。數據通道目標組由以下部件組成： 數據連接(Data Connection)目標是MapObjects通向地圖數據的通道。它包括屬性和方法來建立與地理數據集合(GeoDatasets)的聯系。 地理數據集合( GeoDataset)目標代表制圖數據并可引用圖層。它可引用形文件或SDE layer的數據。 地理數據集合是對于一個數據連接的所有地理數據集合目標的總合。它是一特定文件夾中所有形文件或SDE數據庫中所有SDE層。 記錄集合(Record set)目標代表一個圖層的記錄。如果你做了一個選擇集，它就代表所選記錄。它類似于數據庫指針。 TableDesc目標給你關于與記錄集相連的表的字段的信息。 表(Table)目標是一個只讀數據通道目標。它代表來自ODBC 數據源的一個表單。你可增加一表作為與圖層目標的關聯或為了大批地址匹配。 字段集合包括記錄集目標的字段目標。 統計目標代表關于一個記錄集的簡單統計信息。你首先應用一方法計算關于記錄集的統計值，然后可在統計目標中檢查結果。 字串集合是一組標準字符串數據類型集合。你可通過它從其它目標中取值來自接口控件(如列表框)中增加數據。地圖顯示目標組 通過地圖顯示目標組，你能用符號或專題描述畫一張地圖。你也可加入圖像做為背景，在地圖上顯示動態數據。地圖顯示目標組由以下部件組成： 地圖控件使你能顯示圖層、圖像層，和動態跟蹤圖層目標，你可編寫代碼來控制鼠標驅動繪圖事件，設置顯示參數，用方法可畫元素，閃爍選擇的元素，計算點與元素的距離，輸入線，圓，三角。 層(Layer)集合是服務于地圖控件的圖層目標和影像層目標的集合。 圖層目標代表帶有一些顯示屬性的地理數據集合目標。它可讓你處理專題地圖，此目標有幾個方法來查找和選擇地理元素。 圖像層目標代表一作為地圖控件上的背景的影像文件。 動態跟蹤圖層(Tracking Layer)目標讓你能動態拖拽元素而無需重顯。這對實時數據獲取是十分理想的(如GPS)。它也可用于顯示基本幾何形狀(如三角、圓)和描述性文本。它們都不是地圖數據的一部分。 Geo Event目標代表可加到Tracking Layer目標上的點元素。 符號(symbol)目標是廣泛使用的目標，它影響如何在地圖上顯示元素的許多方面。其屬性包括：顏色、字形、大小、形狀。 文本(Textsymbol) 目標代表文本的某些屬性(如準線、字型) ClassBreaksRenderer目標使你能在圖層目標中通過分類的辦法依數值字段顯示元素。 ValueMapRender目標使你在圖層目標中通過特殊字段中單獨的值，用符號來顯示元素。 LableRenderer目標使你在圖層目標中，依元素的某一字段的屬性標注文本。幾何圖形目標組 幾何圖形目標組提供幾種功效：依從圖層中選擇的元素反饋幾何信息；向圖層添加幾何目標；向地圖中畫幾何目標而不更新圖層。幾何圖形目標組由以下部件組成： 矩形(Rectangle)目標經常用來設置和反饋地圖范圍，也用來畫矩形。 點集合存貯線和多邊形目標的坐標。 點目標代表具有X、Y坐標的點。 線目標代表地圖上的一條線。多邊形目標代表多邊形。它的頭一個點和最后一個點在它的點集合上是相同的。 橢圓目標代表橢圓和圓。地址匹配目標組 地址匹配目標組讓你進入一圖層上的某個地址，該地址具有街道和地址范圍并返回一個位置，你也可發現十字路口的位置和地名。地址匹配目標組由以下部件組成： 地址匹配(Address Matcher)目標讓你列出含有地址范圍的道路中心線的地理數據集合,并具有為單個或一批地址匹配的方法。 地址目標代表關于Address Matcher目標的方法中標準化地址。 定位目標(Place Locator)讓你列出帶有地名的地理數據集并通過一個方法找出地名的位置。 地址位置(Address Location)目標包含一段代碼指示是否(或如何) 一個地址被解決如果已被解決指出與地址匹配的圖型位置。1.8 moView 應用程序 我們提供一種叫作moView的應用程序來展示MapObjects許多功能的優點并提供模板，在這本書的許多章節將通過代碼片段和來自于 moView 及其它例子的應用來揭示MapObjects。 你可在MapObjects光盤的例子目錄中找到moView，如要學習只需考貝moView文件夾到你的系統目錄中。 moView是一種普通簡單的制圖應用程序。它的接口圍繞著地圖控件而調整，這種類型叫作地圖中樞(map ceneric)，也許在你的應用程序中地圖很象是一個附件而不是核心。 在應用程序中，沒有硬編譯代碼(Hard coded)的數據源，你可使用任何MapObjects可接受的數據。moView展示了許多事件、屬性和方法。并提供一個框架使你在開發程序時可踴躍前進。 你可為某特定市場建立縱向應用程序。這時你可使用moView片段，它給你的應用程序做向導。并可擴展為特定應用程序所設計的接口。運行 moView 一但在VB內裝入moView，你可按F5或點Run菜單中的 Start。 當你打開moView你就會看到一個主表和一個空地圖顯示區，你可點工具條中第二個按鈕(地圖目錄)來引入圖層，地圖目錄表很象VB中地圖控件屬性表單。moView 命令集moView的主要命令被裝在主表的工具條中。打印，向缺省打印機輸出地圖控件上的當前顯示。查找，可產生一元素查找表，通過它你可根據屬性來定位元素。空間選擇(Spatial select)，將產生空間選擇表，通過它可實行MapObjects的所有空間尋找方法。地址匹配(Adress matching)，可產生地址匹配表，通過它可執行基礎地址匹配。撐滿(Full extent)，在地圖控件中撐滿地圖包括所有圖層中的所有元素。放大( Zoom in )，開窗放大。縮小(Zoom out )，以鼠標點為中心降低地圖比例二倍。漫游(Pan)標注(Edeneify)，標注鼠標點或附近。圖形(Graphics)，激活圖形工具條可畫幾何圖形。框架開發 用VB建立一地圖應用程序的用戶接口是一項特殊的要求。因為VB提供的控件最適合交互式文本和表，對于圖形僅為邊緣插圖功能象地圖的圖式。moView的一個重要的中心任務是解決建立地圖用戶接口問題。 我們不選用第三方控件，因為我們不能預言或假設你除了VB提供的控件以外使用什么控件。為建立地圖應用程序的用戶接口。 你可選擇任何一個廠商提供的控件。 對于moView 應用程序的源代碼和表你都有通道與連接，無論你有無VB經驗，moView 的代碼對你都是有價值的。moView 的方針 你會發現 moView 應用程序在VB下安裝了一些程序標準，這些應用程序提高了應用程序的健壯性、可讀性和可靠性。你的選擇是由你和應用程序的大小和特性決定的。對于一成功的應用程序開發來說。程序標準是一個基本部份。 在moView中使用的一些程序方法：用控件的標準前綴的命名約定。整個代碼中大量的描述性注釋。變量范圍限制和全局變量限制。在開始階段裝入并隱藏表來優化執行。向標準模型中壓縮數據和方法。第二章使用地圖和圖層使用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.FullExtentClear和Remove方法可刪除層集中某層。例如：Map1.Layers.Remove (4)MoveTo、MoveToBottom和MoveToTop方法可改變層集中側的順序。層的表示可以有層名和索引兩種方式。例如，下面的例子中索引號為2，層名名叫Hydrography：Map1.Layers.Item(2).Symbol.Color = vbBlueMap1.Layers(2).Symbol.Color = vbBlueMap1.Layers.Item(Hydrography).Symbol.Color = vbBlueMap1.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 objectsFor Each Layer In Map1.LayersIf Layer.LayerType = moMapLayer ThenMsgBook layer & Layer.Name & is a map layerElseIf Layer.LayerType = moImageLayer ThenMsgBook layer & Layer.Name & is a image layerEnd IfNext Layer注意，我們必須將層聲明為目標，這樣Visual Basic可在運行時接受此定義。在上面例子中，還用到兩個常量：moMaplayer和moImagelayer，這增加了程序的可讀性。你可在MapObjects幫助屏上或在MapObjects程序員手冊上查到所有常量的值。全面檢查圖層在上面例子的基礎上，使用層集索引全面檢查圖層屬性：Dim i As IntegerFor i = 0 To Map1.Layers.Count - 1If Map1.Layer(i).LayerType = moMapLayer ThenIf Map1.Layer(i).shapeType = moPoint ThenMsgBook Layer number & i & is a map layer and contains points.ElseIf Map1.Layer(i).shapeType = moLine ThenMsgBook Layer number & i & is a map layer and contains lines.ElseIf Map1.Layer(i).shapeType = moPolygon ThenMsgBook Layer number & i & is a map layer and contains polygons.End IfElseIf Map1.Layer(i).LayerType = moImageLayer ThenMsgBook Layer number & i & is a image layer.End IfNext 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 ThenRenderIconicMarkers hdc, mapMain.Layers(index), picLogoEnd IfPrivate Sub RenderIconicMarkers(hdc As Long, layer As MapLayer, pic As PictureBox)Dim recs As MapObjects.RecordsetSet recs = layer.RecordsDim shpfield As MapObjects.FieldSet shpfield = recs.Fields(Shape)Do While Not recs.EOFDim pt As MapObjects.PointSet pt = shpfield.ValueDrawIconicMarker pt, pic, hdcrecs.MoveNextLoopEnd SubPrivate Sub DrawIconicMarker(pt As MapObjects.Point, pic As PictureBox, hdc As Long)Dim x As Single, y As SinglemapMain.FromMapPoint pt, x, yDim xPixels As Integer, yPixels As IntegerxPixels = Me.ScaleX(x, vbTwips, vbPixels)xPixels = Me.ScaleX(y, vbTwips, vbPixels)BitBlt hdc, xPixels - 16, yPixels - 16, 32, 32, pic, hdc, 0, 0, SRCCOPYEnd 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 LongPrivate Declare Function GetDC Lib user32 (ByVal hwnd As Long) As LongPrivate Declare Function ReleaseDC Lib user32 (ByVal hwnd As Long, ByVal hdc As Long) As LongPrivate Declare Function SetROP2 Lib gdi32 (ByVal hdc As Long, ByVal nDrawMode As Long) As LongPrivate Const R2_NOTXORPEN = 10Private Const R2_NOT = 6Dim g_hdc As LongDim g_hwnd As LongDim dragging As BooleanDim xs As Integer, ys As IntegerEnd SubPrivate Sub F