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

⋅求一个算法,有一个小数组和一个大数组 ,如何判断大数组中的成员是否包含所有小数组的成员? ⋅如何在定时器中实现类似队列的功能？ ⋅大家帮帮忙，为什么用timer就出现异常了？ 更多帖子 关注私信空间博客 wxl565 本版专家分：0 结帖率 98.59%: 第一个类模块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成员

该如何实现？请教各位

0 2011-02-18 16:20:34

回复数 14 只看楼主引用举报楼主

⋅85后也老了，看看贴吧推的啥

⋅【开源】发布一个软件“WeNote 微便签”，比系统自带的便笺好用，每个便签可独立设倒计时

⋅请教下有什么办法把下面bas模块中代码挪到类模块中？

更多帖子

关注私信空间博客

无·法

本版专家分：29382

版主

技术圈认证 用户完成年度认证，即可获得

签到达人 累计签到获取，不积跬步，无以至千里，继续坚持！

GitHub 绑定GitHub第三方账户获取

黄花 2011年10月 VB大版内专家分月排行榜第二
2011年3月 VB大版内专家分月排行榜第二
2011年2月 VB大版内专家分月排行榜第二: 发现确实不行，想将point改造成type xxx自定义声明还是失败了，挪到标准模块也不行，貌似没有办法了？

0 2011-02-18 16:46:00

只看TA 引用举报 #1 得分 0

⋅经验共享：关于诡异的托盘鼠标事件 ⋅XML 基础困惑之内嵌标签如何鉴别 ⋅关于加载外部对象的困惑 更多帖子 关注私信空间博客 andy95800 本版专家分：1117

Public Property Get MyProperty() As Variant

         MyProperty = MyPropValue

      End Property



      Public Property Let MyProperty(ByVal vNewValue As Variant)

         MyPropValue = vNewValue

      End Property

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

0 2011-02-18 16:49:13

只看TA 引用举报 #2 得分 20

⋅大神们，聊一聊混淆、加壳、加密的方案如何？分不多了，后面再加分吧！ ⋅好久没来，慰问一下各位 ⋅您好,欢迎访问单机版论坛,你若不信,我换成同一个ID发同样的话... 更多帖子 关注私信空间博客 神马都能聊 本版专家分：9709: 类内定义私有数组，然后通过属性实现。

0 2011-02-18 16:49:31

只看TA 引用举报 #3 得分 0

⋅85后也老了，看看贴吧推的啥

⋅【开源】发布一个软件“WeNote 微便签”，比系统自带的便笺好用，每个便签可独立设倒计时

⋅请教下有什么办法把下面bas模块中代码挪到类模块中？

更多帖子

关注私信空间博客

无·法

本版专家分：29382

版主

技术圈认证 用户完成年度认证，即可获得

签到达人 累计签到获取，不积跬步，无以至千里，继续坚持！

GitHub 绑定GitHub第三方账户获取

黄花 2011年10月 VB大版内专家分月排行榜第二
2011年3月 VB大版内专家分月排行榜第二
2011年2月 VB大版内专家分月排行榜第二: 引用 2 楼 andy95800 的回复:
      Public Property Get MyProperty() As Variant
         MyProperty = MyPropValue
      End Property

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

0 2011-02-18 16:51:14

只看TA 引用举报 #4    得分 3

⋅经验共享：关于诡异的托盘鼠标事件 ⋅XML 基础困惑之内嵌标签如何鉴别 ⋅关于加载外部对象的困惑 更多帖子 关注私信空间博客 andy95800 本版专家分：1117: 引用 3 楼 aisac 的回复:
类内定义私有数组，然后通过属性实现。

顶

0 2011-02-18 16:57:57

只看TA 引用举报 #5 得分 0

wxl565 本版专家分：0: 有具体代码例子么。。。

0 2011-02-18 17:06:59

只看TA 引用举报 #6 得分 0

⋅经验共享：关于诡异的托盘鼠标事件 ⋅XML 基础困惑之内嵌标签如何鉴别 ⋅关于加载外部对象的困惑 更多帖子 关注私信空间博客 andy95800 本版专家分：1117: 我觉得还是把Public datas() As New pointpic 放在模块里更省事一点没必要难为自己

0 2011-02-18 17:19:31

只看TA 引用举报 #7 得分 5

wxl565 本版专家分：0: 好吧同意楼上的。。男人何必为难自己

0 2011-02-18 17:29:01

只看TA 引用举报 #8 得分 0

wxl565 本版专家分：0: 我只是觉得实例化类的数组，会不会占用资源多些

0 2011-02-18 17:29:31

只看TA 引用举报 #9 得分 0

⋅大神们，聊一聊混淆、加壳、加密的方案如何？分不多了，后面再加分吧！ ⋅好久没来，慰问一下各位 ⋅您好,欢迎访问单机版论坛,你若不信,我换成同一个ID发同样的话... 更多帖子 关注私信空间博客 神马都能聊 本版专家分：9709

 Private datas() As New Class1



Public Function Set_Data(ByRef new_arr() As Class1)

    

End Function

Public Function Get_Data() As Class1()

    

End Function

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

0 2011-02-18 22:32:30

只看TA 引用举报 #10 得分 10

⋅Win7 下用MSCOMM控件的一点问题。 ⋅如何提供mscomm的通信效率 ⋅Timer控件是不可重入?对象不可重入?类不可重入? 更多帖子 关注私信空间博客 王二.麻子 本版专家分：7976: 干嘛非和系统较劲那。。。不让你定义你就换地方玩呀，VB的地盘，ms做主

0 2011-02-21 10:59:35

只看TA 引用举报 #11 得分 2

⋅求一个算法,有一个小数组和一个大数组 ,如何判断大数组中的成员是否包含所有小数组的成员? ⋅如何在定时器中实现类似队列的功能？ ⋅大家帮帮忙，为什么用timer就出现异常了？ 更多帖子 关注私信空间博客 wxl565 本版专家分：0: [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]参照这个改一下应该没问题。
-----------------------------------------------------
函数中间不用写任何代码？

0 2011-02-22 15:01:12

只看TA 引用举报 #12    得分 0

⋅求一个算法,有一个小数组和一个大数组 ,如何判断大数组中的成员是否包含所有小数组的成员? ⋅如何在定时器中实现类似队列的功能？ ⋅大家帮帮忙，为什么用timer就出现异常了？ 更多帖子 关注私信空间博客 wxl565 本版专家分：0

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

我是这么写的不行啊似乎

0 2011-02-22 15:13:24

只看TA 引用举报 #13 得分 0

wxl565 本版专家分：0: 的确不行，在别的函数调用的时候会出现对象变量或with块变量错误

0 2011-02-22 15:17:23

只看TA 引用举报 #14 得分 0

常数、固定长度字符串、数组、用户定义类型以及declare语句不允许作为对象模块的public成员 [问题点数：40分，结帖人wxl565]