代码简单，但不是我想要的！
客户端代码：
Private Sub Command1_Click()
Unload Me
End Sub
Private Sub Form_Load()
Text1.LinkItem = "Text"
Text1.LinkTopic = "DDE服务器|DDE_Text"
On Error GoTo try
Doing:
Text1.LinkMode = 1
try:
If Err = 282 Then
Dim x
Dim Fname As String
Fname = App.Path + "\DDE服务器.e
代码简单，但不是我想要的！ 客户端代码： Private Sub Command1_Click() Unload Me End Sub Private Sub Form_Load() Text1.LinkItem = "Text" Text1.LinkTopic = "DDE服务器|DDE_Text" On Error GoTo try Doing: Text1.LinkMode = 1 try: If Err = 282 Then Dim x Dim Fname As String Fname = App.Path + "\DDE服务器.e
虽然是用的比较少，但是某些时候还是有用的
并不是我想要的，但还是谢谢你