关于类型转换

Question

如何将variant类型转换成byte型阿？

Answer 1

那要看你的variant变量中是否存储的是一个字节了，如果是的话：
dim x as byte
x=你的那个variant变量
就可以了。

Answer 2

Private Sub Form_Load()
    Dim buffer As Variant
    Dim arr1(2) As Byte
    Dim arr2() As Byte
    arr1(0) = 9: arr1(1) = 90: arr1(2) = 200
    buffer = arr1
    arr2 = buffer
End Sub

Answer 3

Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)
    
    Dim a As Variant
    Dim b() As Byte
    
    a = 34.0435
    ReDim b(LenB(a) - 1)
    CopyMemory b(0), a, LenB(a)