摘 文简介绍桌面理信息系统概念通分析 桌面理信息系统ArcViewVB5应程序间通讯关系结合实例述ArcView VB 5相互通讯开发桌面理信息系统中应价值ス丶词 桌面理信息系统ArcViewVB5应程序通讯お1 桌面理信息系统简介サ乩硇畔⑾低呈恢痔囟ǖ目占湫畔⑾低常采现代化方法采集存储分 析理显示模拟理空间分布关数空间信息系统现代球科学信息 学环境科学测绘遥感学计算机科学理科学应数学种应学科机结合 集成产物60年代加测量学家RTTomlinson 首先提出理信息系统术语 型机型机工作站微机台相继出现GIS应台美国ESRI产 品已遍布述四种硬件台80年代PC技术迅速发展年PC硬件价格 急剧跌性日益提高桌面理信息系统(DeskTop GIS)迅速发展 中国较美国ESRI公司ArcView2 ARCVIEW介绍ハ衷诔S玫ArcView21英文版直观性较桌面理信息系统集空间图形关系 数库统计图形空间分析网络通讯面象程序设计体图形户界面直观 开发工具Avenue制作特定ArcView 应程序Avenue种WI NDOWS环境面象程序设计语言ArcView 系统功编程实现ト魏桓鲇Avenue语言开发Windows应程序应ProjectProjectDoc umentScript组成DocumentDocument Window Document GUI 组成Avenue 应程序模型图1示图1中Document机交流唯途径根功分
V iew Table Chart Layout Script Editor五种Document GUI 应某Document 图形户界面 Menu barButton bar Tool bar组成分应功图1Avenue应程序模型ノ颐窃诰咛蹇发桌面理信息系统ArcView 时发现现ArcVie w 系统功完全满足求必须ArcView 系统重新改造增加新功ArcV iew 开发语言Avenue开发效率低实际开发中充分利ArcView 身 强图理功利高级语言(VB5)快速开发应方面长处两者相互 结合取良效果3 ArcViewVB5应程序通讯方法プ钔ㄓ玫IPC(interprocess communicationIPC)方法DDEOLE动态联接库外部 函数调文件访问WINDOWS剪贴板述方法WINDOWS应程序间彼 通信中DDE方法原先作种基消息协议WINDOWS(3x前)中实现 WINDOWS应程序间交换信息着WINDOWS30发布DDE实际应程序开发 中量应通DDE服务够利应程序编程接口(API)调DDE理库 完成ArcView通DDEDLL方法实现外部应程序通信文通实例详细 介绍DDE功实际应中ArcView作Clint作Server实现应程 序间通讯包括发送接受数执行请求返回分析结果通DDE方法 克服ArcView身开发语言落性达充分发挥ArcView身强图理功创
造出符合时代特色桌面理信息系统实践证明采ArcViewVB5应程序通讯进行系 统开发种效桌面理信息系统开发方法4 实例分析ピ诒纠中VB5 应程序ArcView 发出Avenue 请求建立新文档views layouts 应程序询问ArcView 前激活文档时VB5 应程序目标ArcView 源ト绻已安装VB5 ArcView面步骤建立应程序(1) 启动VB5建立缺省窗体Form1(2) Form1根列属性建立控件然放窗体便整齐排列控件ObjectProperty SettingText BoxNametxtDDECommand ButtonCaptionSend RequestNamecmdRequestCombo BoxNamecboDocType(3) Form1说明部分增加面代码Const NONE0 MANUAL2Sub Startup()Dim tConst DDE_NO_APP282'this will start ArcView if it isn't runningOn Error GoTo FireUptxtDDELinkModeNONE'清DDE链接txtDDELinkTopicArcView|System'建立话txtDDELinkModeMANUAL'建立工链接Exit SubFireUpIf ErrDDENOAPP ThenChDir C\ARCVIEW2\BINtShell(arcview1)tDoEvents()ResumeElseMsgBox Unknown errorStopEnd IfEnd Sub(4) FormLoad 事件中增加列代码Sub FormLoad()cboDocTypetextcboDocTypeAddItem ViewcboDocTypeAddItem LayoutcboDocTypeAddItem SEdStartup'调startup 程序End Sub(5) FormUnload 事件中增加列代码Sub FormUnload (Cancel As Integer)txtDDELinkMode NONE'关闭DDE 话End Sub(6) cboDocTypeClick事件中增加列代码Sub cboDocTypeClick()cmdavGetProjectAddDoc(&cboDocType&make) avGetProjectGetActiveGet(0)Ge tWinOpentxtDDELinkExecute cmdEnd Sub(7) cmdRequestClick事件中增加列代码Sub cmdRequestClick ()'LinkItem够返回值Avenue scripttxtDDELinkItem avGetActiveDocGetNametxtDDELinkRequestEnd Sub(8) 存储VB5工程编译成EXE 文件ハ衷诩纯稍诵Visual Basic应程序果ArcView 没运行应程序 会激活dropdown combo box 选择文档名便ArcView中建立文档访问 前激活文档敲击Send Request button
文框里会显示文档名例DDE 通讯通文框实现VB5中 text box picture boxlabel话中 作目标时窗体作源ヒ陨鲜道运行环境:Visual Basic 40ArcView21Windows31げ慰嘉南1边馥苓编理信息系统原理方法北京:测绘出版社1996 年8月2郭达志盛业华等编著理信息系统基础应煤炭工业出版社1997 年5月3(美国) Mike McKelvy & Ronald Martinsen 著Visual Basic 5开发手 册机械工业出版社1998年4月
文档香网(httpswwwxiangdangnet)户传
《香当网》用户分享的内容,不代表《香当网》观点或立场,请自行判断内容的真实性和可靠性!
该内容是文档的文本内容,更好的格式请下载文档