查看: 613  |  回复: 0
  VB6 进制转换,二进制,八进制,十进制,十六进制互转和二进制流的提取等功能
楼主
发表于 2023年5月5日 00:37

新建From1(窗体),新建Command1(按钮CommandButton),代码:

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

新建modChangeSystem(模块 modChangeSystem.bas),代码:

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


1楼
发表于 2023年10月30日 23:41

扩展一下:

如果使用 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。

您需要登录后才可以回帖 登录 | 立即注册
【本版规则】请勿发表违反国家法律的内容,否则会被冻结账号和删贴。
用户名: 立即注册
密码:
2020-2024 MaNongKu.com