28,391
社区成员
发帖
与我相关
我的任务
分享
Class ClassImpl
Public Property Get [Get](ByVal name)
[Get] = "Hello " & name
End Property
Public Property Let [Get](ByVal name, ByVal value)
WScript.Echo "Hello " & name & ": " & value
End Property
End Class
Dim cls
Set cls = New ClassImpl
cls.Get("wtogether") = "All right"
WScript.Echo cls.Get("wtogether")
Set cls = Nothing
Microsoft (R) Windows Script Host Version 5.6
版权所有(C) Microsoft Corporation 1996-2001。保留所有权利。
Hello wtogether: All right
Hello wtogether