转换单到十六进制

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

我试图在 "Conversions" 命名空间中找到一个函数，但没有找到。

谁能告诉我如何轻松做到这一点？

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

转换单到十六进制

Conversion Single To Hex

vb.net

vb6

vb6-migration