我用VB做OPC.CLIENT，用到**_datachange()这个函数，但却达不到随变化传递数据，不知何故？感觉像是函数没调用。



代码如下：



Private Sub OPCMygroup_DataChange(ByVal TransactionID As Long, ByVal NumItems As Long, ClientHandles() As Long, ItemValues() As Variant, Qualities() As Long, TimeStamps() As Date)

Dim id As Integer
Dim i As Integer
For i = 1 To NumItems
id = ClientHandles(i) - 1
Form1.Value(id) = ItemValues(i)
Form1.Time(id) = TimeStamps(i)
Form1.Quality(id) = Qualities(i)
Next i



End Sub