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

Question

第一个类模块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成员该如何实现？请教各位

Answer 1

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

Answer 2

本帖最后由 bcrun 于 2011-02-25 20:31:38 编辑

  

Answer 3

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

Answer 4

本帖最后由 bcrun 于 2011-02-25 20:32:18 编辑

  

Answer 5

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

Answer 6

[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]参照这个改一下应该没问题。
-----------------------------------------------------
函数中间不用写任何代码？

Answer 7

本帖最后由 bcrun 于 2011-02-25 20:32:47 编辑

  

Answer 8

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