sub linkapp(link as contonl,appname as string,topic as string)
link.linkmode=0' 关 闭 通 讯
link.linktopic=appname+“|”+topic ' 置 通 讯 主 题
link.linkmode=2 ' 手 工 通 讯
end sub
增 加 一 个 过 程unlinkapp, 其 代 码 如 下:
sub unlinkapp(link as contonl)
link.linkmode=0' 关 闭 通 讯
end sub
在 窗 体 事 件 中, 增 加 如 下 代 码:
sub form_load()
LINKAPP ACADTEXT,“AUTOCAD.DDE”,“SYSTEM”
end sub
sub form_unload(cancel as integer)
UNLINKAPP ACADTEXT
end sub