GIS二次开发程序设计汇.docVIP

  1. 1、本文档共38页,可阅读全部内容。
  2. 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
  3. 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载
  4. 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
  5. 5、该文档为VIP文档,如果想要下载,成为VIP会员后,下载免费。
  6. 6、成为VIP后,下载本文档将扣除1次下载权益。下载后,不支持退款、换文档。如有疑问请联系我们
  7. 7、成为VIP后,您将拥有八大权益,权益包括:VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
  8. 8、VIP文档为合作方或网友上传,每下载1次, 网站将根据用户上传文档的质量评分、类型等,对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
GIS二次开发程序设计汇

成绩 批阅 日期 重庆交通大学 测量与空间信息处理实验报告 实验课程:GIS二次开发程序设计 实验名称: GIS二次开发 班级: 学号: 姓名: 实验日期: 2012 年 6 月 25 日 实验一 界面设计 一、实验目的和要求 1、学会对MO进行安装。 2、熟悉Visual Basic和Map Object程序的基本操作。 3、掌握toolbar的操作步骤。 4、设置GIS二次开发的界面,要求界面具有菜单、工具条及设计程序时用到的各种控件等。 二、实验内容 1、利用Visual Basic相应控件和操作以及Map Object完成界面设计,运用所安装的MO的控件进行所需界面设计。 2、在设计的界面上一次添加菜单、工具条、图例控件、map控件、状态栏等,并熟练掌握其操作步骤。 实验步骤 1、在有MO和VB的环境中进行所设计的界面设计。 1)菜单的设计。要求具有一些常用的功能。如下图所示: 2、对toolbar进行设计。在菜单栏下面进行插入Button按钮,并在按钮上插入相应图像。步骤如下图: 3、插入map、legend、status等控件,并调整其大小。得到最后成果图如下图所示: 四、实验总结 4.1、实验中遇到的困难 在进行界面设计时,会遇到一些意想不到的困难,比如在插入toolbar中的Button时,如果没有加入imagelist控件时,就不能在Button上插入图像。还有在进行菜单操作时,有时会因为空格运行不当,而不能得到理想的下拉菜单。 4.2、处理方法和技巧 在进行设计时,一定要记住操作的先后顺序,不然不能不到效果。插入map和legend等控件时,适当调节其大小,使界面更美观。 4.3、经验体会和收获 刚开始做实验时感觉好难,不知怎么下手,可在完成这几次实验后我熟悉了MO的最基本功能,发现用VB对GIS进行二次开发没有想象中的那么难,但关于控件的问题很多,而且大家都不是很懂,只能多多交流,从网上搜素相关资料。现如今地理信息系统的应用越来越广发,对它进行二次开发可以更大的发挥此软件的功能。 经过这次实习,我学会了MO得使用和安装,也学会了简单的界面设计。使用菜单编辑器,在窗体中插入toolbar,插入map,legend,imagelist等多种控件。 初次操作时,很多东西不知道,很多东西不懂,所以做起来比较难,也考验一个人的耐心,但是要不灰心,不气馁,会发现一切变得容易很多。所以不管做什么都要有耐心,沉得住气,才能成功。 实验二 加载图层(四种方法) 一、实验目的和要求 1、熟悉Map Object中commondialog控件的调用方法。 2、掌握在Visual Basic中利用Map Object二次开发软件实现command控件、菜单、类模块和toolbar加载Shape图层的操作。 二、实验内容 1、用菜单的方法加载Shape图层。 2、用toolbar的方法加载Shape图层。 3、用命令按钮command的方法加载Shape图层。 4、用类模块的方式加载Shape图层。 三、实验步骤 在设计好的界面环境中的菜单、toolbar、command、类模块中分别写入打开图层的代码。进行打开图层的操作。 1、运用菜单代开代码: Private Sub dakaituceng_Click() 第一步,定义一个新的MO对象组的DataConnection对象 Dim dConn As New MapObjects2.DataConnection 第二步,定义一个新的MO对象组的MapLayer对象 Dim shpLayer As New MapObjects2.MapLayer Dim filename As String 第三步,设置DataConnection对象的方法Connection连接到指定的存放数据的地方 dConn.Database = H:\MODevelopDemo\MOandVBDemo\L4-Exam-AddShape\Data 第三步,利用DataConnection对象的方法Connect进行数据连接 dConn.Connect 第四步,将MapLayer对象的GeoDataset属性设置为DataConnection对象的FindGeoDataset方法(用Shape 文件名作参数)的返回值。 Set shpLayer.GeoDataset = dConn.FindGeoDataset(STA

文档评论(0)

hhuiws1482 + 关注
实名认证
文档贡献者

该用户很懒,什么也没介绍

版权声明书
用户编号:5024214302000003

1亿VIP精品文档

相关文档