Question

我试图复制一个字节数组复制到一个属于第三方图书馆的类

    Dim usr As New RSI_USER_RECORD
    Dim ba(RSI_USER_RECORD.RSI_LEN_USER_REC - 1) As Byte
     populate ba here
    usr = ba  how can I do this?

有可能吗?

以下是类别的定义(来自反省器)

Public Class RSI_USER_RECORD
      Methods
    Public Function Clone() As RSI_USER_RECORD
        Return New RSI_USER_RECORD With { _
            .pID = Me.pID.Clone, _
            .pTemplateVector = Me.pTemplateVector.Clone, _
            .authorityLevel = Me.authorityLevel, _
            .rejectThreshold = Me.rejectThreshold, _
            .timeZone = Me.timeZone _
        }
    End Function


      Fields
    Public authorityLevel As RSI_AUTHORITY_LEVEL = RSI_AUTHORITY_LEVEL.RSI_AUTHORITY_NONE
    Public pID As RSI_ID = New RSI_ID
    Public pTemplateVector As RSI_TEMPLATE = New RSI_TEMPLATE
    Public rejectThreshold As UInt16 = 0
    Public Const RSI_LEN_USER_REC As Integer ModOpt(IsConst) = &H10
    Public timeZone As Byte = 0
End Class

Answer 1

您字节数组中的每个数据必须指定为属性之一。基本上您必须做类似

authorityLevel = byte(someIndex)
pID = byte(someIndex)
pTemplateVector = byte(someIndex)
rejectThreshold = byte(someIndex)
timeZone =byte(someIndex)

在您的代码中 :

Dim usr As New RSI_USER_RECORD
Dim ba(RSI_USER_RECORD.RSI_LEN_USER_REC - 1) As Byte
 populate ba here
usr = ba  how can I do this?

无法在对象中指定数组,但可以使用该数组来初始化对象。

dim anInstance as new RSI_USER_RECORD(ba)

并创建一个新的建筑师将完成这项工作。

Answer 2

    Dim usr As  USER_RECORD()   init the values
    Dim ba As  USER_RECORD() = New  USER_RECORD(usr.Length - 1) {}

    For i As Integer = 0 To usr.Length - 1
        ba(i) = usr(i)   if USER_RECORD is value type
        ba(i) = DirectCast( usr(i).Clone(), USER_RECORD)   if USER_RECORD is reference type

    Next

友情链接