常数、固定长度字符串、数组、用户定义类型以及declare语句不允许作为对象模块的public成员

[wxl565]

第一个类模块classPoint,定义了两个变量
Option Explicit
Public X As Single
Public Y As Single
第二个类模块classData，想定义个数组。
Option Explicit
Public datas() As New pointpic

我的想法是以后用第二个类的对象来针对每个点的XY操作，如 dim a as new classData;a.datas(1).x=10 ;a.datas(1).Y=20 ;

但提示classData类定义错误：常数、固定长度字符串、数组、用户定义类型以及declare语句不允许作为对象模块的public成员

该如何实现？请教各位

[无·法]

发现确实不行，想将point改造成type xxx自定义声明还是失败了，挪到标准模块也不行，貌似没有办法了？

[andy95800]

Public Property Get MyProperty() As Variant
         MyProperty = MyPropValue
      End Property

      Public Property Let MyProperty(ByVal vNewValue As Variant)
         MyPropValue = vNewValue
      End Property

应该可以在类模块中构造自己的属性来代替那个数组

[神马都能聊]

类内定义私有数组，然后通过属性实现。

[无·法]

[Quote=引用 2 楼 andy95800 的回复:]

Public Property Get MyProperty() As Variant
MyProperty = MyPropValue
End Property

Public Property Let MyProperty(ByVal vNewValue As Variant)
MyPropValue = vN……
[/Quote]这个之前我也尝试了，失败告终。

[andy95800]

[Quote=引用 3 楼 aisac 的回复:]
类内定义私有数组，然后通过属性实现。
[/Quote]

顶

[wxl565]

有具体代码例子么。。。

[andy95800]

我觉得还是把Public datas() As New pointpic 放在模块里更省事一点 没必要难为自己

[wxl565]

好吧 同意楼上的。。男人何必为难自己

[wxl565]

我只是觉得实例化类的数组，会不会占用资源多些

[神马都能聊]

 Private datas() As New Class1

Public Function Set_Data(ByRef new_arr() As Class1)
    
End Function
Public Function Get_Data() As Class1()
    
End Function

参照这个改一下应该没问题。

[王二.麻子]

干嘛非和系统较劲那。。。不让你定义你就换地方玩呀，VB的地盘，ms做主

[wxl565]

[code=V]Private datas() As New Class1

Public Function Set_Data(ByRef new_arr() As Class1)

End Function
Public Function Get_Data() As Class1()

End Function[/code]参照这个改一下应该没问题。
-----------------------------------------------------
函数中间不用写任何代码？

[wxl565]

Private picpars() As New pointPic


Friend Property Let datas(ByRef new_arr() As pointPic)
    picpars = new_arr
End Property

Public Property Get datas() As pointPic
    datas = picpars
End Property

我是这么写的 不行啊似乎

[wxl565]

的确不行，在别的函数调用的时候会出现 对象变量或with块变量错误