VB class 与 type 的 问题
为了不使程序中出现过多的类.
因此在一些简单的类用作type 定义在类中.
现在在这个类中定义以这种type为数据类型的数组 .并通过友元属性让外部程序能够访问
问题出来了, 类中的元素可以被外部程序读 , 但是写功能却无法实现.
Private Type UGp '存储用户物品数据
ID As Long '物品ID号
PType As String '物品名称
Pnum As String '物品所在框名
IsCheck As Boolean '物品是否丢失
UseTime As Date '使用时间
Njd As Integer '物品耐久度
End Type
Private Mcount As Integer '数组元素数量
Private UserWP() As UGp '用户物品数据组
Friend Property Get Unum(num As Long) As UGp '根据名称读成员
Dim Index As Integer
Index = FindData(num)
Unum = UserWP(Index)
End Property
Friend Property Let Unum(num As Long, vData As UGp) '根据名称写成员 (用户物品数据)
Dim Vdata1 As UGp
Dim Index As Integer
Index = FindData(num)
Vdata1 = vData
UserWP(Index) = Vdata1
End Property
一般情况下 写的过程 需要用byval 型参数 ,但是这里好像不许把type做为byval型参数
[解决办法]
public type ?
[解决办法]
在modules里定义public type
[解决办法]
能不能为static
或者定义静态变量用于存数据
