'新建工程,窗体上放一个Text1
'Form1的LinkMode设为1,LinkTopic设为FormDDE
Private Sub Form_LinkExecute(CmdStr As String, Cancel As Integer)
If Len(CmdStr) Then Text1.Text = CmdStr
Cancel = 0
End Sub
'生成EXE为Test1.exe
'===========================================
'再新建工程,窗体上放一个Text1
'Form1的LinkMode设为1,添加代码
Private Sub Text1_Change()
With Text1
.LinkTopic = "工程1|FormDDE"
.LinkMode = 2
.LinkExecute Text1.Text
End With
End Sub
'生成EXE为Test2.exe
'===========================================
'分别运行Test1和Test2
'在Test2的文本框中输入内容,Text1的文本框中将出现相同内容