1、實(shí)驗(yàn)12：ArcMap定制開發(fā)一、實(shí)驗(yàn)?zāi)康模簂 了解ArcMap 環(huán)境中使用VBA進(jìn)行應(yīng)用開發(fā)的基本方法l 加深對(duì)宿主型GIS二次開發(fā)模式的理解l 通過編程的方法，在ArcMap中實(shí)現(xiàn)查詢要素多媒體屬性的查詢二、實(shí)驗(yàn)數(shù)據(jù)：l 地理數(shù)據(jù)庫：Ex12.mdb( PGDB) donglu（要素類校本部），PIC文件夾. (校本部主要建筑照片)數(shù)據(jù)下載：Ex13.rar三、實(shí)驗(yàn)步驟：下載 Ex13.rar后將其解壓到 硬盤上，檢查是是否存在文件夾，Ex12 ,Ex12 下是否包含 Ex12.mdb和一個(gè) PIC 文件夾（PIC文件夾中，應(yīng)該有多個(gè)JPG圖片文件）（一） 顯示要素類類型1. 打開ArcM

2、ap （9.x），新建一個(gè)地圖文檔，加載地理數(shù)據(jù)庫-Ex13.mdb中的要素類：donglu， 將地圖文檔保存到 Ex12 文件夾下，命名為 Ex12.mxd。2. 執(zhí)行菜單命令ToolsCustomize，點(diǎn)擊Commands選項(xiàng)頁，在類別(Categories)列表框中找到 UIControls，點(diǎn)擊“New UIControl”按鈕（參考下圖）UIControl（圖形界面控件）類型選擇為 UIButtonControl (按鈕)將新建的UIButtonControl更名為 Project.ShowFeatType，雙擊它，打開VBA 編程環(huán)境在其中輸入如下代碼，（其功能是顯示當(dāng)前地圖文檔

3、中最上面一個(gè)圖層的要素類型）Private Sub ShowFeatType_Click() Dim pFeatcls As IFeatureClass Dim pFeatLayer As IFeatureLayer Dim pDoc As IMxDocument Dim pMap As IMap Set pDoc = ThisDocument Set pMap = pDoc.Maps.Item(0) Set pFeatLayer = pMap.Layer(0) Set pFeatcls = pFeatLayer.FeatureClass If pFeatcls.ShapeType = esr

4、iGeometryPolygon Then MsgBox 圖層： & pFeatcls.AliasName & 是多邊形要素類 Else MsgBox This is not a polygon feature class End IfEnd Sub3. 執(zhí)行菜單命令ToolsCustomize，點(diǎn)擊Toolbars選項(xiàng)頁，新建一個(gè)工具欄 geospatial確定后，點(diǎn)擊“Commands”選項(xiàng)頁，參照如下操作將前面新建的按鈕 Project.ShowFeatType 拖放到工具欄 geospatial 上。確定并關(guān)閉“Customize”對(duì)話框，點(diǎn)擊新建的這個(gè)按鈕，得到如下運(yùn)行結(jié)果。（二）顯

5、示校本部建筑物的照片VBA編程實(shí)現(xiàn)4. 在ArcMap 的圖層列表面板中，右鍵點(diǎn)擊圖層Donglu, 然后在出現(xiàn)的右鍵的菜單中執(zhí)行“打開屬性表”(“Open Attribute Table”)命令，在屬性表對(duì)話框中點(diǎn)擊“選項(xiàng)”(Option)按鈕，在菜單中執(zhí)行“添加字段”(Add Field)命令。添加一個(gè)文本類型(Text)的字段-PICNAME.5. 在ArcMap中打開“編輯器”(Editor)工具欄，并開始編輯當(dāng)前地圖文檔中的圖層。如下圖所示的步驟操作：在圖上找到文淵樓后編輯其屬性字段PICNAME的值為：“PIC文淵樓.jpg”（不包括引號(hào)）注意用資源管理器檢查PIC文件夾中是否存在

6、圖片文件：文淵樓.jpg。其它建筑的編輯與此相同。完成編輯后，保存修改結(jié)果并停止編輯。6 在ArcMap中執(zhí)行菜單命令：MacrosVisual Basic Editor打開VBA 編程環(huán)境，在項(xiàng)目管理器中選中當(dāng)前項(xiàng)目 Project(Ex12.Mxd) 中 對(duì)象：ThisDocument，在其中加入過程 HyperLink, 如下所示，代碼附后：Sub Hyperlink(pLink, pLayer) Dim pHyperlink As IHyperlink Set pHyperlink = pLink UserForm1.Image1.Picture = LoadPicture(pHype

7、rlink.Link) If UserForm1.Visible = False Then UserForm1.Show 0 End IfEnd Sub注意這里用到了一個(gè)窗體UserForm1 ，需要將其添加到當(dāng)前工程文檔中，參考以下操作添加一個(gè)窗體UserForm1 到工程 Project(Ex12.mxd)中，在窗體上放置一個(gè)Image控件，和Command控件，調(diào)整它們的大小和相應(yīng)屬性。雙擊按鈕 CommandButton1(標(biāo)題為Exit), 編輯Click事件的代碼，如下：Private Sub CommandButton1_Click() Unload MeEnd Sub保存所做編輯結(jié)果，退出VBA 編程環(huán)境。7. 在ArcMap中右鍵點(diǎn)擊圖層Donglu，設(shè)置屬性(Properties), 在屬性對(duì)話框切換到Display（顯示）選項(xiàng)頁