Question

我尝试使用常量创建一个vb脚本类，并且出现800A03EA错误。它是VBS的错误吗？它不是OOP的基本规则吗？

Class customer
   ' comment it const and its works
   const MAX_LEN=70

   Private Name

   Private Sub Class_Initialize
      Name = ""
   End Sub

   ' name property.
   Public Property Get getName
      getName = Name
   End Property

   Public Property Let letName(p_name)
      Name = p_name
   End Property
end class

Answer 1

documentation列出了类上下文中允许的所有语句。 Const不在其中，因此不受支持。您可以使用在实例化期间初始化的私有成员变量（即Class_Initialize）来解决此问题：

Class customer
  Private MAX_LEN
  Private Name

  Private Sub Class_Initialize
    MAX_LEN = 70
    Name = ""
  End Sub

  ...
End Class

如果类的实例应公开此值，则可以将其实现为只读属性：

Class customer
  Private MAX_LEN

  Private Sub Class_Initialize
    MAX_LEN = 70
  End Sub

  'read-only property, so no "Property Let/Set"
  Public Property Get MaxLength
    MaxLength = MAX_LEN
  End Property

  ...
End Class

但是，正如Ekkehard.Horner正确指出的那样，对象内部代码仍然可以更改该值。如果不变性是该值的主要要求，则应将其实现为全局常量。

Answer 2

我同意Ansgar Wiechers的answer，但我想提出另一种选择。

如果不变性比性能更重要，则可以将值直接放在Get中，并使用属性来引用值而不是类级变量。

Class customer

  'read-only property, so no "Property Let/Set"
  Public Property Get MaxLength
    MaxLength = 70
  End Property

  ...
End Class

Answer 3

私有变量（可能带有getter）为您提供了一个从类外部只读的值，但类内部代码仍然可以更改该值。

因此，在constness最重要的情况下，使用全局Const（可能带有'命名空间'名称部分）可能是更好的解决方法。

内部不变的

3 个答案: