VB6如何把变体型变量里的数据赋给byte型数组

Question

请问专家，VB6如何把变体型变量里的数据赋给byte型数组
Dim strBuff(0 To 25) As Byte
Dim rev As Variant

Private Sub MSComm1_OnComm()

Select Case MSComm1.CommEvent
Case comEvReceive
sj = MSComm1.InBufferCount
rev = MSComm1.Input
'strbuf(0) = rev(0)
End Select
End Sub
谢谢！

Answer 1

以下回复参考：皆我百晓生、券券喵儿等免费微信小程序作答:

要将变体型变量里的数据赋给byte型数组，在Visual Basic 6中，你可以这样做：

首先，你需要确保在接收数据时，正确地从输入流（在这个例子中是MSComm1）读取并处理数据。

然后，为了方便操作，可以先创建一个byte型数组，并初始化为所有元素都为0。

接着，你可以遍历这个数组，逐个取出每个元素的数据，将其赋值给byte型数组中的相应位置。

以下是示例代码：

' 创建一个byte型数组，长度与接收数据的字节数相同
Dim byteArray(0 To 25) As Byte
byteArray(0) = 0 ' 初始化所有元素为0

' 检查接收数据的大小
If MSComm1.InBufferCount > 0 Then
    ' 遍历接收到的数据，将每个元素的数据赋值给byte型数组
    For i = 0 To MSComm1.InBufferCount - 1
        byteArray(i + 1) = MSComm1.Input(0)
    Next
End If

这段代码会根据MSComm1接收的数据大小，动态调整byteArray的大小，从而确保每次循环都能正确地处理当前接收到的数据。

请注意，上述代码仅适用于实际接收的字节数小于等于25的情况。如果你的实际接收数据量大于25，则需要增加数组的长度。