hexedit.bas

来自「VB6.0编写串行口调试软件,通信软件,可实现十六进制,ASCII码的显示.欢迎」· BAS 代码 · 共 26 行

Attribute VB_Name = "HexEdit"
'接收模块

Public bytReceiveByte() As Byte   '接收到的字节
Public intReceiveLen As Integer   '接收到的字节数


'显示模块
Public strAddress As String       '地址信息
Public strHex As String           '十六进制编码
Public strASCII As String         'ASCII码

Public intHexWidth As Integer     '显示列数

Public intOriginX As Long         '横向原点（象数）
Public intOriginY As Integer      '纵向原点（行）
Public intLine As Integer         '总行数

'显示常量
Public Const chrWidth = 105                 '单位宽度
Public Const chrHeight = 2 * chrWidth       '单位高度
Public Const BoardWidth = 210               '预留边界
Public Const LineMax = 16                   '最大显示行数