2015-05-14 2 views
0

Как передать байтовый массив как функциональный параметр в VBA?Байт-массив в доступе VBA

В VB функция написания EPC HEX слово радиометки:

Public Shared Function WriteEPC_G2(ByRef ConAddr As Byte, **ByVal Password() As Byte**, **ByVal WriteEPC() As Byte**, ByVal WriteEPClen As Byte, ByRef errorcode As Integer, ByVal PortHandle As Ineger) As Integer 

Bolded параметры выполнены с функцией, которая генерирует массив байтов из текстовых полей (пароль «00000000» и ECP писать «т.е. 1234»)

Private Function HexStringToByteArray(ByVal s As String) As Byte() 
    s = s.Replace(" ", "") 
    Dim buffer(s.Length/2 - 1) As Byte 
    Dim i As Integer 
    For i = 0 To s.Length - 2 Step 2 
     buffer(i/2) = Convert.ToByte(s.Substring(i, 2), 16) 
    Next 
    Return buffer 
End Function 

ответ

0

VBA имеет встроенную функцию, которая делает это:

buffer = StrConv(string, vbFromUnicode) 
Смежные вопросы