Convertion сингл Hex

Question

Я пытаюсь преобразовать следующий код VB6 в VB.NET:

Public Function SingleToHex(ByVal Tmp As Single) As String 
    Dim TmpBytes(0 To 3) As Byte 
    Dim TmpSng As Single 
    Dim tmpStr As String 
    Dim x As Long 
    TmpSng = Tmp 
    Call CopyMemory(ByVal VarPtr(TmpBytes(0)), ByVal VarPtr(TmpSng), 4) 
    For x = 3 To 0 Step -1 
     If Len(Hex(TmpBytes(x))) = 1 Then 
      tmpStr = tmpStr & "0" & Hex(TmpBytes(x)) 
     Else 
      tmpStr = tmpStr & Hex(TmpBytes(x)) 
     End If 
    Next x 
    SingleToHex = tmpStr 
End Function 

Я пытался найти функцию в «Конверсии» пространство имен, но я не нашел.

Может ли кто-нибудь сказать мне, как это легко сделать?

Answer 1

Public Function SingleToHex(ByVal Tmp As Single) As String 
    Dim arr = BitConverter.GetBytes(Tmp) 
    Array.Reverse(arr) 
    Return BitConverter.ToString(arr).Replace("-", "") 
End Function