Description
This sample code will read data from an iFIX tag.
'declare a few objects
Dim objWorkspace As Object
Dim objDataItem As Object
'get reference to the workspace
Set objWorkspace = CreateObject("Workspace.Application")
'use the workspace.system object to obtain the OODB dataitem
Set objDataItem = objWorkspace.System.FindObject("Fix32.FIX.AI1.F_CV")
'display the value in a msgBox
MsgBox objDataItem.Value
objDataItem.Value = "75"
原文链接：https://www.f2er.com/vb/256659.html