二次開發(fā)第8章arcobjects入門_第1頁
二次開發(fā)第8章arcobjects入門_第2頁
二次開發(fā)第8章arcobjects入門_第3頁
二次開發(fā)第8章arcobjects入門_第4頁
二次開發(fā)第8章arcobjects入門_第5頁
已閱讀5頁，還剩5頁未讀， 繼續(xù)免費(fèi)閱讀

付費(fèi)下載

下載本文檔

版權(quán)說明：本文檔由用戶提供并上傳，收益歸屬內(nèi)容提供方，若內(nèi)容存在侵權(quán)，請進(jìn)行舉報(bào)或認(rèn)領(lǐng)

文檔簡介

另一種是創(chuàng)建UIControl并在其中寫入實(shí)現(xiàn)用戶需求的代碼)數(shù)據(jù)：Lab12.rarEx12.rar后將其解壓到硬盤上，檢查是是否存在文件夾，Ex12,Ex12下是否包含Ex12.mdb和一個(gè)PIC文件夾（PIC文件夾中，應(yīng)該有多個(gè)JPG文件ArcMap（9.x將地圖文檔保存到Ex12文件夾下，命名為Ex12.mxd。［ools［Custoize列表框中找到UIControls，點(diǎn)擊“NewUIControl”按鈕（參考下圖）類型選擇為(將新建的UIButtonControlProject.ShowFeatType，雙擊它，打開VBAPrivateSubShowFeatType_Click()DimpFeatclsAsIFeatureClassDimpDocAsIMxDimpMapAsSetpDoc=SetpMap=pDoc.Maps.Item(0)SetpFeatLayer=SetpFeatcls=MsgBox圖層：&pFeatcls.AliasName&是多邊形要素類"MsgBox"Thisisnotapolygonfeatureclass"EndIfEnd［ools［Customize拖放到geospatial上在ArcMap的圖層列表面板中，圖層―――Donglu,然后在出現(xiàn)的右鍵的菜單按鈕，在菜單中執(zhí)行“添加字段”(AddField)命令。添加一個(gè)文本類型(Text)的字段在ArcMap中打開“編輯器”(Editor)，并開始編輯當(dāng)前地圖文檔中的圖層。 .jpg（注意用資源管理器檢查PIC文件夾中是否存在文件：文淵樓.jpg。打開VBA編程環(huán)境，在項(xiàng)目管理器中選中當(dāng)前項(xiàng)目Project(Ex12.Mxd)中對象： HyperLink,SetpHyperlink=pLinkIfUserForm1.Visible=FalseThenEndIfEndUserForm1，需要將其添加到當(dāng)前工程文檔中，參考以下操作添加一個(gè)窗體UserForm1到工程Project(Ex12.mxd)中，在窗體上放置一個(gè)Image控件，和Command控件，調(diào)整它們的大小和相應(yīng)屬性。雙擊按鈕CommandButton1(標(biāo)題為Exit),編輯Click的代碼，如下PrivateSubUnloadEnd保存所做編輯結(jié)果，退出VBA在ArcMap中圖層Donglu，設(shè)置屬性(Properties),在屬

溫馨提示

  • 1. 本站所有資源如無特殊說明，都需要本地電腦安裝OFFICE2007和PDF閱讀器。圖紙軟件為CAD,CAXA,PROE,UG,SolidWorks等.壓縮文件請下載最新的WinRAR軟件解壓。
  • 2. 本站的文檔不包含任何第三方提供的附件圖紙等，如果需要附件，請聯(lián)系上傳者。文件的所有權(quán)益歸上傳用戶所有。
  • 3. 本站RAR壓縮包中若帶圖紙，網(wǎng)頁內(nèi)容里面會有圖紙預(yù)覽，若沒有圖紙預(yù)覽就沒有圖紙。
  • 4. 未經(jīng)權(quán)益所有人同意不得將文件中的內(nèi)容挪作商業(yè)或盈利用途。
  • 5. 人人文庫網(wǎng)僅提供信息存儲空間，僅對用戶上傳內(nèi)容的表現(xiàn)方式做保護(hù)處理，對用戶上傳分享的文檔內(nèi)容本身不做任何修改或編輯，并不能對任何下載內(nèi)容負(fù)責(zé)。
  • 6. 下載文件中如有侵權(quán)或不適當(dāng)內(nèi)容，請與我們聯(lián)系，我們立即糾正。
  • 7. 本站不保證下載資源的準(zhǔn)確性、安全性和完整性, 同時(shí)也不承擔(dān)用戶因使用這些下載資源對自己和他人造成任何形式的傷害或損失。

評論

0/150

提交評論