vb提取汉字字模

Question

在vb下如何提取汉字字模,最好有原代码.
(详细一些)

Answer 1

Function hz(inputstr As String)
Dim F
Dim L1, R1 As IntegerF = Hex(Asc(inputstr))
L1 = CInt("&H" + Mid(F, 1, 2))
R1 = CInt("&H" + Mid(F, 3, 2)) qh = L1 - &HA0
 wh = R1 - &HA0
 Offset = (94 * (qh - 1) + (wh - 1)) * 32 Dim file_num As Integer
 Dim buffer(31) As Byte
 file_num = FreeFile
 Open App.Path + "\hzk16" For Binary As #file_num
 Get #file_num, Offset + 1, buffer
 Close #file_num
 
End Function