难道VB6就不支持类里的方法参数列表有用户定义类型的变量吗？？？

stevexuyun 2010-05-28 01:18:19

请各位看代码
Option Explicit
Private Type billother
Billname As String
Billbool As Boolean
Billvalue As Single
End Type

Private Type cellitem1
CellOrdinal As Integer '房间号包括楼层和房间序号，如 301,用一维矩阵进行解决。
Disburseway As String '付款方式
rental As Single '租金
deposit As Single '押金
Costother(1 To 6) As billother '其他费用
End Type

Private cellones() As CellItem '房间数组，需要重定义的
Private floorcell As uc_floorcell '创建一个控件类的声明

Public Function cellonesattachatom(ByVal houserial As Integer, ByRef other As billother) '其他的费用
Dim i As Integer
For i = 0 To UBound(cellones(houserial))

Next i
End Function

非运行时（也就是解释时）报错，报错如下

Private Enum和用户定义类型不能做为参数、公共过程的返回类型、公共数据成员或公共用户定义类型的字段使用

我看了的，CSDN里还没人能够给出正确的回答，我如果想实现自由的使用类中的用户自定义类型，该怎么办？？？

...全文

172 13 打赏收藏转发到动态举报

写回复

用AI写文章

13 条回复

切换为时间正序

请发表友善的回复…

发表回复

stevexuyun 2010-05-28

打赏
举报

yimins的回答也不错，学习了，不过分数散尽，不好意思

yimins 2010-05-28

打赏
举报

1、将标准exe工程改为activeX工程，然后建立一个全局模块，在模块中用public定义自己的类型。
2、自己建立一个类模块，用类模块代替自定义类型来进行传递。

stevexuyun 2010-05-28

打赏
举报

高手一出，天下无敌，！Laviewpbt，就是强！！！

laviewpbt 2010-05-28

打赏
举报

Public 改为friend在单个工程时可以。

stevexuyun 2010-05-28

打赏
举报

提供其他办法也加分！！！

ylgm44 2010-05-28

打赏
举报

想其他办法把

ylgm44 2010-05-28

打赏
举报

不支持

stevexuyun 2010-05-28

打赏
举报

........在线等啊，同仁们，为了更美好的未来，为了我们做的软件能获得他人和社会的认可，为了多多赚钱，同仁们，怎么办，这个问题？？？

stevexuyun 2010-05-28

打赏
举报

看来此问题难倒一大批人，专家啊，出来吧！

Alco2007 2010-05-28

打赏
举报

up,我也遇到这个问题，不知道怎样解决

stevexuyun 2010-05-28

打赏
举报

如果把Public Function cellonesattachatom(ByVal houserial As Integer, ByRef other As billother)中的public改为 private就可以通过，不报错，但我要把这个函数做成公有的接口，方便UI调用它，总不能做成private的吧，那怎么搞呢？请各位达人想个万全之策！