源程序备份.txt

这是一个很好的字模软件

Private Sub GetHZZM(MYCHAR As String)
Dim JNM As Variant, QWM As Variant '定义JNM为机内码，QWM为区位码
Dim QM As Variant, WM As Variant    '定义QM为区码，WM为位码
Dim ADDR As Variant                 '定义ADDR为偏移地址
Dim i As Integer, FNUM As Integer, NUM_BYTES As Variant
Dim BYTES() As Byte
JNM = Hex(Asc(MYCHAR))              'MYCHAR是一个汉字字符
QWM = Hex(Asc(MYCHAR) - &HA1A1)     '机内码-A1A1=区位码
XX = JNM
YY = QWM
If Len(QWM) = 3 Then
QM = Mid(QWM, 1, 1)                 '通过区位码得到区码

WM = Mid(QWM, 2, 2)                 '通过区位码得到位码
ElseIf Len(QWM) = 4 Then
QM = Mid(QWM, 1, 2)
WM = Mid(QWM, 3, 2)
End If
ADDR = 32 * ((CLng("&H" & QM)) * 94 + (CLng("&H" & WM))) '求偏移地址
FNUM = FreeFile
Open App.Path + "\HZK16" For Binary As #FNUM '打开库文件KHKZ16
NUM_BYTES = LOF(FNUM)
ReDim BYTES(1 To NUM_BYTES)         '获取字库数据
Get #FNUM, , BYTES
Close FNUM                          '关闭字库文件
                                    '字符的字模点阵，存放在全局数据变量ZMDZ中
For i = 1 To 32
ZMSZ(i) = BYTES(ADDR + i)
Next


End Sub