两个程序间的DDE通信问题，在线等！！！

[badelf]

有两个程序，一个是Server，一个是Client
Server上有一文本框，LinkMode=1 LinkTopic=ServerForm

代码如下：
Private Sub Form_LinkExecute(CmdStr As String, Cancel As Integer)
Static lngCount As Long
Dim Info As String

Info = txtInfo.Text

Select Case CmdStr
Case "Max"
Me.WindowState = 2
End Select
txtInfo.Text = "最大化窗口"

Cancel = False
End Sub



Clent上有一图片框，name="picDDE"
LinkMode=0 LinkTopic=""

代码如下：
Private Sub LinkAndSendMessage(ByVal Msg As String)
Dim t As Long
picDDE.LinkMode = 0
picDDE.LinkTopic = "Server|ServerForm"
picDDE.LinkMode = 2
picDDE.LinkExecute Msg
t = picDDE.LinkTimeout
picDDE.LinkTimeout = 1
picDDE.LinkMode = 0
picDDE.LinkTimeout = t
End Sub
Private Sub Form_Load()
LinkAndSendMessage "Max"
End Sub




理想状态：
先运行SERVER，然后运行CLIENT，此时CLIENT主动向SERVER发命令，SERVER接到命令后就最大化窗口，并在文本框上输出文字。

但这个程序运行不成功，为什么？？？？

[feiyun0112]

设置Server　form1 LinkMode=1 LinkTopic=ServerForm


*****************************************************************************
欢迎使用CSDN论坛专用阅读器 : CSDN Reader(附全部源代码)

http://feiyun0112.cnblogs.com/

[badelf]

1楼的,我是这样设置的.

[badelf]

唉，还想求高手，还不如求自己。

很简单，SERVER编译时，把窗口标题改一下就行了。