VB 利用DDE进程间通信，5行代码搞定

Client

添加Command1，Text1及一个picturebox（命名为picDDE）

代码如下：

Option Explicit
Private Sub Command1_Click()
    picDDE.LinkTopic = "app2|yuanyuan"
    picDDE.LinkMode = 2
    picDDE.LinkExecute Text1.Text
End Sub

 

Server

 

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

代码如下：

Option Explicit
Private Sub Form_LinkExecute(CmdStr As String, Cancel As Integer)
    Text1.Text = CmdStr
    Cancel = 0
End Sub

 

验证方法：

 

假设编译后client为client.exe，server端为server.exe。先双击运行server.ext，然后再打开client.exe，在client端的文本框里输入消息然后点按钮发送，这样server.exe那边就会显示出自于客户端的信息。

 

注意：

这里的yuanyuan是自己随意起的字符串，是两个工程之间连接的“暗号”，你可以改成其他的，两边只要一致起来就行。

 

整个工程下载地址：

https://github.com/sysdzw/vb6dde