空间查询实验报告.doc

本科学生实验报告 学号 姓名 学院 专业、班级 实验课程名称 教师及职称 开课学期 至 学年 学期 填报时间 年 月 日 云南师范大学教务处编印 实验序号 实验名称 空间查询 实验时间 2014年5月8日 实验室 GIS实验室 一．实验预习 1．实验目的 通过绘制图形实现对shapfile文件的查询 2．实验原理、实验流程或装置示意图（试验浓缩版步骤或者流程图） 借助VB工具和MO模块实现画点、线、面、多边形，shapfile文件的查询。 3．实验设备及材料 计算机，VB6.0软件， MO组件。 实验方法步骤及注意事项 一：利用VB工具制作界面（添加按钮，图像显示框，图像目录框架）； 首先在部件里面加载：ESRI MapObjects2.2；ESRI MapObjects LegendControl;；Microsoft Common Dialog Controls 6.0；Microsoft Windows Common Controls6.0。 等 窗体1界面； 窗体二界面： 二：在代码窗口编写代码 窗体1代码如下： Option Explicit Dim pShape As Object Dim pt As MapObjects2.Point Dim pLine As MapObjects2.Line Dim pRectangle As MapObjects2.Rectangle Dim pPolygon As MapObjects2.Polygon Dim recs As MapObjects2.Recordset Private Sub Command1_Click() frmAdSpatialSel.Show End Sub Private Sub Map1_AfterTrackingLayerDraw(ByVal hDC As stdole.OLE_HANDLE) Dim pSymSel As New MapObjects2.Symbol Dim pSym As New MapObjects2.Symbol If Not pt Is Nothing Then pSym.Color = moBlue Map1.DrawShape pt, pSym End If If Not pLine Is Nothing Then pSym.Color = moBlue Map1.DrawShape pLine, pSym End If If Not pRectangle Is Nothing Then pSym.SymbolType = moFillSymbol pSym.Style = moTransparentFill pSym.Color = moBlue pSym.OutlineColor = moBlue Map1.DrawShape pRectangle, pSym End If If Not pPolygon Is Nothing Then pSym.OutlineColor = moBlue pSym.SymbolType = moFillSymbol pSym.Style = moTransparentFill Map1.DrawShape pPolygon, pSym End If If Not pSel Is Nothing Then pSymSel.Color = moYellow Map1.DrawShape pSel, pSymSel End If End Sub Private Sub Map1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If frmAdSpatialSel.Toolbar1.Buttons(P