请各位看代码
Option Explicit
Private Type billother
   Billname As String
   Billbool As Boolean
   Billvalue As Single
End TypePrivate Type cellitem1
  CellOrdinal As Integer '房间号 包括楼层和房间序号,如 301,用一维矩阵进行解决。
  Disburseway As String '付款方式
  rental As Single '租金
  deposit As Single '押金
  Costother(1 To 6) As billother '其他费用
End TypePrivate 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里还没人能够给出正确的回答,我如果想实现自由的使用类中的用户自定义类型,该怎么办???

解决方案 »

  1.   

    各位请注意是在Public Function cellonesattachatom(ByVal houserial As Integer, ByRef other As billother)这行报错!
      

  2.   

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

  3.   

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

  4.   

    高手一出,天下无敌,!Laviewpbt,就是强!!!
      

  5.   

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