VB 利用DDE进程间通信源码发布

发送端

添加Commad1，Text1及一个图片控件picturebox（命名为picDDE）

代码如下：

Option Explicit

Private Sub Command1_Click()

    picDDE.LinkTopic = "app2|yuanyuan"

    picDDE.LinkMode = 2

    picDDE.LinkExecute Text1.Text

End Sub

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

接收端： 

添加Text1，设置工程名称为app2，设置窗体的LinkMode属性为1，LinkTopic为yuanyuan

注意APP2是工程属性--生成  里的名字

yuanyuan是 窗体的 LinkTopic属性里的名字

代码如下：

Option Explicit

Private Sub Form_LinkExecute(CmdStr As String, Cancel As Integer)

    Text1.Text = CmdStr

    Cancel = 0

End Sub