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

txtDDE.LinkExecute cmd?

End Sub?

(7) 在cmdRequestClick事件中增加下列代码:?

Sub cmdRequestClick ()?

'LinkItem是能够返回值的Avenue script?

txtDDE.LinkItem = "av.GetActiveDoc.GetName"?

txtDDE.LinkRequest?

End Sub?

(8) 存储VB5工程并编译成EXE 文件。?

现在即可运行Visual Basic应用程序。如果ArcView 没有运行，应用程序就 会激活它。从dropdown combo box 选择一个文档名以便在ArcView中建立一个文档。要访问 当前激活的文档就敲击Send Request button，在文本框里将会显示文档名。本例所有的DDE 通讯都是通过文本框实现的。在VB5中, 任何text box, picture box和label在对话中都可 作为目标,同时任何窗体可看作源。?

以上实例的运行环境为：Visual Basic 4.0以上，ArcView2.1以上，Windows3.1以上。?

参 考 文 献?

1、边馥苓主编，《地理信息系统原理和方法》，北京：测绘出版社，1996 年8月。
2、郭达志、盛业华等编著，《地理信息系统基础与应用》，煤炭工业出版社，1997 年5月。?
3、(美国) Mike McKelvy & Ronald Martinsen 著，《Visual Basic 5开发使用手 册》，机械工业出版社，1998年4月。