Постоянный внутренний класс

Question

Я попытался создать класс скриптов vb с константой и получил ошибку 800A03EA. Это ошибка VBS? Разве это не основное правило ООП?

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

Частная переменная (возможно, с геттером) дает вам значение, доступное только для чтения извне класса, но внутренний код класса все еще может изменить это значение.

Таким образом, использование глобальной Const (возможно, с частью названия пространства имен) может быть лучшим способом обхода в тех случаях, когда константа является наиболее важной.

Answer 3

Я согласен с Ansgar Wiechersanswer, но хотел бы предложить другой вариант.

Если неизменяемость важнее производительности, вы можете поместить значение непосредственно в Get и использовать свойство для ссылки на значение вместо переменной уровня класса.

Class customer 

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

    ... 
End Class