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那边就会显示出自于客户端的信息。
整个工程下载地址:
总结
如果觉得编程之家网站内容还不错,欢迎将编程之家网站推荐给程序员好友。
本图文内容来源于网友网络收集整理提供,作为学习参考使用,版权属于原作者。