字节数组的操作 50分

Question

以下是我原来使用的一部分代码
Private Sub TcpComm_DataArrival(ByVal bytesTotal As Long)
Dim ReceiveData() As Byte '接收的所有内容
   On Error GoTo MyExit   TcpComm.GetData ReceiveData, vbByte 
   dealData Receivedata（deal 函数是以数组为参数的函数）
   exit sub
Myexit：
end sub现在发现只需要使用Receivedata中的部分内容
但是又不想修改dealData子程序
所以希望再建立一个数组 usefulData（其中的元素为所有需要的内容，并且作为dealData函数的参数）
该如何操作？？

Answer 1

Public Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)...dim nStart as integer,nEnd as integer
'假设 10 到 20 为有效内容
nStart=10
nEnd=20
CopyMemory  usefulData(0),ReceiveData(nStart),nEnd-nStart
...

Answer 2

对不起少了一个 1  呵呵 应该是：
CopyMemory  usefulData(0),ReceiveData(nStart),nEnd-nStart+1

Answer 3

CopyMemory  是个好东西，推荐使用

Answer 4

谢谢 baoaya(点头)， yo_jo(你眼前的彩虹)
你们的答复帮了我的大忙，谢谢