Connect 方法示例

下列示例把TEMP1 输出串的值与Text对象Text1的标题属性连接起来。

连接是一种单向机制。因此，标题属性的直接变化（通过OLE自动化）不会被写入所连接的源。此外，还可能需要将数据从一种类型或范围转换为另一种，以便创建相应的用户界面（即数字到字符串、数字到颜色、数字到屏幕坐标）。为此，应使用动画对象（线性，查找，格式）。

Dim objAnim as Object

Dim lngStatus as Long

'创建动画对象

Set objAnim = Rect1.BuildObject("Linear")

'初始化Linear对象的属性

objAnim.Source = "Fix32.Scada1.AI1.F_CV"

'设置范围内和范围外转换参数

objAnim.AutoFetch = True '设置其获取限值

objAnim.UseDelta = True '设置其进行相对运动

objAnim.LoOutValue = 0 '设置低输出值

objAnim.HiOutValue = 15 '设置高输出值

'连接动画对象的输出与矩形的位置

Rect1.Connect "HorizontalPosition", objAnim.FullyQualifiedName & ".OutputValue", lngStatus