【VB.NET】シングルトンについて

Question

VB.NETで値を別クラスから取得し、シングルトンで呼び出せるような仕組みを作成したいのですが、どのようにすればよいのでしょうか。

Public Class Data

    Private Shared ReadOnly Singleton As New Data

    Public Shared Function GetInstance() As Data
        Return Singleton
    End Function

End Class

このシングルトンで作成した「Data」クラスで、別クラスから取得した値を保持し、
使用する際に、シングルトンにて呼び出せるような仕組みを作成したいです。

この時、保持した値を使用するときはDim ss as Data = Data.GetAInstance()
のようにすればよいと思うのですが、値を他クラスから取得ときにどのように取得して、どのようにこの「Data」に保持させればよいのかが分かりません。

この場合、変数Singletonに保持したい値が格納されればいいのでしょうか。

簡単なサンプルコードとともに説明していただけると嬉しいです。

Answer 1

こういうこと?

Dim data as Data = Data.GetAInstance()
data.DoSomething(someParameter) 'メソッドは非Sharedで普通に定義すればいい

---

例えば

Public Class Data

    Private Shared ReadOnly Singleton As New Data

    Public Shared Function GetInstance() As Data
        Return Singleton
    End Function

    Public Name As String

    Public Sub Greeting()
        Console.WriteLine ("I'm "+ Name)
    End Sub
End Class

利用側

shared function Main as integer
    Dim data As Data = Data.GetInstance()
    d.Name = "Alice"
    d.Greeting()
    return 0
End function

出力

I'm Alice

Comments

[programer]

早急な回答ありがとうございます。
この場合のDoSomething()とはDataクラスの中に値を受け取る専用の関数を用意するという意味でしょうか。
その場合、Data.GetInstance()とすることでその値は取得できるのですか。

[ozwk]

「値を受け取る」というのがどういう状況かよくわからないので、
シングルトンではなかったとしたら、こう書くという例をください

[programer]

ふつうは、DoSomething(XXX)のようにして引数として関数に与えることで他クラスの関数に値を渡せると思うのですが、今回の「Data」クラスの中のDoSomething()に値を渡したところで、その値を使用するときになぜData.GetAInstance()とすることでDoSomething()に与えた値が使用できるのかということが疑問でした。
値を持っていいるのは、Data.DoSomething()なはずなのに、Data.GetAInstance()でなんでDoSomething()の値をもってこれるのかという意味でした。
たぶん仕組みがよくわかってないからだと思います。申し訳ありません。

[programer]

詳細なサンプルコードまで書いていただきありがとうございます。
書いて頂いた例だとd.Name = "Alice"で「Data」クラスのName変数に値を格納し、
d.Greeting()で、その格納した値を使用しているのだと思うのですが、この前にData.GetAInstance()とするのは何のためなのですか。
理解度が悪く、長々と申し訳ありません。

[ozwk]

Dataクラスのインスタンスを取得するためです。

[programer]

そうですよね。
理解ができました。わからないことばかりで申し訳ありませんでした。
ありがとうございました。