Question

求VB读DDE的简明例子。

Answer 1

第一.创建一个工程,名称:Child,窗体名称:FrmChild,添加Text1
输入代码
1. Option Explicit
2.
3. Private Sub Form_LinkExecute(CmdStr As String, Cancel As Integer)
4. Text1.Text = CmdStr
5. Cancel = 0
6. End Sub
复制代码
第二.创建新工程,名称:Main,窗体名称FrmMain,添加Text1
输入代码
1. Option Explicit
2.
3. Private Sub Text1_Change()
4. Dim t As Long
5.
6. Text1.LinkMode = 0
7. Text1.LinkTopic = "Child|frmChild" '注意此处的标题一定与连接的标题相同否则连接不成功
8. Text1.LinkMode = 2
9. Text1.LinkExecute Text1.Text
10.
11. t = Text1.LinkTimeout
12. Text1.LinkTimeout = 1
13. Text1.LinkMode = 0
14. Text1.LinkTimeout = t
15. End Sub