class 与 type之间的问题 .

zodane

   为了不使程序中出现过多的类.  
   因此在一些简单的类用作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型参数

蜜蜂巢

前辈写的东西就是高，如果我没有记错，这个应该是一个类的属性操作方法.
只有类模块才能使用这个东西，能实现什么样的效果，我也不记得了。
我都是自定义自的方式，很少使用这样的。
但我明白Private Type UGp 是这个类的里面的自定义类型
您是方法是想通过类的属性操作来取得或设置这个自定义的UserW数组
可能出错会不会是数组的下标问题呢？

jyc8778

你的这个程序是写在类里面的吧，要从外面传递进来的话，外面的数据也要认识这个TYPE类，你把它定义成公共类型看看。

zodane

  错误没有出 ,但是想在程序里改变这个数组的内容行不通 .
  读访问是可以的.
  类模块和模块没什么大的区别 .
  只是用类比用模块好维护些罢了,
  习惯问题 ,我现在已经习惯了面向对象的思维方式.  
  

xiaoid

想不通啊。为啥都定义成了type结构。还想用class来操作值。
别说操作不方便，而且还浪费资源。
直接操作数组结构不是很好吗？保存数据到文件也很方便的。

顺便提一下结构。type是名称，用name和title也比较好吧。物品所在的框名是什么意思？？
搞不懂。

呵呵。。

zodane

   回  5楼 .  因为游戏里面  不只出现一个物品道具窗口.  所以要设置一个标识符(名称)来区别他们. 关于占资源问题...  倒是偶尔听说过...
   至于操作问题....
   编码方式上是比用模块废事 , 但是后期维护方便了.   你可能不太明白软件工程的理论吧

   回 .3楼 : 当然要定义成公共类型 . 不然根本不让你运行程序 ,直接提示编译出错.我在模块里面定义了, 你应该看到, 都使用友元属性了.
    这套技术是当年yinxiaodan前辈教的. 现在找不到他老人家了.
   唉...  都怪我学艺不精.

zodane

1年前, 我用你说的那种方法.
完了以后 ,
你看看 ,我这一年前后俩个作品的差别就知道谁好谁坏了.  

psic

xiaoid: Re:class 与  type之间的问题 .

直接操作数组结构不是很好吗？

这个不行的吧
要VB.net以后才能在结构里加入方法啊

jyc8778

zodane: Re:class 与  type之间的问题 .

当然要定义成公共类型 . 不然根本不让你运行程序 ,直接提示编译出错.我在模块里面定义了, 你应该看到, 都使用友元属性了.

看你的类型就知道是私有类型，怎么说是定义成了公共类型了？是你的类型定义错误。

psic

jyc8778: Re: Re:class 与  type之间的问题 .


看你的类型就知道是私有类型，怎么说是定义成了公共类型了？是你的类型定义错误。

对，这里明明就是写的Private

Private Type UGp '存储用户物品数据