欢迎来到天天文库
浏览记录
ID:11845438
大小:1.46 MB
页数:12页
时间:2018-07-14
《空间查询实验报告》由会员上传分享,免费在线阅读,更多相关内容在教育资源-天天文库。
1、本科学生实验报告学号姓名学院专业、班级实验课程名称教师及职称开课学期至学年学期填报时间年月日云南师范大学教务处编印11实验序号实验名称空间查询实验时间2014年5月8日实验室GIS实验室一.实验预习1.实验目的通过绘制图形实现对shapfile文件的查询2.实验原理、实验流程或装置示意图(试验浓缩版步骤或者流程图)借助VB工具和MO模块实现画点、线、面、多边形,shapfile文件的查询。3.实验设备及材料计算机,VB6.0软件,MO组件。(1)实验方法步骤及注意事项一:利用VB工具制作界面(添加
2、按钮,图像显示框,图像目录框架);首先在部件里面加载:ESRIMapObjects2.2;ESRIMapObjectsLegendControl;;MicrosoftCommonDialogControls6.0;MicrosoftWindowsCommonControls6.0。等窗体1界面;窗体二界面:11二:在代码窗口编写代码窗体1代码如下:OptionExplicitDimpShapeAsObjectDimptAsMapObjects2.PointDimpLineAsMapObjects2
3、.LineDimpRectangleAsMapObjects2.RectangleDimpPolygonAsMapObjects2.PolygonDimrecsAsMapObjects2.RecordsetPrivateSubCommand1_Click()frmAdSpatialSel.ShowEndSubPrivateSubMap1_AfterTrackingLayerDraw(ByValhDCAsstdole.OLE_HANDLE)DimpSymSelAsNewMapObjects2.Sym
4、bolDimpSymAsNewMapObjects2.SymbolIfNotptIsNothingThenpSym.Color=moBlueMap1.DrawShapept,pSymEndIfIfNotpLineIsNothingThenpSym.Color=moBlueMap1.DrawShapepLine,pSymEndIfIfNotpRectangleIsNothingThen11pSym.SymbolType=moFillSymbolpSym.Style=moTransparentFill
5、pSym.Color=moBluepSym.OutlineColor=moBlueMap1.DrawShapepRectangle,pSymEndIfIfNotpPolygonIsNothingThenpSym.OutlineColor=moBluepSym.SymbolType=moFillSymbolpSym.Style=moTransparentFillMap1.DrawShapepPolygon,pSymEndIfIfNotpSelIsNothingThenpSymSel.Color=mo
6、YellowMap1.DrawShapepSel,pSymSelEndIfEndSubPrivateSubMap1_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)IffrmAdSpatialSel.Toolbar1.Buttons("Points").Value=1ThenSetpt=Map1.ToMapPoint(X,Y)SetpShape=ptExecuteSearchDisplaySelFeatureElseIffr
7、mAdSpatialSel.Toolbar1.Buttons("Lines").Value=1ThenSetpLine=Map1.TrackLineSetpShape=pLineExecuteSearchDisplaySelFeatureElseIffrmAdSpatialSel.Toolbar1.Buttons("Rectangles").Value=1ThenSetpRectangle=Map1.TrackRectangleSetpShape=pRectangleExecuteSearchDi
8、splaySelFeatureElseIffrmAdSpatialSel.Toolbar1.Buttons("Polygons").Value=1ThenSetpPolygon=Map1.TrackPolygonSetpShape=pPolygon11ExecuteSearchDisplaySelFeatureElseIffrmAdSpatialSel.Toolbar1.Buttons("sel").Value=1ThenDimtheTolAsSingletheTol=0.01Di
此文档下载收益归作者所有