了解MapObjects.doc

137第一章 了解MapObjects MapObjects是一套制圖軟件集，它使程序員能夠把地圖加到應(yīng)用程序中去。 通過MapObjects你可靈活地建立適合用戶的地圖接口。在小內(nèi)存空間中，你能用多種工業(yè)標準程序環(huán)境之一去建立應(yīng)用程序，你能夠聯(lián)合使用MapObjects與其它軟件去實現(xiàn)地圖與用戶信息的聯(lián)系。1.1 元素軟件 大部分商業(yè)軟件在最近的版本中極度壯大，諸如字處理及報表等程序，其最初僅有幾兆，目前卻嚴重消耗磁盤空間。這就要看最新的計算機能否快速執(zhí)行最新版本軟件以至于不落后于舊機器使用老軟件的效率。 由于操作系統(tǒng)變得越來越復(fù)雜及用戶對更多功能的要求也日趨強烈，程序也隨之壯大了。然而典型用戶也僅充分使用了這些大軟件的10%-20%。那些沒有用到的功能象一個大包袱，嚴重消耗了系統(tǒng)資源和磁盤空間。 如何打破這種惡性循環(huán)?元素軟件(Component software)是一技術(shù)上的重大突破。它提供了一種解決辦法。 元素軟件的原理是把大的桌面應(yīng)用軟件的功能打碎成部件。開發(fā)人員可跟據(jù)需要恰當?shù)貙⒁恍┎考M合成工具箱，用它建立專用軟件。這種部件叫目標(objects)。所用平臺就是可視化程序語言。其結(jié)果就是精煉地程序快速經(jīng)濟地運行并且對特定的市場有很強的適應(yīng)性。1.2 MapObjects的功能通過MapObjects你可完成以下甚至更多功能： 顯示一張多圖層地圖(道路，河流，邊界)。 放大，縮小，漫游。 生成圖形元素，如點，線，圓，多邊形。 說明注記 識別地圖上被選中的元素。 通過線，方框，區(qū)域，多邊形，圓來拾取物體。 拾取距某參照物特定范圍內(nèi)的物體。 通過SQL描述來選擇物體。 對選取物體進行基本統(tǒng)計。 對所選地圖元素的屬性進行更新，查詢。 繪制專題圖。 標注地圖元素。 從航片或衛(wèi)星圖片上截取圖像。 動態(tài)顯示實時或系列時間組數(shù)據(jù)。 在圖上標注地址或定位。 本書開發(fā)了一系列通過VB，OLE，WinAPI擴展MapObjects的辦法。 MapObjects可執(zhí)行許多基礎(chǔ)制圖功能。但它不能執(zhí)行某些高級功能。如，高質(zhì)量地圖輸出，地圖坐標系投影，表面模型或網(wǎng)絡(luò)分析等高級空間分析。以及拓撲編輯。你可利用ESRI的其它產(chǎn)品如ARC/INFO，ArcView來實現(xiàn)高級功能。1.3 MapObjects簡介 MapObjects包括一個OLE控件(OCX)叫做地圖控件(Map control)和一組(三十多個)OLE目標(objects)。它適用于工業(yè)標準程序環(huán)境。如VB4.0，Delphi2.0,PowerBuilder,MS Access等。 MapObjects不適用于最終用戶。它是為程序開發(fā)者設(shè)計的。程序開發(fā)者可利用MapObjects開發(fā)應(yīng)用程序并把這些程序提供給下一級用戶使用。 MapObjects運行于Win95或Win NT3.51或更高。 最近，Mierosoft開始把OLE controls稱作ActiveX controls。本書將元素稱為控件(OLE controls 或 OCXs)，但這些術(shù)語可與新術(shù)語ActiveX互換。MapObjects和OLE containers OLE Automation object 是一種可編程目標，它可通過OLE Automation server來通訊。OLE custom control是一種軟件元件，它可通過OLE container實現(xiàn)特定功能。OLE container和 OLE Avtomation Server就是VB，Delphi，Access，VFro。 OLE custom control有事件，屬性和方法。 OLE Automation objects有屬性和方法。 在OLE Container中(如VB)，你能聯(lián)合使用Map Objects的目標和其它Custom controls，及利用別的程序中的OLE Automation objects(如 office)去建立應(yīng)用程序。 部件軟件的優(yōu)勢 Map Objects(通常叫OCXs)可容易地用OCXs建立程序而免去C+ 冗長的代碼，你可發(fā)揮專長于設(shè)計，工程，制圖，而不是軟件。 你的Map Objects 應(yīng)用軟件不多占用內(nèi)存空間。 比其它 Win 支持的制圖軟件速度更快，MapObjects 直接建立在MFC 庫上且優(yōu)化執(zhí)行。 你有極大的靈活性去建立用戶接口。你可在應(yīng)用程序上建立幾乎所有在Win95上見過的接口。 MapObjects的另一特點是，地圖可以是程序中的主要元素也可是附屬品。因此MapObjects尤其適合vertical應(yīng)用軟件。例如， 你的軟件可能主要是商用數(shù)據(jù)庫，當查詢時可在表單上高亮度顯示與查詢內(nèi)容相關(guān)的地圖。1.4 使用MapObjects 把一張地圖加到VB的表單上十分容易，如圖*用 MapObjects編寫程序的步驟: 從CD-ROM裝入MapObjects。 啟動VB在工具菜單下打開Custom controls對話框。如果安裝成功你將看到ESRI MapObjects的全稱。用鼠標點check box (選 MapObjects 可用)。你會看到MapObjects圖標被加到VB工具欄內(nèi)。選地圖控件，把鼠標移到表單中，拖動十字絲把矩形框尺寸調(diào)到適當大小，釋放鼠標，你的表單上就會有一個地圖控件。 通過地圖控件屬性框或通過對Data connection和圖層目標的編程，你可向地圖控件中增加地圖數(shù)據(jù)。 你還可以繼續(xù)添加其它控件，如命令按鈕和工具條，或編寫代碼來調(diào)用屬性，事件和方法。 編寫，調(diào)試，編譯。安裝 MapObjects 一旦從CD-ROM中成功裝入，下一步就是向VB工程中增加MapObjects* 當你打開一個VB的工程，工具檔中包含了一部份你已購買的 VB控件。但并不是全部。你會發(fā)現(xiàn)制定缺省控件裝入從而把MapObjects 包括進去是十分方便的。 為達到上述目的，你可向C:Program FilesMicrosoft Visral BasicAvto 32 ld.vbp中加入所需控件。一但你把MapObjects加入，在每次開始新工程時，地圖控件將被自動裝入。 你可自己制定一次裝入控件的數(shù)量。按需要決定控件的數(shù)量是一個好習(xí)慣。這樣會使你的工程裝入的快點且節(jié)省內(nèi)存。加入一地圖控件 你可向任意VB表單中加入一個或多個地圖控件。* 當你向表單中加入一地圖控件，最初它就象VB的圖片框控件， 然而它的資源并不是位圖而是矢量或柵格數(shù)據(jù)的圖層。加入一圖層 你可通過地圖控件的屬性窗或通過寫代碼來加入圖層。* 你可通過地圖控件屬性窗口增加圖層也可采用在圖層屬性窗口中對圖層目標賦屬性的辦法加如圖層。 地圖控件屬性窗和圖層屬性窗是連接地圖控件和圖層目標的某些屬性的通道。 在實踐中你可通過寫代碼來增加圖層，因為你通常不能預(yù)言你的下級用戶新需接的圖層在哪里。下面是加入圖層的例子：Dim dCON As New MapObjects.DataConnectionDim curLayer As New MapObjects.MapLayerdCON.Database = c:DatacurLayer.GeoDataset = dCON.FindGeoDataset(Counties)map1.Layers.Add curLayer 這是一段通用程序，下一章我們將進一步討論MapObjects的數(shù)據(jù)通道(data access)目標，將介紹更多的增加圖層的程序。編寫代碼和增加屬性 以下是如何使用VB代碼編輯器和設(shè)置屬性： * 象其它所有控件一樣，當在地圖控件上打開VB代碼窗時，你就會看到關(guān)于地圖控件的所有事件的代碼結(jié)構(gòu)。 在最后一部分，你會看到在地圖控件屬性表中可快捷設(shè)置地圖控件的屬性。 注意，在標準屬性窗口中，地圖控件的一些屬性是不可見的。這些屬性是只讀的。我們在后面會涉及。取得MapObjects的幫助 MapObjects具有在線幫助系統(tǒng)，它包括MapObjects每一目標的屬性，方法和事件，以及常量的詳細說明。 大多數(shù)幫助的主題下都有一小段程序例子，它可在VB下執(zhí)行。下面有三種辦法可得到幫助： 你可點工具欄中地圖控件并按F1。 可通過VB的目標瀏覽器與MapObjects的幫助建立聯(lián)系。 可把VB編輯窗口的文本游標移到MapObjects的某一目標，屬性或事件上按F1。 一種最好的學(xué)習(xí)MapObjects的方法就是學(xué)習(xí)例子。以下是使用例子的步驟： 在幫助的主題下點例子。 打開一新VB工程并加上一地圖控件。 當表單是活動狀態(tài)時按F7打開代碼編輯器。 讀例子的結(jié)構(gòu)，并向表單中加入特定控件。 從例子中粘貼代碼到代碼編輯器中。 按F5或選擇RUN。你的例子將被運行。運行工程 你可編寫一小段應(yīng)用程序。加入地圖控制并加入一個或多個圖層。在編寫時你不會看到任何圖層顯示出來。但當程序運行時，你就會看到圖層將掌滿顯示區(qū)域，如果沒制定符號屬性(顏色、大小 、型)，則缺省設(shè)置將自動啟用。1.5 使用OLE Automation objects 除了地圖控件以外，MapObjects包括三十多個OLE Automation objects，這些目標是MapObjects區(qū)別于同類產(chǎn)品的制圖軟件部件，它們提供了靈活性和多功能。OLE Automation objects是編寫交互的高效應(yīng)用軟件的關(guān)鍵。使用目標瀏覽器OLE Automation objects在打開VB之初并沒有呈現(xiàn)出來。但可在目標瀏覽中看到它們，點View菜單中object Browser，在庫/工程下拉框中選Mapobjects-ESRI Mapobjects你就會在類/組件列表框中看到MapObjects的constants和目標。 點任意目標，在方法/屬性列表框中就會有增加。 點任意方法或?qū)傩?，你就會在目標瀏覽器底部看到一小段描述。 點question按鈕，就會得到on line幫助。引用OLE Avtomation objects 大多情況，用MapObjects就要用地圖控件。地圖控件是一種可視化元素，然而有一些用MapObjects編制的應(yīng)用程序并不需要地圖控件。你可以在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可用的常量，在設(shè)置變量或?qū)傩詴r可使用常量而不是數(shù)值。常量代表的具體數(shù)值請參閱參考手冊和在線幫助。明確變量類型 如果你還沒有做準備，你就應(yīng)該在VB的工程中聲明變量和目標的類型。從Tools 單中選Options項，在Options對話框中點中 Require Variable Declaration，在任何一個新表或模塊中都會具有這個設(shè)置。 在聲明段，你的微不足道的變量和目標聲明工作將換來少測試和高效的表。1.6 MapObjects的數(shù)據(jù)源 你可通過MapObjects使用形文件，圖像文件，屬性表或通過ESRI的專用數(shù)據(jù)庫引擎連接的專用數(shù)據(jù)庫。形文件是地圖數(shù)據(jù)的矢量形式，圖像文件是柵格圖像或尤指航空或衛(wèi)量的畸變圖像的糾正照片，屬性表是可用ODBC裝入的任意格式。 專用數(shù)據(jù)庫是網(wǎng)絡(luò)上通過ESRI專用數(shù)據(jù)庫引擎連接的UNIX服務(wù)器。 形文件適用于中小型地圖數(shù)據(jù)。而大型數(shù)據(jù)(省，國家道路網(wǎng))，你就需使用專用數(shù)據(jù)庫。 用MapObjects編寫的軟件是可伸縮的。最初你可用形文件。當用戶需要與大型數(shù)據(jù)庫連接時，幾乎所有代碼都可被移到與專用數(shù)據(jù)庫連接后的工作中，你僅需修改打開數(shù)據(jù)源的幾行代碼。形文件 形文件是ESRI提供的存儲地理數(shù)據(jù)的矢量格式。這就意味著地圖元素以X，Y形式出現(xiàn)。其坐標系是笛卡爾坐標。注意，笛卡爾坐標與屏幕坐標有所不同。 每一元素的幾何形狀以包括一組矢量坐標的形的形式存儲。其屬性存放在與形文件相連的dBASE的記錄中。以下是得到形文件的不同方法。 購賣商業(yè)地圖數(shù)據(jù)。 MapObjects提供的光盤。 ARcView，ARC/INFO 等 ESRI 產(chǎn)品的數(shù)據(jù)。 編寫程序從其它格式中轉(zhuǎn)換。 一個形文件由三種文件組成，主文件(*.shp)包含幾何形狀。索引文件(*.shx)包含數(shù)據(jù)的索引。數(shù)據(jù)庫文件(*.dbf)包含形的屬性,你可以修改字段的定義。每一個形文件包含一種類型(點 弧 多邊形) 點有一個(X，Y)坐標和一個屬性。 弧段包含一條或一組(可連，可不連)的多義線。一條多義線是一組有序結(jié)點。每一弧段有一個屬性記錄。 多邊形包括一個或多個邊界，一個邊界是一個無交叉點的閉合環(huán)，一個邊界可嵌于一多邊形中而形成環(huán)形。邊界的方向決定它是否代表區(qū)域內(nèi)的面積。每一多邊形有一屬性記錄。 形文件通過ODBC讀入，ODBC在裝MapObjects的同時被裝入并注冊。 ARC/INFO用戶應(yīng)注意形文件中弧，多邊形的定義不同于 ARC/INFO coverage中的定義。形文件無拓撲，因此，形文件允許你集合簡單元素來合成元素。如，把幾條polyoline會成arc。通過形文件，你可快速顯示圖形并具有一簡單數(shù)據(jù)模型; 以簡單數(shù)據(jù)模型換取快速顯示，這使得對形文件進行拓撲編輯或高級分析變得十分困難。 形文件是一種通用格式，如果你想編寫程序直接讀寫形文件，你可以從ESRI網(wǎng)點 上下載ArcView V 2.0形文件描述。圖像(Image)文件 你可通過MapObjects編寫應(yīng)用程序來顯示多種圖像文件。在地圖中圖像多來自航空照片和衛(wèi)星圖像。 圖像文件依靠帶有灰度值或色標的一組像元來表示圖片，這些像元無屬性連接，其坐標系統(tǒng)與形文件不同。 你可把圖像文件精確重疊于大地坐標的形文件。MapObjects (或其它 ESRI 軟件)用world files來配準圖像。 一個world文件是一個簡單的文本文件，它包括數(shù)學(xué)參數(shù)來定義轉(zhuǎn)換關(guān)系，其公式為：x = Ax + By + Cy = Dx + Ey + Fx 像元在地圖上的計算坐標值X。y 像元在地圖上的計算坐標值 Y。x 像元列數(shù)。y 像元行數(shù)。A X軸上像元的尺寸。B,D 旋轉(zhuǎn)關(guān)系項。E 負的Y軸上像元的尺寸。C,F 左上角像元中心的X Y地圖坐標。 注意 E 為負值，因為，形文件坐標與圖像坐標Y方向正向反。 world文件是包含A，B，C，D，E，F(xiàn)值的連續(xù)行文本文件。 注意 MapObjects不支持圖像旋轉(zhuǎn)。這樣 B，D的值在 world 文件中是被忽略的。為果需要旋轉(zhuǎn)，你可用 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編寫的應(yīng)用程序，可通過一種關(guān)系與外部屬性表相連。關(guān)系是連接元素表(元素表可是形文件的dBASE表，也可是從SDE層中得到的表)與屬性表的表。為了這種連接，可安裝 ODBC。這種關(guān)系留存于應(yīng)用程序運行期間，它不會被寫入文件中。 要建立這種關(guān)系。你要確認一個元素表的某一字段，一個要與之建立關(guān)系的屬性表和該屬性表的一個字段。屬性表的相關(guān)字段必須是primary key或允許在其上建立一獨一無二的索引。有一例外，在少于100個記錄的小型元素表上可建立無特殊字段的關(guān)系。 一旦建立了關(guān)系，它就在元素表上建立了一種紐帶，你可通過屬性表的字段查詢屬性，但你不能在MapObjects中通過SQL表達式向里面增加數(shù)據(jù)?？臻g數(shù)據(jù)引擎 如果你采用大規(guī)模地圖數(shù)據(jù)組來組織工作，見意考慮使用空間數(shù)據(jù)引擎(SDE)，一種高性能制圖數(shù)據(jù)服務(wù)器。 通過SDE，空間數(shù)據(jù)可存放于UNIX服務(wù)器上。用戶的SDE應(yīng)用程序可基于UNIX或WIN環(huán)境被編寫，SDE提供軟件開發(fā)和數(shù)據(jù)管理能力： 管理大規(guī)模地理數(shù)據(jù)，提供地圖無縫顯示。 通過某種商業(yè)關(guān)系數(shù)據(jù)庫存儲數(shù)據(jù)。 通過一組高效的尖端空間數(shù)據(jù)操作來查詢空間數(shù)據(jù)。 SDE包括一個C語言應(yīng)用程序接口(API)，它提供最大能力的執(zhí)行效率和極大的靈活性。下一章，我們將詳細解紹與SDE的連接。1.7 縱覽MapObjects MapObjects包含一組具有屬性，事件和方法的目標。 你已經(jīng)看到你可通過地圖控件快速建立一簡單應(yīng)用程序，但實際的應(yīng)用中，需要使用OLE Automation objects。當你初次使用MapObjects你應(yīng)了解這些目標、屬性和方法。這些對于MapObjects的全部組織是非常有用的。MapObjects的目標分為四組： 數(shù)據(jù)通道目標組 地圖顯示目標組 幾何圖形目標組 地址匹配目標組數(shù)據(jù)通道目標組 通過數(shù)據(jù)通道目標組，你能建立與地圖數(shù)據(jù)的聯(lián)系。增加屬性值，從地圖元素上反饋屬性信息。數(shù)據(jù)通道目標組由以下部件組成： 數(shù)據(jù)連接(Data Connection)目標是MapObjects通向地圖數(shù)據(jù)的通道。它包括屬性和方法來建立與地理數(shù)據(jù)集合(GeoDatasets)的聯(lián)系。 地理數(shù)據(jù)集合( GeoDataset)目標代表制圖數(shù)據(jù)并可引用圖層。它可引用形文件或SDE layer的數(shù)據(jù)。 地理數(shù)據(jù)集合是對于一個數(shù)據(jù)連接的所有地理數(shù)據(jù)集合目標的總合。它是一特定文件夾中所有形文件或SDE數(shù)據(jù)庫中所有SDE層。 記錄集合(Record set)目標代表一個圖層的記錄。如果你做了一個選擇集，它就代表所選記錄。它類似于數(shù)據(jù)庫指針。 TableDesc目標給你關(guān)于與記錄集相連的表的字段的信息。 表(Table)目標是一個只讀數(shù)據(jù)通道目標。它代表來自O(shè)DBC 數(shù)據(jù)源的一個表單。你可增加一表作為與圖層目標的關(guān)聯(lián)或為了大批地址匹配。 字段集合包括記錄集目標的字段目標。 統(tǒng)計目標代表關(guān)于一個記錄集的簡單統(tǒng)計信息。你首先應(yīng)用一方法計算關(guān)于記錄集的統(tǒng)計值，然后可在統(tǒng)計目標中檢查結(jié)果。 字串集合是一組標準字符串數(shù)據(jù)類型集合。你可通過它從其它目標中取值來自接口控件(如列表框)中增加數(shù)據(jù)。地圖顯示目標組 通過地圖顯示目標組，你能用符號或?qū)ｎ}描述畫一張地圖。你也可加入圖像做為背景，在地圖上顯示動態(tài)數(shù)據(jù)。地圖顯示目標組由以下部件組成： 地圖控件使你能顯示圖層、圖像層，和動態(tài)跟蹤圖層目標，你可編寫代碼來控制鼠標驅(qū)動繪圖事件，設(shè)置顯示參數(shù)，用方法可畫元素，閃爍選擇的元素，計算點與元素的距離，輸入線，圓，三角。 層(Layer)集合是服務(wù)于地圖控件的圖層目標和影像層目標的集合。 圖層目標代表帶有一些顯示屬性的地理數(shù)據(jù)集合目標。它可讓你處理專題地圖，此目標有幾個方法來查找和選擇地理元素。 圖像層目標代表一作為地圖控件上的背景的影像文件。 動態(tài)跟蹤圖層(Tracking Layer)目標讓你能動態(tài)拖拽元素而無需重顯。這對實時數(shù)據(jù)獲取是十分理想的(如GPS)。它也可用于顯示基本幾何形狀(如三角、圓)和描述性文本。它們都不是地圖數(shù)據(jù)的一部分。 Geo Event目標代表可加到Tracking Layer目標上的點元素。 符號(symbol)目標是廣泛使用的目標，它影響如何在地圖上顯示元素的許多方面。其屬性包括：顏色、字形、大小、形狀。 文本(Textsymbol) 目標代表文本的某些屬性(如準線、字型) ClassBreaksRenderer目標使你能在圖層目標中通過分類的辦法依數(shù)值字段顯示元素。 ValueMapRender目標使你在圖層目標中通過特殊字段中單獨的值，用符號來顯示元素。 LableRenderer目標使你在圖層目標中，依元素的某一字段的屬性標注文本。幾何圖形目標組 幾何圖形目標組提供幾種功效：依從圖層中選擇的元素反饋幾何信息；向圖層添加幾何目標；向地圖中畫幾何目標而不更新圖層。幾何圖形目標組由以下部件組成： 矩形(Rectangle)目標經(jīng)常用來設(shè)置和反饋地圖范圍，也用來畫矩形。 點集合存貯線和多邊形目標的坐標。 點目標代表具有X、Y坐標的點。 線目標代表地圖上的一條線。多邊形目標代表多邊形。它的頭一個點和最后一個點在它的點集合上是相同的。 橢圓目標代表橢圓和圓。地址匹配目標組 地址匹配目標組讓你進入一圖層上的某個地址，該地址具有街道和地址范圍并返回一個位置，你也可發(fā)現(xiàn)十字路口的位置和地名。地址匹配目標組由以下部件組成： 地址匹配(Address Matcher)目標讓你列出含有地址范圍的道路中心線的地理數(shù)據(jù)集合,并具有為單個或一批地址匹配的方法。 地址目標代表關(guān)于Address Matcher目標的方法中標準化地址。 定位目標(Place Locator)讓你列出帶有地名的地理數(shù)據(jù)集并通過一個方法找出地名的位置。 地址位置(Address Location)目標包含一段代碼指示是否(或如何) 一個地址被解決如果已被解決指出與地址匹配的圖型位置。1.8 moView 應(yīng)用程序 我們提供一種叫作moView的應(yīng)用程序來展示MapObjects許多功能的優(yōu)點并提供模板，在這本書的許多章節(jié)將通過代碼片段和來自于 moView 及其它例子的應(yīng)用來揭示MapObjects。 你可在MapObjects光盤的例子目錄中找到moView，如要學(xué)習(xí)只需考貝moView文件夾到你的系統(tǒng)目錄中。 moView是一種普通簡單的制圖應(yīng)用程序。它的接口圍繞著地圖控件而調(diào)整，這種類型叫作地圖中樞(map ceneric)，也許在你的應(yīng)用程序中地圖很象是一個附件而不是核心。 在應(yīng)用程序中，沒有硬編譯代碼(Hard coded)的數(shù)據(jù)源，你可使用任何MapObjects可接受的數(shù)據(jù)。moView展示了許多事件、屬性和方法。并提供一個框架使你在開發(fā)程序時可踴躍前進。 你可為某特定市場建立縱向應(yīng)用程序。這時你可使用moView片段，它給你的應(yīng)用程序做向?qū)А２⒖蓴U展為特定應(yīng)用程序所設(shè)計的接口。運行 moView 一但在VB內(nèi)裝入moView，你可按F5或點Run菜單中的 Start。 當你打開moView你就會看到一個主表和一個空地圖顯示區(qū)，你可點工具條中第二個按鈕(地圖目錄)來引入圖層，地圖目錄表很象VB中地圖控件屬性表單。moView 命令集moView的主要命令被裝在主表的工具條中。打印，向缺省打印機輸出地圖控件上的當前顯示。查找，可產(chǎn)生一元素查找表，通過它你可根據(jù)屬性來定位元素。空間選擇(Spatial select)，將產(chǎn)生空間選擇表，通過它可實行MapObjects的所有空間尋找方法。地址匹配(Adress matching)，可產(chǎn)生地址匹配表，通過它可執(zhí)行基礎(chǔ)地址匹配。撐滿(Full extent)，在地圖控件中撐滿地圖包括所有圖層中的所有元素。放大( Zoom in )，開窗放大?？s小(Zoom out )，以鼠標點為中心降低地圖比例二倍。漫游(Pan)標注(Edeneify)，標注鼠標點或附近。圖形(Graphics)，激活圖形工具條可畫幾何圖形?？蚣荛_發(fā) 用VB建立一地圖應(yīng)用程序的用戶接口是一項特殊的要求。因為VB提供的控件最適合交互式文本和表，對于圖形僅為邊緣插圖功能象地圖的圖式。moView的一個重要的中心任務(wù)是解決建立地圖用戶接口問題。 我們不選用第三方控件，因為我們不能預(yù)言或假設(shè)你除了VB提供的控件以外使用什么控件。為建立地圖應(yīng)用程序的用戶接口。 你可選擇任何一個廠商提供的控件。 對于moView 應(yīng)用程序的源代碼和表你都有通道與連接，無論你有無VB經(jīng)驗，moView 的代碼對你都是有價值的。moView 的方針 你會發(fā)現(xiàn) moView 應(yīng)用程序在VB下安裝了一些程序標準，這些應(yīng)用程序提高了應(yīng)用程序的健壯性、可讀性和可靠性。你的選擇是由你和應(yīng)用程序的大小和特性決定的。對于一成功的應(yīng)用程序開發(fā)來說。程序標準是一個基本部份。 在moView中使用的一些程序方法：用控件的標準前綴的命名約定。整個代碼中大量的描述性注釋。變量范圍限制和全局變量限制。在開始階段裝入并隱藏表來優(yōu)化執(zhí)行。向標準模型中壓縮數(shù)據(jù)和方法。第二章使用地圖和圖層使用MapObjects的起點就是向應(yīng)用程序中加入地圖并向地圖中加入數(shù)據(jù)。向應(yīng)用程序中加入地圖十分簡單，只需把工具箱中的地圖控件加道VB的表單中，象其它控件一樣，你可調(diào)整它的大小和位置，并可同過VB的屬性窗口或地圖控件屬性窗口來改變屬性。通過地圖控件屬性窗口加入形文件十分方便，當你在應(yīng)用程序中使用MapObjects時，還會發(fā)現(xiàn)使用圖層是十分必要的。最初，你會對向地圖中加入圖層感到不適應(yīng)，你不得不研究大量的OLE Automatiion objects、SDE層和影像文件。但漸漸你會發(fā)現(xiàn)MapObjects的數(shù)據(jù)通道和地圖顯示目標具有極大的靈活性和多功能性。本章將涉及以下內(nèi)容： 如何在地圖上表示層。 層的次序。 向地圖中加入形文件。 向地圖中加入圖像文件。 建立地圖用戶接口。 設(shè)置地圖屬性。 數(shù)據(jù)連接。 修改圖層。 動態(tài)跟蹤層。本章將涉及以下目標：GeoDatasets集、DataConnection目標、GeoDataset目標、地圖控件、圖層集、圖層目標、影像層目標、動態(tài)跟蹤層目標、GeoEvent目標。使用MapObjects向地圖中添加數(shù)據(jù)有三種方式： 通過建立DataConnection、GeoDataset和圖層目標及向地圖目標的層集中添加數(shù)據(jù)的方法加入矢量地圖數(shù)據(jù)。 通過建立影像層目標及向地圖目標的層集中影像層的方法顯示影像地圖數(shù)據(jù)以作背景。 通過使用動態(tài)跟蹤層目標和添加GeoEvent目標的方法實現(xiàn)動態(tài)跟蹤。在地圖上畫層地圖包含許多層?，F(xiàn)在我們要討論MapObjects的各種層目標和如何在地圖控件中管理圖層。用戶眼中的圖層地圖的最上方是動態(tài)跟蹤層，最下方為地圖控件，中間為層集。層集中圖層目標和影像層目標可以任意順序排放，但通常影像層顯示在最底層作為背景。以層方式工作十分有意，因為它十你很容易的選取同類地物。程序員眼中的層以下是影響顯示地圖數(shù)據(jù)的關(guān)鍵目標： 地圖控件是顯示圖層的平臺，它有兩個重要的屬性：層集和動態(tài)跟蹤層目標。 層集包含圖層目標和動態(tài)跟蹤層目標。它們的順序決定在地圖控件中的相互覆蓋關(guān)系。 圖層目標代表矢量數(shù)據(jù)。 影響層目標代表柵格數(shù)據(jù)。 動態(tài)跟蹤層目標顯示實時數(shù)據(jù)。地圖控件的關(guān)鍵屬性是層和跟蹤層。當你向表單中假如一地圖控件，你也同時建立了一個空層和空跟蹤層。另一重要屬性是Extent。它決定地圖的顯示范圍。用Refresh方法在地圖控件上畫層。當你執(zhí)行下列操作時Refresh方法將自動執(zhí)行： 向?qū)蛹屑尤雸D層或影像層。 使用Pan和CenterAt方法。 更新地圖控件的Extent屬性。 使用Clear或Remove方法。注意，有些操作不會引發(fā)Refresh方法，在編寫程序時應(yīng)在這些操作后加上Refresh方法一使操作更新顯示。標準控件的屬性和方法如果你是VB的用戶，你應(yīng)了解一些標準屬性和方法：Container、DragIcon、Index、Left、Height、Drag、Setfocus等，這里我們還將介紹一些Mapobjects的專門屬性。層集層集是地圖控件的重要屬性，包含圖層和影像層。使用Add方法可向?qū)蛹屑尤雸D層或影像層，無論增加了圖層還是影像層，F(xiàn)ullExtent屬性都會使地圖撐滿。如果你想使全圖重新顯示，可設(shè)置Extent屬性為FullExtent。Set map1.Extent = map1.FullExtentClear和Remove方法可刪除層集中某層。例如：Map1.Layers.Remove (4)MoveTo、MoveToBottom和MoveToTop方法可改變層集中側(cè)的順序。層的表示可以有層名和索引兩種方式。例如，下面的例子中索引號為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圖層目標圖層目標代表矢量數(shù)據(jù)。你可以下面的方式建立新層：Dim mLayer As New MapObjects。MapLayer當你通過DataConnection目標的FindGeoDataset方法把圖層加到GeoDataset目標中時，以下操作將自動執(zhí)行： Extent屬性被更新為地圖的最大范圍。 Records屬性被分配了一Recordset目標。 ShapeType屬性將依據(jù)形文件類型被設(shè)成moPoint、moLine、moPolygon。 Symbol設(shè)為缺省，并隨即賦予顏色。 如果FindGeoDataset方法成功，Valid屬性將被設(shè)成True。 Visible屬性設(shè)成True。Renderer屬性將設(shè)為Nothing,等待你設(shè)定其中的一個Rerderer目標：ClassBreaksRenderer、ValueMapRenderer、DotDensityRenderer或LableRenderer。Maplayer給你提供了一些強有力的方法以改變Maplayer的屬性數(shù)據(jù)。這些將在第五章里講述。影像層目標影像層目標表示你的層集中的一個圖象文件。象圖層目標一樣，可以如此創(chuàng)立一個新影像層目標：Dim iLayer As New Mapobjects ImageLayer然后，你可在層集里用Add方法往你的地圖畫面里加入圖象文件。你可能還要使用層集里的MoveToBottom方法，這樣圖象就不會擋住其它的層。當你將影像層附加圖象文件時，Extent屬性就會被更新，最大限度地反映地理范圍。在同一地理坐標上，如果你想使用其它圖層，圖象文件應(yīng)有一個相關(guān)的配準文件。反饋圖層類型在層集里用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程序員手冊上查到所有常量的值。全面檢查圖層在上面例子的基礎(chǔ)上，使用層集索引全面檢查圖層屬性：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 集里索引值的例序排列來調(diào)用的.Drawing事件當你在地圖上調(diào)出圖層后，一系列事件就會起動。你可將程序放到這些事件后面，并可讓用戶取消調(diào)出的大的地圖層。當你在地圖控件中使用Refresh方法,就會出現(xiàn)如下情況：1. BeforeLayerDraw事件起動。2. 層集按索引相反順序調(diào)出。3. AfterLayerDraw事件起動。4. BeforeTrackingLayerDraw事件起動。5. 如果任何GeoEvents加入到TrackingLayer中，他們就被畫出。6. AfterTrackingLayerDrow事件啟動。這些Drawing事件的一個使用方法是往地圖上畫一些幾何圖形，如線、圓和在地圖上說明注記，另一使用方法是調(diào)出層集或TrackingLayer之前來檢驗狀態(tài)。如果你的用戶在地圖上已啟動了一種方法，而它又占用了太長的時間，你可按Escape鍵取消操作。你可賦予地圖控件的CancelAction屬性以下三種值。 moCancelNone是說按Escape鍵將被忽略。 moCancelMap將停止所有層的調(diào)出。 moCancelLayer將停止當前層的調(diào)出。按Escape鍵啟動DrawingCancelled事件。將程序放到事件后，以便應(yīng)用程序可通過恰當?shù)姆椒ㄌ幚砝L圖過程的末端。在你的應(yīng)用程序中控制地圖的調(diào)出速度的方法是在地圖控件中設(shè)置RefreshCount屬性。Mapobjects在緩沖器里調(diào)出地圖，當達到一定矢量數(shù)目時更新地圖顯示。缺省情況下，此屬性為10,000。降低這種特性在較慢的計算機上可能會明顯提高效率，增加這種特性將加快一些地圖控件的調(diào)出。利用Win API擴充MapObjects應(yīng)用程序MapObjects提供了一種方法來使用經(jīng)常出現(xiàn)在Window應(yīng)用程序接口程序中的兩個變量 hDC和hWND。hDC是一句柄，一個唯一Windows分配給表面設(shè)備的ID號，如屏幕或打印機，通過它你的應(yīng)用程序可產(chǎn)生可視操作。你可通過Windows API GetDC函數(shù)可以得到自己的hDC，但使用完，一定要用ReleaseDC功能退出。一旦你有了device context，你可用適合你的應(yīng)用程序的Windows API圖表來使用它。例如，在一個應(yīng)用程序里，這個應(yīng)用程序能夠在地圖點位上提供圖符設(shè)制，你就可以象如下程序：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中，盡管它設(shè)計成為地圖的屬性，實際上hwnd是windows變量，不能夠改變，只有運用API子程序，才能通過它。在下面的例子中，當用戶在地圖上拖動鼠標，就會出現(xiàn)一個矩形，依據(jù)矩形的大小顯示地圖。程序得到了地圖的hwnd屬性，用來設(shè)置顯示設(shè)備。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