GIS程序开发—MO实验报告

《GIS程序开发—MO实验报告》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、实习报告MO程序实习学生姓名班级成绩指导教师（签字）2011年11月5日1v实习目的(1)通过实验，熟悉VB+MO的开发环境，了解M0的相关功能，掌握其相关操作技巧；(2)设计实现地图的简单放大、缩小、移动与还原；(3)学习使用VB菜单编辑器制作菜单，掌握ToolBar和Im屈eList的使用方法并制作GISI具栏。2、实习步骤(—)：添加Map控件步骤:(1)打开VB新建EXE工程，编辑窗体属性;(2)在工具栏中右键点击添加部件:ESRIMap0bjccts2.4、ESRIMapObjectsLeg

2、endControl>忝加选攻卡⑥…ym连谖的⑥ESRIMapObjectsScalebarControl和MicrosoftWindowsCommonControls—6.0控件;部件控件

3、设计器］可插入对彖］•TStTftfetadataWizMapObjects2.37ESRIMapObjectsLegendControl“ESRIMapObjectsScalebarControlESRI3DAnalystUIObjectLibraryESRIArcToolboxBatchModeControl

4、匚ESRIControlsESRIGeoprocessingUIObjectLibraryControlESRIPublisherControlsESRISceneViewerControl1.0.ESRISchematicUIControl隹QQ_j亠_«-區lr疔L・趟::S園nr、、浏览©)・・・

5、r只显示选定项@)ActiveSetupControlLibrary定位：C:WIND0WSsystem32asctrls.ocx确定取消I(3)建立Fonn后，在工具栏中选择“關”添加Map控

6、件。(二〉：地图操作的基本功能1)步骤:(1)在工具栏中选择CoiwnandButton添加按钮(2)进行编程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、”按钮，地图直接恢复原始大小PrivateSubcommand3_c1ick()SetMap1.Extent二Map1.FullExtentEndSub（5）帮助一一单击“帮助”按钮，提供系统帮助功能提示PrivateSubcomma.nd4_click（）DimbzAsStringbz二〃选择工具栏可实现放大、缩小、移动、还原功能；〃&vbCrLf&〃单击“地图放大”按钮，地图逐渐放大；〃&vbCrLf&〃单击“地图缩小”按钮，地图逐渐缩小，直至原始大小；〃&vbCrLf&〃单击“地图还原”按钮，地

9、图直接恢复原始大小。〃&vbCrLf&vbCrLf&〃鄢靓雯，2011/11/05〃MsgBoxbz,,〃中国地图（长江）"EndSub（三〉：添加GIS工具栏1）步骤：卫㈢（1）在工具栏中选择Toolbar和Imagelist添加工具栏；（2）设置Imagelistl：2-1）右击Imagelistl,选择属性，进入设置界面；2-2）【通用】中设置小图像尺寸，使用自定义的20*202-3）进入【图像】选择卡，添加一系列小图标（注：由于安装夹有部分文件缺失，无"samples"项，故图片为自行创作）如

10、图：(3)设置ToolBarl:3-1）在【属性】中设置ToolBar.Align-1（工具栏在窗体顶部）,缺省为1;3-2）右击ToolBarl:,选择属性，进入设置界面；3-3）【图像列表】中选择Imagelistl,建立联系;3-4)进入【按钮】选择卡，点击【插入按钮】，再在【图像】中输入图标索引号，样式选择2,在【工具提示文本】中输入相应图标所代表的操作功能，如图:通用1按钮1團片1鼠标指针腿)：0-ccDefaultzJOLE放置視式@):0c