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(C<a href="https://www.jb51.cc/tag/mds/" target="_blank" class="keywords">mds</a>tr As String,Cancel As Integer) Text1.Text = C<a href="https://www.jb51.cc/tag/mds/" target="_blank" class="keywords">mds</a>tr Cancel = 0 End Sub

验证方法：

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

整个工程下载地址：

http://download.csdn.net/source/1759069