VB Link 操作（DDE 会话）

VB Link 操作（DDE 会话）
━━━━━━━━━━━━━━━━━━━━━━━━━━

程序之间进行数据通信，一个常见的方法就是采用DDE 会话，在 VB 中就是使用对象的 Link 操作。

一、DDE会话基本设计

★发送方设置：
''注：Kj 代表窗体中发送 DDE 会话的某控件，如 TextBox、Label

1.加入代码：

Kj.LinkMode = 0
Kj.LinkTopic = "收|Form1"  ''文件名|窗体名
Kj.LinkItem = "Text1"      ''控件名
Kj.LinkMode = Mode         ''0（断开）    1（自动）  2（手动）   3（通知）

2. 用“Kj.LinkPoke”        ''发送源程序控件 kj 的字符 到 本程序的 Text1 中
3. 用“Kj.LinkRequest”     ''源程序将本程序 Text1字符取回 放入 kj
4  用“Kj.LinkExecute Cmd” ''触发本标程序的 Form_LinkExecute 事件

★接收方设置：
1.必须在设计状态下设置本程序的窗口：LinkMode = 1
2.在 Form_LinkExecute 事件中接收发送程序发出的 DDE 会话消息

二、DDE会话的事件 ——————————————————————————————

▲LinkClose                      （事件）DDE 对话结束
▲LinkError(linkerr As Integer)  （事件）DDE 对话出错
▲LinkExecute(cmdstr As String, cancel As Integer)   （事件）
当一个 DDE 对话中的命令字符串由一个接收端应用程序发出时而发生的
▲LinkOpen(cancel As Integer)    （事件）DDE 对话正在启动时
▲LinkNotify                  （事件）
如果接收端控件的 LinkMode 属性被设置为 3（通知），
当发送端已经改变了由 DDE 链接定义的数据时，此事件发生。

三、DDE会话的有关属性 ——————————————————————————————
▲LinkTimeout [ = Number]属性 返回或设置等待 DDE 响应消息的时间。
缺省为 50（相当于 5 秒），
最大等待时间长度为65,535个十分之一秒，或大约为 1 时 49 分钟
▲LinkItem [ = String]属性 返回或设置传给接收端的数据
▲LinkTopic [ = value]属性 对于接收端控件－返回或设置发送端应用程序和主题
▲LinkMode [ = Number]属性 DDE 会话方式

★对于 DDE 会话中用做目标的控件， Number 的设置值为：
０vbLinkNone      无     无 DDE 交互。（缺省值）
１vbLinkAutomatic 自动   每次链接数据改变，目标控件都要更新
２vbLinkManual    手动   只有激活 LinkRequest 方法时，才更新目标控件。
３vbLinkNotify    通知   链接数据改变时，会产生 LinkNotify 事件，
但是只有在LinkRequest 方法激活时才会更新目标控件。


★对作为 DDE 会话源的窗体，number 的设置值为：

０vbLinkNone（缺省值）  无     没有 DDE 交互。
没有目标应用程序能够启动与源窗体的主题会话，没有应用程序能够向窗体放置数据。如果在设计时 LinkMode 为 0（无），在运行时不能将其改变为1（源）。

１vbLinkSource          源     允许窗体上的任何 Label、PictureBox 或TextBox控件为与该窗体建立 DDE 会话的目标应用程序提供数据。

如果存在这种链接，Visual Basic 在控件内容改变时会自动提醒目标应用程序。另外，目标应用程序能够向窗体上的 Label、PictureBox、TextBox 控件存放数据。如果设计时LinkMode为 1（源），运行时可以将它改为 0（无）也可以再改回来。
返回一个代表包含该窗口的框架的 Window 对象，此属性为只读，只应用于Window 对象


四、DDE会话的有关方法 ——————————————————————————————

▲LinkSend         （方法）
在一次 DDE 对话中将 PictureBox 控件的内容传输到的接收端应用程序。
▲LinkExecute String （方法）
DDE对话过程中将命令字符串发送给发送端应用程序
▲LinkPoke         （方法）
DDE对话过程中将 Label、PictureBox 或 TextBox 控件的内容传送给发送端应用程序
▲LinkRequest      （方法）
DDE 对话中请求发送端应用程序更新 Label、PictureBox 或 TextBox 控件中的内容

★如果 object 的 LinkMode 属性设置为自动（ 1 或 vbLinkAutomatic），则源应用程序自动更新 object 而不需要 LinkRequest。

★如果 object 的 LinkMode 属性设置为手工（2 或 vbLinkManual），则只有使用LinkRequest 时源应用程序才更新 object。

★如果 object 的 LinkMode 属性设置为通知 Notify（ 3 或 vbLinkNotify），则源端通过调用 LinkNotify 事件通知接收端已更改数据。然后接收端必须使用 LinkRequest 更新数据。设置一指示对象为可见或隐藏的值


五、DDE会话的集合

LinkedWindows 集合 ——————————————————————————————
▲Count  （属性）    集合内成员的个数，此属性为只读
▲Parent （属性）    返回包含另一对象或集合的对象或集合，此属性为只读
▲VBE    （属性）    返回该 VBE 对象的根，此属性为只读。

例  返回活动工程名称：Debug.Print Application.VBE.ActiveVBProject.Name

▲Add (component)  （方法）  将一个对象添加到集合。
component 参数：
vbext_ct_ClassModule 将一个类模块添加到集合。
Vbext_ct_MSForm 将窗体添加到集合。
vbext_ct_StdModule 将标准模块添加到集合。

▲Item(index)      （方法）返回集合中所索引的成员。
index 参数可以是数值或包含对象标题的字符串。字符串必须和集合的 key 参数匹配。
Key 参数：
Windows          Caption 属性设置
LinkedWindows    Caption 属性设置
CodePanes        无唯一字符串与此集合相关。
VBProjects       Name 属性设置
VBComponents     Name 属性设置
References       Name 属性设置
Properties       Name 属性设置

▲Remove(component) （方法）从集合中删除一项
component参数是必需的。
对于 LinkedWindows 集合来说，是一个对象。
对于 References 集合来说，是一个对类型库，或者对工程的引用。
对于 VBComponents 集合来说，是一个枚举型的常数，它代表一个类模块、一个窗体，或者是一个标准模块。


六、DDE会话的 Link 操作示例 ———————————————————————————————————— -

1.本示例建立一个 Microsoft Excel 的 DDE 链接，将一些值放置到一个新工作单的第一行的单元里，并按照这些值画图。 LinkExecute 向 Microsoft Excel 发送激活工作单的命令，选择一些值并按照它们画图。

Private Sub Form_Click()
    Dim Cmd, I, Q, Row, Z                                   '' 声明变量。
    Q = Chr(34)                                             '' 定义引用标记。
    '' 创建一个含有 Microsoft Excel 宏指令的字串。
    Cmd = "[ACTIVATE(" & Q & "SHEET1" & Q & ")]"
    Cmd = Cmd & "[SELECT(" & Q & "R1C1:R5C2" & Q & ")]"
    Cmd = Cmd & "[NEW(2,1)][ARRANGE.ALL()]"
    If Text1.LinkMode = vbNone Then
        Z = Shell("C:\Program Files\Microsoft Office\Office\EXCEL.EXE", 4) '' 启动 Microsoft Excel。
        Text1.LinkTopic = "Excel|Sheet1"                    '' 设置连接主题。
        Text1.LinkItem = "R1C1"                             '' 设置连接项目。
        Text1.LinkMode = vbLinkManual                       '' 设置连接模式。
    End If
    For I = 1 To 5
        Row = I                                             '' 定义行号。
        Text1.LinkItem = "R" & Row & "C1"                   '' 设置连接项目。
        Text1.Text = Chr(64 + I)                            '' 将值放置在 Text 中。
        Text1.LinkPoke                                      '' 将值放入单元。
        Text1.LinkItem = "R" & Row & "C2"                   '' 设置连接项目。
        Text1.Text = Row                                    '' 将值放置在 Text 中。
        Text1.LinkPoke                                      '' 将值放入单元。
    Next I
    on Error Resume Next
    Text1.LinkExecute Cmd                                   '' 执行 Microsoft Excel 命令。
    MsgBox "LinkExecute DDE demo with Microsoft Excel finished.", 64
    End
End Sub

2.使用 LinkRequest 更新含有 Microsoft Excel 工作单中值的正文框的内容
计算机上必需正在运行着 Microsoft Excel

Private Sub Form_Click()
    If Text1.LinkMode = vbNone Then                         '' 测试连接模式。
        Text1.LinkTopic = "Excel|Sheet1"                    '' 设置连接主题。
        Text1.LinkItem = "R1C1"                             '' 设置连接项目。
        Text1.LinkMode = vbLinkManual                       '' 设置连接模式。
        Text1.LinkRequest                                   '' 更新正文框内容。
    Else
        If Text1.LinkItem = "R1C1" Then
            Text1.LinkItem = "R2C1"
            Text1.LinkRequest                               '' 更新正文框内容。
        Else
            Text1.LinkItem = "R1C1"
            Text1.LinkRequest                               '' 更新正文框内容。
        End If
    End If
End Sub

3.LinkItem、LinkMode、LinkTopic 属性示例

在这个例子中，每一次敲击鼠标都会使 Microsoft Excel 工作单中的单元更新 Visual Basic
的 TextBox   先启动 Microsoft Excel，打开一个新的名叫 Sheet1 的工作单，在第一列中放入一些数据。

Private Sub Form_Click()
    Dim CurRow As String
    Static Row                                              '' 工作单的行数.
    Row = Row + 1                                           '' 增加行.
    If Row = 1 Then                                         '' 只第一次.
        '' 确保连接不是活动的.
        Text1.LinkMode = 0
        '' 设置应用程序的名字和题目名.
        Text1.LinkTopic = "Excel|Sheet1"
        Text1.LinkItem = "R1C1"                             '' 设置 LinkItem.
        Text1.LinkMode = 1                                  '' 设置 LinkMode 为自动.
    Else
        ''在数据项目中更新行.
        CurRow = "R" & Row & "C1"
        Text1.LinkItem = CurRow                             '' 设置 LinkItem.
    End If
End Sub