Shared (Visual Basic)

[アーティクル]
09/30/2008

更新 : 2007 年 11 月

宣言された 1 つ以上のプログラミング要素が、クラス全体または構造体全体に関連付けられ、クラスまたは構造体の特定のインスタンスに関連付けられないことを指定します。

解説

Shared を使用する状況

非共有であるクラスまたは構造体のメンバを共有すると、各インスタンスがメンバのコピーを別々に保持するのではなく、すべてのインスタンスがそのメンバを使用できます。このことは、たとえば、変数の値をアプリケーション全体で参照する場合に便利です。そのような変数を Shared で宣言した場合、すべてのインスタンスがストレージ内の同じ場所にアクセスするため、あるインスタンスが変数の値を変更すると、すべてのインスタンスが変更後の値にアクセスするようになります。

共有メンバとして宣言したからといって、アクセスレベルが変更されるわけではありません。たとえば、クラスのメンバを、共有プライベートメンバとして宣言することも (クラス内でのアクセスのみ可能)、非共有のパブリックメンバとして宣言することも可能です。詳細については、「Visual Basic でのアクセスレベル」を参照してください。

ルール

宣言コンテキストShared は、モジュールレベルでのみ使用できます。つまり、Shared 要素の宣言コンテキストは、ソースファイル、名前空間、プロシージャではなく、クラスまたは構造体である必要があります。
修飾子の結合 同じ宣言内で Shared を Overrides、Overridable、NotOverridable、MustOverride または Static (Visual Basic) と共に指定することはできません。
アクセス 共有要素にアクセスするには、そのクラスや構造体の特定のインスタンスの変数名ではなく、クラスや構造体の名前を使用して共有要素を修飾します。共有メンバにアクセスするために、そのクラスや構造体のインスタンスを作成する必要もありません。

次の例は、Double 構造体で公開されている共有プロシージャ IsNaN を呼び出します。

If Double.IsNaN(result) Then MsgBox("Result is mathematically undefined.")
暗黙の共有Const ステートメント (Visual Basic) で Shared 修飾子を使うことはできませんが、定数は暗黙的に共有されます。同様に、モジュールやインターフェイスのメンバは Shared では宣言できませんが、暗黙的に共有されます。

動作

ストレージ 共有変数や共有イベントは、そのクラスや構造体のインスタンスが何回作成されたとしても、メモリに一度だけ格納されます。同様に、共有プロシージャや共有プロパティは、ローカル変数を 1 セットだけ保持します。
インスタンス変数を使用したアクセス クラスや構造体の特定のインスタンスを格納する変数の名前で修飾して、共有要素にアクセスすることが可能です。この方法で予期しない動作が起きることは通常ありませんが、コンパイラは警告メッセージを表示し、変数名ではなくクラス名や構造体名を使ってアクセスします。
インスタンス式を使用したアクセス クラスや構造体のインスタンスを返す式を使用して共有要素にアクセスした場合、コンパイラは式を評価せず、クラス名や構造体名を使ってアクセスします。この式を使ってインスタンスを返す他に何か別の処理も実行しようとしていた場合は、予期しない結果になります。次に例を示します。
```
Sub main()
    shareTotal.total = 10
    ' The preceding line is the preferred way to access total.
    Dim instanceVar As New shareTotal
    instanceVar.total += 100
    ' The preceding line generates a compiler warning message and
    ' accesses total through class shareTotal instead of through
    ' the variable instanceVar. This works as expected and adds
    ' 100 to total.
    returnClass().total += 1000
    ' The preceding line generates a compiler warning message and
    ' accesses total through class shareTotal instead of calling
    ' returnClass(). This adds 1000 to total but does not work as
    ' expected, because the MsgBox in returnClass() does not run.
    MsgBox("Value of total is " & CStr(shareTotal.total))
End Sub
Public Function returnClass() As shareTotal
    MsgBox("Function returnClass() called")
    Return New shareTotal
End Function
Public Class shareTotal
    Public Shared total As Integer
End Class
```
このコード例では、インスタンスを使って共有変数 total に 2 度アクセスしていますが、コンパイラは 2 度とも警告メッセージを生成します。どちらの場合も、コンパイラは直接 shareTotal クラスを使ってアクセスし、インスタンスを使用しません。プロシージャ returnClass を呼び出そうとしていた部分では、returnClass の呼び出しが行われないため、ここに追加されている "Function returnClass() called" というメッセージの表示は実行されません。

修飾子 Shared は、次の構文で使用します。