转换单一到十六进制

Question

我正在尝试将以下VB6代码转换为VB.NET：

@IBAction func doneBtn(sender: AnyObject) {

    if let initialChips = Int(txtChips.text!) {
        self.initialChips = initialChips
    }else {
        self.initialChips = 0
    }

    if let initialBind = Int(txtBind.text!) {
        self.initialBind = initialBind
    }else {
        self.initialBind = 0
    }
}

我试图在＆＃34; Conversions＆＃34;中找到一个功能。命名空间，但我没有找到任何。

有人可以告诉我如何轻松完成这项工作吗？

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