以下是我原来使用的一部分代码
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函数的参数)
该如何操作??
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函数的参数)
该如何操作??
解决方案 »
- 定义一个结构或类型后,当需要使用时,一定要使用Imalloc分配内存吗?望大侠们指点一下!
- GWBASIC的2进制BAS文件显示源码 愿出RMB求购
- 关于边框的问题
- 自己写了一个简单的 ActiveX 如何在VB中使用他,要注册?注册ID如何知道?
- 文件的读与写的问题
- 偶新人提一巨基础的加载窗口的问题
- 不知各位是否遇到过这个问题,程序调试出错时VB6便会自动关闭……
- 用电脑拔号上网,怎样获得上网时间。
- 现实一点,各位,我和别人赌了巴西不能赢中国队净3球以上,大家如何看?
- 一个有关滚动条的问题 续2
- 如何限制list控件的行数,假如只能additem进3000行
- 怎样得出一个任意四则运算的结果?
'假设 10 到 20 为有效内容
nStart=10
nEnd=20
CopyMemory usefulData(0),ReceiveData(nStart),nEnd-nStart
...
CopyMemory usefulData(0),ReceiveData(nStart),nEnd-nStart+1
你们的答复帮了我的大忙,谢谢