空间查询实验报告材料

《空间查询实验报告材料》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、本科学生实验报告学号姓名学院专业、班级实验课程名称教师及职称开课学期至学年学期填报时间年月日云南师范大学教务处编印11实验序号实验名称空间查询实验时间2014年5月8日实验室GIS实验室一．实验预习1．实验目的通过绘制图形实现对shapfile文件的查询2．实验原理、实验流程或装置示意图（试验浓缩版步骤或者流程图）借助VB工具和MO模块实现画点、线、面、多边形，shapfile文件的查询。3．实验设备及材料计算机，VB6.0软件，MO组件。（1）实验方法步骤及注意事项一：利用VB工具制作界面（添加按钮，图像显示框，图像目录框架）；首先在部件里面加载：ESRIMa

2、pObjects2.2；ESRIMapObjectsLegendControl;；MicrosoftCommonDialogControls6.0；MicrosoftWindowsCommonControls6.0。等窗体1界面；窗体二界面：11二：在代码窗口编写代码窗体1代码如下：OptionExplicitDimpShapeAsObjectDimptAsMapObjects2.PointDimpLineAsMapObjects2.LineDimpRectangleAsMapObjects2.RectangleDimpPolygonAsMapObjects2.

3、PolygonDimrecsAsMapObjects2.RecordsetPrivateSubCommand1_Click()frmAdSpatialSel.ShowEndSubPrivateSubMap1_AfterTrackingLayerDraw(ByValhDCAsstdole.OLE_HANDLE)DimpSymSelAsNewMapObjects2.SymbolDimpSymAsNewMapObjects2.SymbolIfNotptIsNothingThenpSym.Color=moBlueMap1.DrawShapept,pSymEndIfIfN

4、otpLineIsNothingThenpSym.Color=moBlueMap1.DrawShapepLine,pSymEndIfIfNotpRectangleIsNothingThen11pSym.SymbolType=moFillSymbolpSym.Style=moTransparentFillpSym.Color=moBluepSym.OutlineColor=moBlueMap1.DrawShapepRectangle,pSymEndIfIfNotpPolygonIsNothingThenpSym.OutlineColor=moBluepSym.Sy

5、mbolType=moFillSymbolpSym.Style=moTransparentFillMap1.DrawShapepPolygon,pSymEndIfIfNotpSelIsNothingThenpSymSel.Color=moYellowMap1.DrawShapepSel,pSymSelEndIfEndSubPrivateSubMap1_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)IffrmAdSpatialSel.Toolbar1.Buttons("Points").V

6、alue=1ThenSetpt=Map1.ToMapPoint(X,Y)SetpShape=ptExecuteSearchDisplaySelFeatureElseIffrmAdSpatialSel.Toolbar1.Buttons("Lines").Value=1ThenSetpLine=Map1.TrackLineSetpShape=pLineExecuteSearchDisplaySelFeatureElseIffrmAdSpatialSel.Toolbar1.Buttons("Rectangles").Value=1ThenSetpRectangle=M

7、ap1.TrackRectangleSetpShape=pRectangleExecuteSearchDisplaySelFeatureElseIffrmAdSpatialSel.Toolbar1.Buttons("Polygons").Value=1ThenSetpPolygon=Map1.TrackPolygonSetpShape=pPolygon11ExecuteSearchDisplaySelFeatureElseIffrmAdSpatialSel.Toolbar1.Buttons("sel").Value=1ThenDimtheTolAsSinglet

8、heTol=0.01Di