Question

vb.net 如何将十六进制字符串转换为十六进制变量

Dim strHex As String = "1A"
Dim numHex As Integer

如何转换才能使 numHex = &H1A 呢？

Answer 1

 VB字符串可通过使用StrConv 函数，将字符串由 Unicode 转成系统的缺省码页后，再获取每个字节的十六进制字符后拼接起来。

StrConv 函数，返回按指定类型转换的 Variant (String)。

实现代码：

Private Sub Command1_Click()
    Dim strSj As String
    Dim strHexSj As String
    Dim i As Long
    Dim bytSj() As Byte
    strSj = "123ABC十六进制"
    bytSj = StrConv(strSj, vbFromUnicode)
    For i = 0 To UBound(bytSj)
        strHexSj = strHexSj & Right("0" & Hex(bytSj(i)), 2)
    Next
    Debug.Print strHexSj
End Sub

vbFromUnicode，将字符串由 Unicode 转成系统的缺省码页。

既可以转换单字节字符也可转换双字节字符。

Answer 2

numHex =Integer.Parse(strHex, Globalization.NumberStyles.AllowHexSpecifier)
或
numHex = Integer. Parse("&H" & strHex)

Answer 3

numHex = "&H" & strHex
就这么简单
楼上的台麻烦

Answer 4

numHex = Cint("&H" & strHex)