精彩编程与编程技巧-将数据转换为内存二进制形式字符串...

将数据转换为内存二进制形式字符串（模拟CV?和MK?$两组函数） 
如 果 要 模 拟 这 些 函 数 ， 可 以 使 用 下 面 的 代 码 ： 
Declare Sub CopyMemory Lib "KERNEL32" Alias "RtlMoveMemory" ( _ 
hpvDest As Any, hpvSource As Any, ByVal cbCopy As Long) 
Function MKI$ (x As Integer) 
temp$ = Space$(2) 
hmemcpy ByVal temp$, x%, 2 
MKI$ = temp$ 
End Function 

Function CVI (x As String) As Integer 
If Len(x) <> 2 Then 
MsgBox "Illegal Function Call" 
Stop 
End If 
hmemcpy temp%, ByVal x, 2 
CVI = temp% 
End Function 

Function MKL$ (x As Long) 
temp$ = Space$(4) 
CopyMemory ByVal temp$, x&, 4 
MKL$ = temp$ 
End Function 

Function CVL (x As String) As Long 
If Len(x) <> 4 Then 
MsgBox "Illegal Function Call" 
Stop 
End If