这种情况是不允许的
正确的做法是
添加一个类模块 把他的Instancing 属性设置为 5-MultiUse
然后把你的Type 定义拷贝到这个类里面,去掉模块里面的定义

解决方案 »

  1.   

    To DeD:
     怎样设置类模块的Instancing 属性,没看见这个属性。
    继续帮忙!谢谢
      

  2.   

    你的使用的是中文版还是英文版?
    工程是Standard EXE还是Active DLL?
      

  3.   

    你的使用的是中文版还是英文版?
    工程是Standard EXE还是Active DLL?
      

  4.   

    另外一种方法
    Public Function GetData(ByVal CaoID As Integer, ByVal Index As Long, Data As Variant) As Integer 
    ...
    End Function
    Public Function AddData(ByVal Data As Variant) As Integer 
    ...
    End Function
      

  5.   

    中文版,Standard EXE
    提示是编译错误,我想是语法错误,应该与设置属性无关。
    老兄,帮忙!
      

  6.   

    如果是这样你也可以这样处理
    添加一个工程属性设置为 ActiveX DLL
    (因为Standart EXE 得类没有Instancing 这个属性)
    修改Class1的名称 
    然后把你的Type 定义拷贝到这个类里面,去掉模块里面的定义 
    编译这个动态连接库
    在 你的Standart EXE 中引用这个动态连接库