Private Sub Group_Density_DataChange(ByVal TransactionID As Long, ByVal NumItems_Density As Long, ClientHandles_Density() As Long, ItemValues_Density() As Variant, Qualities() As Long, TimeStamps() As Date)
On Error GoTo ErrorsInformation
For I = 1 To NumItems_Density
C_Density(ClientHandles_Density(I) - 350) = ItemValues_Density(I)
Next I
GoTo SkipError
ErrorsInformation:
Call Error_Information(7, Err.Description)
SkipError:
End Sub尤其是DataChange、(ByVal TransactionID As Long, ByVal NumItems_Density As Long, ClientHandles_Density() As Long, ItemValues_Density() As Variant, Qualities() As Long, TimeStamps() As Date)这些参数的意思和用法。谢谢!
On Error GoTo ErrorsInformation
For I = 1 To NumItems_Density
C_Density(ClientHandles_Density(I) - 350) = ItemValues_Density(I)
Next I
GoTo SkipError
ErrorsInformation:
Call Error_Information(7, Err.Description)
SkipError:
End Sub尤其是DataChange、(ByVal TransactionID As Long, ByVal NumItems_Density As Long, ClientHandles_Density() As Long, ItemValues_Density() As Variant, Qualities() As Long, TimeStamps() As Date)这些参数的意思和用法。谢谢!
解决方案 »
- 西安的妹妹进
- 大一新生。VB大作业不会做啊。求帮助。
- vb读取和写入txt文本文件时内存出错,求解
- 特急求助!(外地出差急用)vb+windows98/2000下怎么设置键盘鼠标钩子?各位,不管会不会帮个场也好啊!
- 请问如何编写执行服务器端程序的dll,然后在asp中使用?
- 关于 outlook
- 請問各位老鳥,怎樣把數據庫里的數據,通過VB輸出到WORD文檔里面,謝謝!(100分)
- 随意移动图片
- 点一下listview的ColumnHeader,该列的所有元素就会排序要怎么做
- 紧急求救!!关于如何双击从MSFlexGrid返回双击那一行的问题
- VBA中如何打开文并显示出来,文件扩展名不固定!!!
- 一个简单的for step 问题,请高手赐教
Private Sub说明这是一个模块级的子过程;
Group_Density_DataChange---子过程的名称;
ByVal TransactionID As Long---子过程的第一个参数,ByVal说明是按值传递,TransactionID是第一个参数名,As Long说明参数的数据类型是长整型,
ByVal NumItems_Density As Long是第二个参数,传递方法与数据类型与第一个相同.
ClientHandles_Density() As Long第三个参数是个数组,按地址传递;参数的数据类型为长整型;
ItemValues_Density() As Variant,,参数为数组,数据类型为变体型,
Qualities() As Long与第三个参数相同
TimeStamps() As Date,日期型的数组参数
On Error GoTo ErrorsInformation 若出错,从行标签ErrorsInformation处执行
For I = 1 To NumItems_Density
C_Density(ClientHandles_Density(I) - 350) = ItemValues_Density(I)
Next I 一个For循环;
GoTo SkipError 跳到行标签SkipError处执行ErrorsInformation: 行标签Call Error_Information(7, Err.Description),调用Error_Information(7, Err.Description)
SkipError: 行标签End Sub 子过程结束
对OPC标签的读可以通过Group_Density组的DataChange事件来读取。该事件有多个参数:其中NumItems是指标签改变值的个数,ClientHandles是改变值的标签索引,ItemValues为改变值的数据,具体的意思是ClientHandles(1)的值是其对应的标签数组的索引,其所指的OPC标签的值在ItemValues(1)中。一般来说,刚连接上时,该事件会把全部所要求访问的OPC标签值全部读取过来(顺序不一,要通过ClientHandles索引),此后只有数据发生变化时才会触发该事件。也只会传输发生了变化的数据,没有变化的数据不会出现在本事件的ItemValues中。
但是Qualities():OPC Item的品质值;TimeStamps():时间戳 这两个我还不是很明白