字节数组复制到一个类的实例

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