vbs Public Property Get 的使用

sspku

如下代码， obj.getValue  为什么取不到值

Dim result,num
Dim obj
Set obj = New A
obj.setValue = Now

msgbox  obj.getValue  

Class A
     Public  In
     Public  out     
     
     Public Property Let setValue (aaa) '输入属性值,
          In = aaaa
     End Property   
        
     Public Property Get getValue   '输出属性  
          out = In
     End Property   
     
     
     Public Function calcDate(num)
    .............................
     End Function
     
End Class

skyzhu

变量别用in

Public Property Get getValue   '输出属性  
          getValue  = In1
     End Property   
这样就应该能返回了

sspku

回复 2# skyzhu

必须是方法名么？