Question

刚入手VB.NET不知道怎么将数字转换成字节数组

比如数字123456应该转为｛&H01, &HE2 , &H40｝

Answer 1

Private Function Conver_Hex(ByVal L As Long) As Array
Dim str_L As String = Hex(L)
If str_L.Length \ 2 <> 0 Then
str_L = "0" & str_L
End If
Dim byt(str_L.Length / 2 - 1) As Byte
For i = 0 To str_L.Length / 2 - 1
byt(i) = Convert.ToByte(str_L.Substring(2 * i, 2), 16)
Next
Return byt
End Function

'下面是调用代码
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim L As Double = 123456
Dim byt() As Byte = Conver_Hex(L)
End Sub

Answer 2

Public Class Form1
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Dim a As Integer = 123456
Dim b As Byte() = Int2Arr(a)
For Each n In b
Me.Text &= " " & n
Next
End Sub

Private Function Int2Arr(num As Integer) As Byte()
Dim arr As New List(Of Byte)
While num > 0
arr.Insert(0, num Mod 256)
num = num \ 256
End While
Return arr.ToArray
End Function
End Class

结果为1 226 64，也就是你说的｛&H01, &HE2 , &H40｝

追问

非常感谢您的回答！您的方法也不错，但是我已经找到更简单的方法了

Dim xx() As Byte = BitConverter.GetBytes(123456)
Array.Reverse(xx) '反序

PS:To知道：我写的内容没有意义吗？