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

4. 实例分析

在本例中，VB5 应用程序向ArcView 发出Avenue 请求以建立新的文档如views 和layouts， 而且应用程序询问ArcView 以得到当前激活的文档。此时VB5 应用程序是目标，而ArcView 是源。

如果已安装VB5 和ArcView,按照下面步骤建立应用程序:

(1) 启动VB5，建立缺省窗体Form1。
(2) 在Form1上根据下列属性建立控件，然后放大窗体以便整齐地排列控件。

ObjectProperty Setting
Text BoxNametxtDDE
Command ButtonCaptionSend Request
NamecmdRequest
Combo BoxNamecboDocType

(3) 在Form1的说明部分增加下面代码:

Const NONE=0, MANUAL=2

Sub Startup()

Dim t

Const DDE_NO_APP=282

'this will start ArcView if it isn't running

On Error GoTo FireUp

txtDDE.LinkMode=NONE'清除D