Constant inside class

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 customer 
    Private MAX_LEN 
    Private Name 

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

    ... 
End Class 

：あなたは、インスタンス化（すなわちClass_Initialize中）の間に初期化するプライベートメンバ変数を使用することによって、問題を回避することができます。 Ekkehard.Hornerが正しく指摘したように

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 

しかし、値は依然としてオブジェクト内部コードによって変更することができます。不変性がこの値の主な要件であれば、それをグローバル定数として実装する必要があります。

Answer 2

（おそらくゲッター付き）プライベート変数はあなたに読み取り専用で、クラスの外から値を与えるが、クラス内部のコードでは、まだその値を変更することができます。

だから、地球のConst（おそらく「名前空間」名前の一部）を使用すると、const性が最も重要である場合は、より良い回避策かもしれません。

Answer 3

私はAnsgar Wiechersのanswerに同意しますが、別のオプションを提案したいと思います。

不変性は、パフォーマンスよりも重要であるならば、あなたは、Getで値を直接入れて、代わりにクラスレベルの変数の値を参照するためにプロパティを使用することができます。

Class customer 

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

    ... 
End Class