实现桌面地理信息系统ArcView和VB5应用程序之间的通讯的论文.docVIP

　　实现桌面地理信息系统ArcView和VB5应用程序之间的通讯的论文 摘要 本文简要介绍桌面地理信息系统的概念，通过分析 桌面地理信息系统arcvielinson 首先提出地理信息系统这一术语以来 ，在大型机、小型机、工作站和微机平台上，相继出现了gis的应用平台。如美国esri的产 品，已遍布上述四种硬件平台。由于80年代pc技术的迅速发展，以及近几年来pc硬件价格的 急剧下跌和其性能日益提高，使得桌面地理信息系统（desktop gis）得到了迅速的发展。 其中在国内用得较多的有美国esri公司的arcvieent和script组成，而document又由document ent gui 组成，所以avenue 应用程序的模型如图1所示。图1中document是人机交流的唯一途径，根据其功能又可分为 v ieent gui 是对应于某一document 的图形用户界面，由 menu bar，button bar 和tool bar组成，分别用来对应不同的功能。 图1avenue应用程序模型 我们在具体开发桌面地理信息系统arcvieunication,ipc）方法是dde、ole和对动态联接库的外部 函数调用、文件访问以及1。 (2) 在form1上根据下列属性建立控件，然后放大窗体以便整齐地排列控件。 objectproperty setting text boxnametxtdde mand buttoncaptionsend request namecmdrequest bo boxnamecbodoctype (3) 在form1的说明部分增加下面代码: const none=0, manual=2 sub startup() dim t const dde_no_app=282 this ode=none清除dde链接 txtdde.linktopic=arcvie建立对话 txtdde.linkmode=manual建立人工链接 exit sub fireup: if err=ddenoapp then chdir c:＼arcviee else msgbox unknoload 事件中增加下列代码: sub formload() cbodoctype.text= cbodoctype.additem vie layout cbodoctype.additem sed startup调startup 程序 end sub (5) 在formunload 事件中增加下列代码: sub formunload (cancel as integer) txtdde.linkmode = none关闭dde 对话 end sub (6) 在cbodoctypeclick事件中增加下列代码: sub cbodoctypeclick() cmd=av.getproject.adddoc(cbodoctype.make) av.getproject.getactive.get(0).ge td end sub (7) 在cmdrequestclick事件中增加下列代码: sub cmdrequestclick () linkitem是能够返回值的avenue script txtdde.linkitem = av.getactivedoc.getname txtdde.linkrequest end sub (8) 存储vb5工程并编译成exe 文件。 现在即可运行visual basic应用程序。如果arcvieike mckelvy ronald martinsen 著，《visual basic 5开发使用手 册》，机械工业出版社，1998年4月。