实现桌面地理信息系统ArcView和VB5应用程序之间的通讯
减小字体
增大字体txtDDE.LinkMode = NONE'关闭DDE 对话
End Sub
(6) 在cboDocTypeClick事件中增加下列代码:
Sub cboDocTypeClick()
cmd="av.GetProject.AddDoc("&cboDocType&".make) av.GetProject.GetActive.Get(0).Ge tWin.Open"
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月。
Tags：
作者：佚名
- 好的评价 如果您觉得此文章好，就请您
0%(0) 
- 差的评价 如果您觉得此文章差，就请您
0%(0) 
中查找“实现桌面地理信息系统ArcView和VB5应用程序之间的通讯”更多相关内容
中查找“实现桌面地理信息系统ArcView和VB5应用程序之间的通讯”更多相关内容