VB6 进制转换，二进制，八进制，十进制，十六进制互转和二进制流的提取等功能 - 第1页

VB6 进制转换，二进制，八进制，十进制，十六进制互转和二进制流的提取等功能

manong

2023年5月5日 00:37

新建From1（窗体），新建Command1（按钮CommandButton），代码：

具体代码只能由VIP查看，请升级。

新建modChangeSystem（模块 modChangeSystem.bas），代码：

具体代码只能由VIP查看，请升级。

全部回复（1）

VB6/ASP

manong

2023年10月30日 23:41

引用1楼

扩展一下：

如果使用 modChangeSystem.bas，那么

Private Sub Command2_Click()
    Dim bytB() As Byte
    Dim strHex As String

    strHex = InputBox("输入十六进制字符串空格间隔开：")
    If strHex <> "" Then
        bytB = HexToBytes(strHex)

        MsgBox "一共输入了：" & (UBound(bytB) + 1) & " 组十六进制。"
    End If
End Sub

可以输入：

a b ff

测试下，得到3。