控件里的数组变量,赋值和调用的问题.
程序中插入一个TD的自编控件.
源码如下:
Dim tdata() As Byte
tdata = CStr(tdata) & CStr(aa)
End Property
Public Property Let clsb(ByVal aa As String)
ReDim tdata(0)
End Property
Public Property Get getb() As Byte
getb = tdata
End Property
程序中调用控件
为td控件传入数据
td1.send = 二进制文件数组.
数据可以正常传入TD1的tdata中.
然后用
dim tt() as byte
tt = td1.getb
调出数组时出错.
如果传送的不是byte而是普通的文本如NOW(),或ABC之类的信息(当然前面的AS BYTE已改STRING),调用调出都不会出错.
请问如何解决可以正常让TT得到TD1里的TDATA的数组?
问题点数：50、回复次数：2Top
1 楼tztz520（午夜逛街）回复于 2006-03-20 16:32:44 得分 50
这样呢Public Property Get getb() As Byte()Top
2 楼gddd（gddd）回复于 2006-03-20 16:44:41 得分 0
ok搞定。呵呵Top
