外部スクリプトからPublicプロパティの変数を取得する

Question

外部スクリプトからPublicプロパティを取得する方法を知りたいと思います。テストコードは以下の通りです。このメソッドを使用してtValueの空の変数を表示しているようです。

私はここで何かしていないのですか？

'External Code 
Set nObj = New Test 
Response.Write(nObj.tValue) 

'The Class 
Class Test 
    Public Test1 

    Public Property Get tValue 
     tValue = Test1 
    End Property 

    Sub Loadit 
     Test1="123" 
    End Sub 
End Class 

Answer 1

コンストラクタの名前が正しくありません。従来のASPのクラスのコンストラクタのデフォルト名はClass_Initializeです。それに基づいて、あなたのコードは次のようになります。

'External Code 
Set nObj = New Test 
Response.Write("tValue = " & nObj.tValue) 

'The Class 
Class Test 
    Private Test1 

    Public Property Get tValue 
     tValue = Test1 
    End Property 

    Public Sub Class_Initialize 
     Test1 = "123a" 
    End Sub 
End Class 

それとも、そのまま自分のクラスのコードを維持したい場合、あなたはあなたの外部コードを変更する必要があります。

'External Code 
Set nObj = New Test 
nObj.Loadit 
Response.Write(nObj.tValue) 

Answer 2

Nevermind、それはSubを最初に呼び出さなかったからです。

これは修正されました。

'External Code 
Set nObj = New Test 

Call nObj.Loadit 

Response.Write(nObj.tValue)