发信人: fishy()
整理人: winsy(2003-03-05 15:53:24), 站内信件
|
Private Declare Sub RtlMoveMemory Lib "KERNEL32" (hpvDest As Any, hpvS
ource As Any, ByVal cbCopy As Long)
作用：从hpvSource开始复制长度为cbCopy的内存信息到hpvDest
举例：
1.数组赋值：
Dim A(1 to 4) As Integer,B(1 to 5) as integer
dim I as integre
for i=1 to 4
a(i)=i
next
rtlmovememory b(2),a(1),len(a)
这样b(2),b(3),b(4),b(5)就分别为a(1),a(2),a(3),a(4)
2.字节拆分
Dim I as integer,B(1 to 2) as byte
i=asc("中")
rtlmovememory b(1),i,len(i)
这样b(1)和b(2)就分别是i的高位和低位，也就是组成“中”的两个Ascii字符。
--
Dim fishy As Friend
回复时请打勾
------------
欢迎大家访问酷码工作室：http://comma.my163.net
※ 来源:．月光软件站 http://www.moon-soft.com．[FROM: 202.103.41.78]
|
|