(VB.Net)Integer转 Byte数组

版权声明：本文为博主原创文章，未经博主允许不得转载。 https://blog.csdn.net/u011978079/article/details/89635235

1、Integer转单个字节

Public Function iByte(ByVal i As Integer) As Byte
        Dim b() As Byte = BitConverter.GetBytes(i)
        Return b(0)
End Function

2、Integer转双字节

'低字节在前，高字节在后
Public Function iByte2(ByVal i As Integer) As Byte()
        Dim btemp() As Byte = {0, 0}
        Dim b() As Byte = BitConverter.GetBytes(i)
        btemp(0) = b(1)
        btemp(1) = b(0)
        Return btemp
End Function

3、Integer转四字节

'低字节在前，高字节在后
Public Function iByte4(ByVal i As Integer) As Byte()
        Dim btemp() As Byte = {0, 0, 0, 0}
        Dim b() As Byte = BitConverter.GetBytes(i)
        btemp(0) = b(3)
        btemp(1) = b(2)
        btemp(2) = b(1)
        btemp(3) = b(0)
        Return btemp
End Function