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那边就会显示出自于客户端的信息。

整个工程下载地址：

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

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!