两个VB程序之交换数据的DDE工程

新建一个VB工程
把Form1的
Caption设置为工程1
WindowState设置为Minimized
LinkMode设为Source
LinkTopic设为Form1

在Form1添加TextBox,text1
设置text1的text值为:这是EXE文件中TEXT1中的数据

编译生成 工程1.EXE

再建一个VB工程
把Form1的
LinkMode设为Source
LinkTopic设为Form1
在Form1添加TextBox,text1
把工程保存在一个文件夹内,把上面所做的工程1.EXE复制到这个文件夹内.
不用编译,在VB环境中写以下程序调试就可以了.
Private Sub Form_Click()
  If Text1.LinkMode = vbNone Then
      Z = Shell("C:/Documents and Settings/Administrator/桌面/dde/工程1.exe", 4)
      Text1.LinkTopic = "工程1|Form1"  ' 设置连接主题。
      Text1.LinkItem = "text1"          ' 设置连接项目。
      Text1.LinkMode = vbLinkManual    ' 设置连接模式。
  End If
 
      Text1.LinkItem = "text1"  ' 设置连接项目。
      Text1.LinkRequest            ' 获得数据
     

      'Text1.LinkItem = "text1"  ' 设置连接项目。
      'Text1.text="xxxxxx"           
      'text1.LinkPoke                  ' 发送数据"xxxxxx"
End Sub

按F5运行程序,单击form1,就可以看到从工程1.EXE的text1中读回来的数据了