clsdatarow.cls

来自「应用串口通讯, 获取产品信息, 并与SAMPLE信息比较, 自动判断产品是否合格」· CLS 代码 · 共 40 行

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "clsDataRow"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Option Explicit

Private m_lStartAddress As Long
Private m_DataBytes As Variant


Private Sub Class_Initialize()
    ReDim m_DataBytes(0 To 15) As Variant
End Sub

Public Property Let DataByte(ByVal iOffset As Integer, ByVal Value As Variant)
    m_DataBytes(iOffset) = Value
End Property

Public Property Get DataByte(ByVal iOffset As Integer) As Variant
    DataByte = m_DataBytes(iOffset)
End Property

Public Property Let StartAddress(Value As Long)
    m_lStartAddress = Value
End Property

Public Property Get StartAddress() As Long
    StartAddress = m_lStartAddress
End Property