在 类 中，怎样导出自定义类型的数据组？该如何解决

在 类 中，怎样导出自定义类型的数据组？
在 类 中，怎样导出自定义类型的数据组？

我在类中定义了一个自定义类型:

VB code

Private Type DataRecord     '数据区数据信息        ID     As Long             '数据ID、   记录号        Type   As Byte             '类型       1字节        UseName   As String * 32   '标题       32字节End TypePrivate tDataRecord()  As DataRecord 

怎样把读到 tDataRecord() 数组中的数据导出到窗体中使用呢？

[解决办法]
有一种类的数据绑定的技术,在msdn上有,我没做过,只知道有.

做了数据绑定应该可以绑定到grid之类的控件上吧.
[解决办法]
有点麻烦，因为VB不能将DataRecord（用户定义的数据类型）作为public函数的返回值
使用集合方案：

类模块中，定义读取数据函数
public function GetGata(Index as long) as collection
if index<lbound(tDataRecord) or index>ubound(tDataRecord) then exit function
set GetGata=new collection
with tDataRecord(index)
GetGata.add .id,"id"
GetGata.add .type,"type"
GetGata.add .username,"username"
end with
end function

调用位置
dim col as collection
set col=getdata(index)'index指定一个有效的数组下标
if not col is nothing then
id=col("id")
type1=col("type")'不要使用type作为变量名
username=col("username")
end if
[解决办法]
Private怎么导出? 外部不可访问. 我相信你在类里也无法定义成 public type

唯一的做法是:
CLASS XXX
public ID As Long
public aType As Byte '最好不要用type作变量名,是关键字
publuic UseName As String * 32



然后定义这个XXX数组当作自定义数据组来用
反正 class = struct + function 只用一半就行了.

查看更多 下一篇