Question

我正在尝试在vbscript中执行类似的操作

Class cla
    Public a, b
End Class

Class clb
    Public c
End Class

Set mySubObj = new clb
mySubObj.c = "value_C"

Set myObj = new cla
myObj.a = "value_A"
myObj.b = mySubObj

msgBox(myObj.b.c)

这不起作用，基本上我正在解析一个xml文档，然后处理一个用户定义的映射，其中可以包含vbscript，在脚本中变量将被访问，如“myobj.bc”这只是一个简单的例子但是任何帮助将不胜感激。

Answer 1

我想出了如何执行此操作，有关详细信息，请查看此处http://www.activexperts.com/vbscript-powershell-component/vbscriptclasses/下面的代码对我有用，希望这对其他人有用。

Class ClassA 
    Private m_A 
    Private m_B 

    Public Property Get A
        A = m_A 
    End Property 

    Public Property Let A(value) 
        m_A = value 
    End Property 

    'Since this property is and object must use 
    'Set instead of Let, and must 
    'specifically Set the values 

    Public Property Get B 
        Set B = m_B 
    End Property

    Public Property Set B(value) 
        Set m_B = value
    End Property 
End Class 

Class ClassB
    Public C 
End Class 

Set a = New ClassA
a.a = "value1" 
Set a.b = new ClassB 
a.b.c = "value2" 

MsgBox(a.b.c) 'shows "value2

如何在vbscript中将类的属性设置为不同的类？

1 个答案: