动态数组Redim　传参数的有关问题

动态数组Redim　传参数的问题
Private   sendbuff()   As   Byte　　　 '
private   sub   senddata()
  　Do   While   j   <   singlenum　
      GetNum=.......
      ReDim   sendbuff(12   +   GetNum)     '第一次循环通过，第二次出错 "This   array   is   fixed   or   temporarily   locked "

      sendbuff(0)=170
      sendbuff(1)=170
      ;
      ;
      If   Not   sendsucc(sendbuff,   lenbuff)   Then
                is_sendbool   =   False
                MsgBox   ( "通信错误过多，停止发送！ ")
                closehandle(hcomm)
                Exit   Do
        End   If
end   sub

Private   Function   sendbuff(buff()   As   Byte,   sLen   As   Long)   As   Boolean

    Dim   answer   As   Long
    Dim   ret   As   Long
    ret   =   WriteFile(hComm,   buff(1),   sLen,   answer,   0)     'hComm   打开Comm1
    Sleep   10
    sendbuff=   ret

End   Function

'打开串口
hComm   =   CreateFile( "COM1 ",   GENERIC_READ   Or   GENERIC_WRITE,   0,   ByVal   0&,   OPEN_EXISTING,   FILE_FLAG_POSIX_SEMANTICS,   0)




------解决方案--------------------
我想你需要延迟一会,就是你发送太快了,该内存正在被使用,你试图重定义内存快大小
你单步调式,看还是这个错误不??
If Not sendsucc(sendbuff, lenbuff) Then
is_sendbool = False
MsgBox ( "通信错误过多，停止发送！ ")
closehandle(hcomm)
Exit Do
End If
doevents
------解决方案--------------------
检查的方法，如果你怀疑参数问题的话就不要作为参数传出。把那个函数写入主函数看看
------解决方案--------------------
动态数组当做参数;调用后不可重新Redim.