测绘工程11 王应先 114130628.doc

PAGE 14 本科学生综合性、设计性 实验报告 姓名 王应先 学号 114130628 ＿ 专业＿ 测绘工程 ＿班级＿测绘工程11 ＿ 实验课程名称＿ GIS设计与开发 ＿＿ 指导教师及职称 彭双云＿＿ ＿＿＿＿ 开课学期 2013 至 2014 学年 第 二 学期 上课时间 2014 年 4 月 17 日 云南师范大学旅游与地理科学学院地理信息系统系 一、实验设计 实验名称： 软件的界面设置与图形绘制 实验时间： 2013-10-17 小组合作：是（）否（√） 小组成员：无 实验内容（含实验原理介绍）： 软件的界面设计； （2）图形绘制的设计与工程编辑。 （3）基于vb的mo组件开发 实验目的： （1）学习VB软件，并开始制作地图使用软件； （2） 对于地图处理软件（mo）的界面合理编辑； （3）学习数据加载的设计与工程编辑，达到实用效果。 设计实验相关情况介绍（包含使用软件以及实验设备等）： (1) 实验设计思想 本实验是使用MO方法，应用vb对于地图处理软件做开发设计，提高学生的软件设计思维与开发能力。 (2) 使用软件与实验设备 软件：Microsoft Visual Basic 6.0 中文版 实验设备： window XP 系统的计算机及相关软件。 实验过程、方法步骤： 操作步骤： (1)打开Microsoft Visual Basic 6.0 中文版软件，运行程序：工程1。 (2)打开已经拥有初步软件界面，添加相关部件，包括 ESRI MapObject 2.2,ESRI Mapjects legend Control, Microsoft Common Dialog Control, Microsoft Windows Common Controls等。 （3）添加一个模块，目的是实现两个窗体的连接。再添加两个窗体form1,form2并且设置成预定界面如下 （4）开始编辑代码实现功能; Form1代码： Option Explicit Dim pt As New MapObjects2.Point Dim pts As New MapObjects2.Points Dim pl As New MapObjects2.Line Dim pR As New MapObjects2.Rectangle Dim pP As New MapObjects2.Polygon 定义变量Dim cl As New MapObjects2.Ellipse 定义变量 Dim geos As New MapObjects2.GeoEvent Dim tr As New MapObjects2.GeoEvent Dim lr As New MapObjects2.GeoEvent Dim er As New MapObjects2.GeoEvent Dim cr As New MapObjects2.GeoEvent Dim gr As New MapObjects2.GeoEvent Private Sub Command1_Click() If Command1.Value = True Then Form2.Show End If End Sub Private Sub Map1_BeforeTrackingLayerDraw(ByVal hDC As stdole.OLE_HANDLE) Dim psym As New MapObjects2.Symbol psym.Color = moRed Map1.DrawShape pts, psym Map1.DrawShape pl, psym Map1.DrawShape pR, psym Map1.DrawShape pP, psym Map1.DrawShape cl, psym End Sub Private Sub Map1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If mst = 1 Then Set pt = Map1.ToMapPoint(X, Y) pts.Add pt Set tr = Map1.TrackingLayer.AddEvent(pt, 0) 实现画点 With Map1.TrackingLayer.Symbol(0) 实现画点 .SymbolType = moPointSymbol .Style = Form1.Combo1.ListIndex