(GIS应用系统中图形的绘制.docVIP

重 庆 交 通 大 学 学 生 实 验 报 告 实验课程名称 地理信息系统软件二次开发 开课实验室 空间数据处理实验室 学 院 河海学院 年级 2008 专业班 1 学 生 姓 名 学 号 开 课 时 间 2011 至 2012 学年第 1 学期 总 成 绩 教师签名 目录 实验三 GIS应用系统中图形的绘制 3 一、实验内容 3 二、实验要求 3 三、实验步骤 3 1、系统基本界面的完善； 3 2、绘点 12 3、绘线 14 4、绘多边形 17 5、绘矩形 20 6、绘椭圆 22 7、添加文本 25 8、添加事件 27 9、添加符号 28 四、实验成果 29 五、实验心得 29 实验三 GIS应用系统中图形的绘制 一、实验内容 1、学习运用代码在所编系统中绘制基本图形； 2、学习运用代码在所编系统中添加文本、事件及符号； 3、完善系统。 二、实验要求 1、实现系统界面的完善，实现在主窗体中调用多个窗体； 实现在系统中绘制点； 3、实现在系统中绘制线； 4、实现在系统中绘制多边形； 5、实现在系统中绘制矩形； 6、实现在系统中绘椭圆； 7、实现在系统中添加文本； 8、实现在系统中编辑事件； 9、实现在系统中绘制符号。 三、实验步骤 1、系统基本界面的完善； 修改工程名，修改窗体名，设置窗体图标，编辑菜单，编辑快捷键图标，添加内容窗口，设置鹰眼窗口，添加基本地图窗口，在代码窗口中进行基本界面的设置， 运行结果后，系统基本界面如图3-1 图3-1 由图，可发现系统中菜单选项变多，且添加了状态栏。 点击“图形绘制”菜单，可以看到新增加的图形绘制选项，如图3-2， 图3-2 添加数据后，如图3-3， 图3-3 可以发现内容窗口中显现了所添加数据的名称及其类型，在鹰眼窗口中可以观察到数据的局部情况。 其放大、缩小漫游功能较之前的实验也有所变化，如图3-4（图像的放大），图3-5（放大后的图像），图3-6（图像漫游）， 图3-4（图形的放大） 图3-5（放大后的图像） 图3-6（图像漫游） 经过操作可以发现，放大、缩小、图像时，可以画矩形圈定放大/缩小的范围，平移时指针变成了“手掌”，可以按照“手掌”所到处平移图像。 修改后系统的代码为： Dim boo As Boolean 定义一个布尔型变量，主要是判断是否进行缩放或者平移 Private Sub Form_Load() FrmMain.WindowState = 2 Map1.Width = Screen.Width - 3400 Map1.Height = Screen.Height - 2450 调整MAP的界面 layercontrol.Width = Screen.Width - 17300 Map2.Width = Screen.Width - 17300 layercontrol.Height = Screen.Height - 6000 Map2.Height = Screen.Height - 8450 调整内容窗口和鹰眼窗口的界面 FrmMain.WindowState = 2 StatusBar1.Panels(4).Text = 重庆交通大学地理信息系统 End Sub Private Sub LayerControl_AfterSetLayerVisible(Index As Integer, isVisible As Boolean) Map1.Refresh End Sub Private Sub Map1_Click() Dim r As MapObjects2.Rectangle 表示声明一个MO的矩形变量r Set r = Map1.Extent 设置r的矩形范围是当前显示范围的矩形框 r.ScaleRectangle 1.5 设置显示框的放大倍数为2 Map1.Extent = r 重新按照缩小值进行显示 End Sub Private Sub Map1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If boo Then 放大状态 Dim tmpExtent As MapObjects2.Rectangle