也就是在调用dll的工程代码中如何来把定义一个变量,在它被付值后,dll中的mvarstr也同时被付了这个值?

解决方案 »

  1.   

    这是两个属性过程   cls.str="abc" 时发生 let
       debug.print cls.str   时发生 get
      

  2.   

    比如我在 testdll里有mvarstr这个属性
    Private mvarstr As String '局部复制Public Property Let str(ByVal vData As String)
    '向属性指派值时使用,位于赋值语句的左边。
    'Syntax: X.str = 5
        mvarstr = vData
    End Property
    Public Property Get str() As String
    '检索属性值时使用,位于赋值语句的右边。
    'Syntax: Debug.Print X.str
        str = mvarstr
    End Property现在我在公程中引用testdll
    然后
    Global Str As String
    Public NowUser As New testdll.UserCls 
    str='ok'
    这样的话会不会付给 mvarstr
    要怎么样付给mvarstr
      

  3.   

    现在我主要想这样,在主程中有个AdoConnectionStr,我想在给它付值时,马上把他的值付给Activexdll中的AdoConnectionStr里面去,我有很多个dll,最好一次全付给他们
      

  4.   

    Global Str As String
    Public NowUser As New testdll.UserCls 
    str='ok'NowUser.str=str         '<-------------
      

  5.   

    如果这样行的话要这话什么 ?
    Public Property Let str(ByVal vData As String)
    '向属性指派值时使用,位于赋值语句的左边。
    'Syntax: X.str = 5
        mvarstr = vData
    End Property
    Public Property Get str() As String
    '检索属性值时使用,位于赋值语句的右边。
    'Syntax: Debug.Print X.str
        str = mvarstr
    End Property
      

  6.   

    Private mvarstr As String '局部复制
    Public Property Let str(ByVal vData As String)
    '向属性指派值时使用,位于赋值语句的左边。
    'Syntax: X.str = 5
        mvarstr = vData
        'str1 = vData
    End Property
    Public Property Get str() As String
    '检索属性值时使用,位于赋值语句的右边。
    'Syntax: Debug.Print X.str
        str = mvarstr
    End Property这里面的str 和 mvarstr 是不是都只是私有变量,我在activexall里的form里用str是不是要声明啊?