資源描述：
《GIS程序開發(fā)—MO實(shí)驗(yàn)報(bào)告》由會(huì)員上傳分享，免費(fèi)在線閱讀，更多相關(guān)內(nèi)容在工程資料-天天文庫(kù)。
1、實(shí)習(xí)報(bào)告MO程序?qū)嵙?xí)學(xué)生姓名班級(jí)成績(jī)指導(dǎo)教師（簽字）2011年11月5日1v實(shí)習(xí)目的(1)通過(guò)實(shí)驗(yàn)，熟悉VB+MO的開發(fā)環(huán)境，了解M0的相關(guān)功能，掌握其相關(guān)操作技巧；(2)設(shè)計(jì)實(shí)現(xiàn)地圖的簡(jiǎn)單放大、縮小、移動(dòng)與還原；(3)學(xué)習(xí)使用VB菜單編輯器制作菜單，掌握ToolBar和Im屈eList的使用方法并制作GISI具欄。2、實(shí)習(xí)步驟(—)：添加Map控件步驟:(1)打開VB新建EXE工程，編輯窗體屬性;(2)在工具欄中右鍵點(diǎn)擊添加部件:ESRIMap0bjccts2.4、ESRIMapObjectsLeg
2、endControl>忝加選攻卡⑥…ym連諼的⑥ESRIMapObjectsScalebarControl和MicrosoftWindowsCommonControls—6.0控件;部件控件
3、設(shè)計(jì)器］可插入對(duì)彖］?TStTftfetadataWizMapObjects2.37ESRIMapObjectsLegendControl“ESRIMapObjectsScalebarControlESRI3DAnalystUIObjectLibraryESRIArcToolboxBatchModeControl
4、匚ESRIControlsESRIGeoprocessingUIObjectLibraryControlESRIPublisherControlsESRISceneViewerControl1.0.ESRISchematicUIControl隹QQ_j亠_?-區(qū)lr疔L?趟::S園nr、、瀏覽?)???
5、r只顯示選定項(xiàng)@)ActiveSetupControlLibrary定位：C:WIND0WSsystem32asctrls.ocx確定取消I(3)建立Fonn后，在工具欄中選擇“關(guān)”添加Map控
6、件。(二〉：地圖操作的基本功能1)步驟:(1)在工具欄中選擇CoiwnandButton添加按鈕(2)進(jìn)行編程2)編程:(1)全局聲明OptionExplicitDimrAsMa.pObjects2.Rectangle(2)地圖放大一一單擊“地圖放大”按鈕，地圖逐漸放大PrivateSubcommandl_click()DimpoiAsMap0bjects2.PointDimrAsMap0bjects2.RectangleDimrecAsMap0bjccts2?RecordsetSetr二Map1.E
7、xtentr.ScaleRectangle0.5Map1.Extent二rEndSub(3)地圖縮小一一不斷單擊“地圖縮小”按鈕，地圖逐漸縮小至原始大小PrivateSubcommand2_click()DimpoiAsMap0bjects2.PointDimrAsMap0bjects2?RectangleDimrecAsMap0bjects2.RecordsetSetr二Map1.Extentr.ScaleRectangle1.6Map1.Extent二rEndSub(4)地圖還原一一單擊“地圖還原
8、”按鈕，地圖直接恢復(fù)原始大小PrivateSubcommand3_c1ick()SetMap1.Extent二Map1.FullExtentEndSub（5）幫助一一單擊“幫助”按鈕，提供系統(tǒng)幫助功能提示PrivateSubcomma.nd4_click（）DimbzAsStringbz二〃選擇工具欄可實(shí)現(xiàn)放大、縮小、移動(dòng)、還原功能；〃&vbCrLf&〃單擊“地圖放大”按鈕，地圖逐漸放大；〃&vbCrLf&〃單擊“地圖縮小”按鈕，地圖逐漸縮小，直至原始大?。弧?vbCrLf&〃單擊“地圖還原”按鈕，地
9、圖直接恢復(fù)原始大小?！?vbCrLf&vbCrLf&〃鄢靚雯，2011/11/05〃MsgBoxbz,,〃中國(guó)地圖（長(zhǎng)江）"EndSub（三〉：添加GIS工具欄1）步驟：衛(wèi)㈢（1）在工具欄中選擇Toolbar和Imagelist添加工具欄；（2）設(shè)置Imagelistl：2-1）右擊Imagelistl,選擇屬性，進(jìn)入設(shè)置界面；2-2）【通用】中設(shè)置小圖像尺寸，使用自定義的20*202-3）進(jìn)入【圖像】選擇卡，添加一系列小圖標(biāo)（注：由于安裝夾有部分文件缺失，無(wú)"samples"項(xiàng)，故圖片為自行創(chuàng)作）如
10、圖：(3)設(shè)置ToolBarl:3-1）在【屬性】中設(shè)置ToolBar.Align-1（工具欄在窗體頂部）,缺省為1;3-2）右擊ToolBarl:,選擇屬性，進(jìn)入設(shè)置界面；3-3）【圖像列表】中選擇Imagelistl,建立聯(lián)系;3-4)進(jìn)入【按鈕】選擇卡，點(diǎn)擊【插入按鈕】，再在【圖像】中輸入圖標(biāo)索引號(hào)，樣式選擇2,在【工具提示文本】中輸入相應(yīng)圖標(biāo)所代表的操作功能，如圖:通用1按鈕1團(tuán)片1鼠標(biāo)指針腿)：0-ccDefaultzJOLE放置視式@):0c
