GetConnectionInformation方法示例
2015-12-15 22:24:40   来源：   评论：0 点击：

下列示例获得 对象Oval1的第一个连接的连接信息。

Dim sPropName As String

Dim sSource As String

Dim sFullQualSource As String

Dim vSourceObjs As Variant

Dim vTolerance As Variant

Dim vDeadBand As Variant

Dim vUpdateRate As Variant

Oval1.GetConnectionInformation 1, sPropName, sSource, sFullQualSource, vSourceObjs, vTolerance, vDeadBand, vUpdateRate