arcmap實(shí)例-資料下載頁(yè)
2025-03-10 23:37本頁(yè)面
【正文】 E的開(kāi)發(fā)環(huán)境 * ? 硬件： Intel Pentuim 計(jì)算機(jī) 512M 以上內(nèi)存 ? 軟件： Windows 2023/XP 。 Visual Basic 6和 AE控件 * VB6和 AE (1)安裝 (2)安裝 AE,配置正確的 license文件 * ?STEP 2： 安裝完成后，在光盤(pán)目錄 VB6SP6B中找到，將 VB6 升級(jí)到最新版本。SP6 是微軟公司對(duì)其產(chǎn)品VB6 的第 6次更新 ,修正了以前的一些問(wèn)題 * VB中使用 AE ? 認(rèn)識(shí) VB 6的集成開(kāi)發(fā)環(huán)境 ? 在 VB 6中加載 ESRI MapControl控件 ? 添加控件及數(shù)據(jù) * 認(rèn)識(shí) VB6的集成開(kāi)發(fā)環(huán)境 VB集成開(kāi)發(fā)環(huán)境 * 設(shè)置 VB選項(xiàng)，明確變量類(lèi)型 在準(zhǔn)備開(kāi)始一個(gè) 工程時(shí)，應(yīng)該在 確保 VB的工程中 使用到的變量的 類(lèi)型都是 明確聲 明 的，這樣可以 減少發(fā)生錯(cuò)誤的 可能性，這是一 個(gè)很好的編程習(xí) 慣。 Option Explicit * VB6中常用的控件庫(kù) * 在 VB6中加載 AE控件 STEP1:啟動(dòng)Visual Basic 6 ,在開(kāi)始出現(xiàn)的向?qū)е羞x擇新建工程 (標(biāo)準(zhǔn) EXE) . 確定 STEP2:在工具欄上點(diǎn)右鍵 (工具欄位于 VB窗口的左邊 ),在出現(xiàn)的右鍵菜單中點(diǎn)擊” 部件 ” 命令 . * 拖放：在窗體上放置 MapControl控件 調(diào)整控件的大小及位置 選中 * 建立包含 MapControl控件的缺省工程 保存工程模板：將窗文件 (.frm)及工程文件 (.vbp)保存到 C:\Program Files\Microsoft Visual Studio\VB98\Template\Projects Map 控件 * 在 VB環(huán)境中加載 Mapcontrol的步驟 第一步： 首先透過(guò) “ 部件 ” 在 form工具箱中添 加 MapControl控件，然后通過(guò)拖動(dòng)雙擊 map控件 的方法，將控件添加到 form窗體之上，并調(diào) 整大小。 * 選擇將要顯示在地圖上的數(shù)據(jù) 你可以通過(guò) 地圖控件的屬性頁(yè)上的屬性設(shè)置功能，指定將被顯示在地圖上的數(shù)據(jù) . 第二步 ：在地圖控件上方點(diǎn)擊右鍵，出現(xiàn)右鍵菜單 .在 出現(xiàn)的右鍵菜單中選擇 “ Properties…” 命令，以顯示 控件的屬性頁(yè)。 * 第三步： 點(diǎn)擊圖層列表框中的圖層 ，然后點(diǎn) 擊 “ 屬性 ” ?？蓪?duì)圖層的屬性進(jìn)行設(shè)置 添加地圖 文檔文件 * 第四步： 運(yùn)行工程在工具欄上 點(diǎn)擊運(yùn)行按鈕測(cè)試你的程序，如果要停止程序運(yùn)行在 VB工具欄上 點(diǎn)擊停止按鈕 最后一步，保存工程 * 添加代碼實(shí)現(xiàn)放縮功能 例子： 在 form窗體上加載地圖控件， 4個(gè)命令按鈕分別實(shí)現(xiàn)放大、縮小、全圖顯示、退出的功能，當(dāng)鼠標(biāo)在 map地圖上點(diǎn)擊左鍵時(shí)實(shí)現(xiàn)拉框放大，點(diǎn)擊右鍵時(shí)實(shí)現(xiàn)漫游功能。 //實(shí)現(xiàn)放大的代碼 Dim pEnv As Set pEnv = New Set pEnv = , , True = pEnv //實(shí)現(xiàn)縮小的代碼 ?? , , True ?? * 演示 //MouseDown函數(shù)中的代碼 If Button = vbLeftButton Then =_ ElseIf Button = vbRightButton Then End If //實(shí)現(xiàn)全圖顯示的代碼 Set = //實(shí)現(xiàn)退出的代碼 End * 本講回顧，作業(yè) GIS軟件開(kāi)發(fā)的三種模式 AE的類(lèi)庫(kù)及其關(guān)系 VB+AE開(kāi)發(fā)環(huán)境的熟悉 * 演講完畢，謝謝觀看！
規(guī)章制度相關(guān)推薦
鄂ICP備17016276號(hào)-1