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

下列示例：

• 创建一个数据系统ocx FDS;

• 在 ；

• 读取组 DataGroup1；

• 读取DataItem

'创建数据系统OCX

Dim FDS As Object

Set FDS = CreateObject("FixDataSystems.Intellution FD Data System Control")

'在组集中添加一个组

FDS.Groups.Add ("DataGroup1")

FDS.Groups.Item("DataGroup1").DataItems.Add("Fix32.THISNODE.AI1.F_CV")

'读取 DataGroup1

FDS.Groups.Item("DataGroup1").Read

'读取DataItem

FDS.Groups.Item("DataGroup1").DataItems.Item(1).Read