版权声明:本文为博主原创文章,未经博主允许不得转载。 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