MO程序设计入门教案解析.pptVIP

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * 在键盘中按下 F1 键 在VB编辑窗口， 光标在某一个 对象位置处按下 F1 键 对象浏览器 如何学习?——从例子开始 MO自带的完整实例 最好的学习MapObjects的方法就是学习例子。以下是使用例子的步骤： 在帮助的主题下点例子。 打开一新VB工程并加上一地图控件。 当窗体是活动状态时按F7打开代码编辑器。 读例子的结构，并向表单中加入特定控件。 从例子中粘贴代码到代码编辑器中。 按F5或选择RUN。你的例子将被运行。 帮助系统中的例子代码 添加地图控件及数据 Map控件用来显示地图，将地图控件放置到窗体上 双击工具箱上的地图控件按钮来将新地图控件增加到窗体中 调整地图控件的尺寸使其充满窗体 选择将要显示在地图上的数据 你可以通过地图控件的属性页上的属性设置功能，指定将被显示在地图上的数据 你可以通过地图控件的属性页上的属性设置功能，指定 将被显示在地图上的数据 1. 在地图控件上方点击右键，出现右键菜单. 2. 在出现的右键菜单中选择“Properties…”命令，以显示地图控件的属性页。 浏览添加数据 调整图层顺序 按下Ctrl 选择多个数据 设置各图层的属性 1.点击图层列表框中的“四川” 图层 ，然后点击“属性”。 2.点击“颜色”按钮以选择图层“四川”的颜色. 3.点击“确认”按钮关闭对话框. 保存工程 执行菜单命令“文件”-“保存”，保存工程. 选择所要保存的文件夹, 然后在文件名称输入框内输入“ FirstMap.frm.” 点击保存 在第二个保存对话中，在文件名输入框中输入“FirstMap.vbp” 点击保存 运行工程 在工具栏上点击运行按钮 测试你的程序 如果要停止程序运行在VB工具栏上点击停止按钮 地图操作的基本功能 地图放大 在使用其它通用开发工具时，这是要用很多语句和技巧才能实现的复杂功能，但利用MO，只要一句就够了。 以下代码实现的功能时：当用鼠标左键在地图上拉矩形框 时，地图会被放大 Private Sub Map1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) Set Map1.Extent = Map1.TrackRectangle End Sub 地图移动 以下代码实现按鼠标右键移动、左键放大的功能 Private Sub Map1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = vbLeftButton Then Set Map1.Extent = Map1.TrackRectangle ElseIf Button = vbRightButton Then Map1.Pan End If End Sub 地图缩小 地图的缩小程序比放大要复杂一点，先要设置缩小倍数。添加一个Command1控件，程序为： Private Sub Command1_Click() Dim r As MapObjects2.Rectangle Set r = Map1.Extent r.ScaleRectangle 1.5 显示框放大1.5倍 Map1.Extent = r 重新显示 End Sub 运行时，点击Command1按钮，地图就缩小，直至到达原始尺寸 恢复原始大小 实现恢复原始大小的功能是所有地理信息系统中必备的功能，这也是用一条语句就可以在MO中实现： Private Sub Command2_Click() Set Map1.Extent = Map1.FullExtent End Sub 课后练习 请把上面讲的程序合成，得到一个简单的地图 浏览系统（包括放大、缩小、移动、还原等功 能） 如何在.NET下开发 参考帮助文件 通过例子学习 参考入门电子文档 针对C#的入门文档： 位于C:\Program Files\ESRI\MapObjects2\Samples\CS\GettingStartedwithMOinC#.pdf 针对VB.NET的入门文档： 位于C:\Program Files\ESRI\MapObjects2\Samples\VBNet\GettingStartedwithMOinVBNET.pdf * * * * * * * * * * * * * * MO概述及程序设计入门 ESRI产品体系