VB.NETでのSharedの使い方とは？Shared変数・コンストラクタ・メソッド

この記事でわかること

システム
エンジニア

VB.NETでのSharedの使い方を教えてください。

プロジェクト
マネージャー

Shared修飾子の使い方について詳しく紹介します。

VB.NETでのSharedの使い方とは？

今回は、VB.NETでのShared修飾子の使い方について説明します。Shared修飾子を付与したメンバは、インスタンスを作成しなくても存在します。もちろん、インスタンスを作成しても存在し、すべてのインスタンスで共有できます。

ここでは、Shared変数、SharedコンストラクタおよびSharedメソッドについて紹介します。

VB.NETでのShared修飾子の使い方に興味のある方はぜひご覧ください。

Shared変数

VB.NETでのShared変数の使い方を紹介します。Shared修飾子を付与した変数は、インスタンスを作成しなくても存在します。実際のソースコードを見てみましょう。

Public Class Human ' Shared変数 Public Shared s_val As String ' クラスプロパティ Public ReadOnly Property name As String Public ReadOnly Property age As Integer ' コンストラクタ Sub New(name As String, age As Integer) Me.name = name Me.age = age End Sub End Class Module Module1 Sub Main() ' インスタンスを作成しなくてもアクセスできる Human.s_val = "shared value1" Console.WriteLine("s_val:{0}", Human.s_val) ' shared value1 End Sub End Module

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

Public Class Human       ' Shared変数     Public Shared s_val As String       ' クラスプロパティ     Public ReadOnly Property name As String     Public ReadOnly Property age As Integer       ' コンストラクタ     Sub New(name As String, age As Integer)         Me.name = name         Me.age = age     End Sub End Class   Module Module1     Sub Main()         ' インスタンスを作成しなくてもアクセスできる         Human.s_val = "shared value1"         Console.WriteLine("s_val:{0}", Human.s_val) ' shared value1     End Sub End Module

実行結果は以下のようになります。

s_val:shared value1

1	s_val:shared value1

このようにVB.NETでは、変数にShared修飾子を付与することで、インスタンスを作成しなくてもアクセスできます。

Shared変数（インスタンス作成時）

VB.NETのShared変数は、すべてのインスタンスで共有できます。実際のソースコードを見てみましょう。

Public Class Human ' Shared変数 Public Shared s_val As String ' クラスプロパティ Public ReadOnly Property name As String Public ReadOnly Property age As Integer ' コンストラクタ Sub New(name As String, age As Integer) Me.name = name Me.age = age End Sub End Class Module Module1 Sub Main() ' インスタンスを作成しなくてもアクセスできる Human.s_val = "shared value1" Console.WriteLine("s_val:{0}", Human.s_val) ' shared value1 ' インスタンス生成 Dim human1 As New Human("taro", 20) Dim human2 As New Human("jiro", 30) ' もちろん、インスタンスを作成してもアクセスできる Human.s_val = "shared value2" ' 結果出力（Shared変数をすべてのインスタンスで共有できる） Console.WriteLine("name:{0}, age:{1}, s_val:{2}", human1.name, human1.age, Human.s_val) ' name:taro, age:20, s_val:shared value2 Console.WriteLine("name:{0}, age:{1}, s_val:{2}", human2.name, human2.age, Human.s_val) ' name:jiro, age:30, s_val:shared value2 End Sub End Module

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33

Public Class Human       ' Shared変数     Public Shared s_val As String       ' クラスプロパティ     Public ReadOnly Property name As String     Public ReadOnly Property age As Integer       ' コンストラクタ     Sub New(name As String, age As Integer)         Me.name = name         Me.age = age     End Sub End Class   Module Module1     Sub Main()         ' インスタンスを作成しなくてもアクセスできる         Human.s_val = "shared value1"         Console.WriteLine("s_val:{0}", Human.s_val) ' shared value1           ' インスタンス生成         Dim human1 As New Human("taro", 20)         Dim human2 As New Human("jiro", 30)         ' もちろん、インスタンスを作成してもアクセスできる         Human.s_val = "shared value2"           ' 結果出力（Shared変数をすべてのインスタンスで共有できる）         Console.WriteLine("name:{0}, age:{1}, s_val:{2}", human1.name, human1.age, Human.s_val) ' name:taro, age:20, s_val:shared value2         Console.WriteLine("name:{0}, age:{1}, s_val:{2}", human2.name, human2.age, Human.s_val) ' name:jiro, age:30, s_val:shared value2     End Sub End Module

実行結果は以下のようになります。

s_val:shared value1 name:taro, age:20, s_val:shared value2 name:jiro, age:30, s_val:shared value2

1 2 3

s_val:shared value1 name:taro, age:20, s_val:shared value2 name:jiro, age:30, s_val:shared value2

このようにVB.NETのShared変数は、すべてのインスタンスで共有できます。

Sharedコンストラクタ

VB.NETでのSharedコンストラクタの使い方を紹介します。Shared修飾子を付与したメンバの初期化のためのコンストラクタです。インスタンスを作成しなくても、Sharedコンストラクタが呼び出されます。実際のソースコードを見てみましょう。

Public Class Human ' Shared変数 Public Shared s_val As String ' Sharedコンストラクタ Shared Sub New() s_val = "default value" End Sub End Class Module Module1 Sub Main() ' インスタンスを作成していないが、Sharedコンストラクタが呼び出される Console.WriteLine("s_val:{0}", Human.s_val) ' default value ' Shared変数の変更 Human.s_val = "sample value" Console.WriteLine("s_val:{0}", Human.s_val) ' sample value End Sub End Module

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

Public Class Human       ' Shared変数     Public Shared s_val As String       ' Sharedコンストラクタ     Shared Sub New()         s_val = "default value"     End Sub End Class   Module Module1     Sub Main()         ' インスタンスを作成していないが、Sharedコンストラクタが呼び出される         Console.WriteLine("s_val:{0}", Human.s_val) ' default value           ' Shared変数の変更         Human.s_val = "sample value"         Console.WriteLine("s_val:{0}", Human.s_val) ' sample value     End Sub End Module

実行結果は以下のようになります。インスタンスを作成しなくても、Sharedコンストラクタが呼び出されていることが分かります。

s_val:default value s_val:sample value

1 2	s_val:default value s_val:sample value

このようにVB.NETでは、Shared修飾子を付与したコンストラクタによって、Shared修飾子を付与したメンバが初期化されます。

Sharedメソッド

VB.NETでのSharedメソッドの使い方を紹介します。インスタンスを作成しなくても、Sharedメソッドを呼び出せます。実際のソースコードを見てみましょう。

Public Class Human ' Shared変数 Private Shared s_val As String ' Sharedコンストラクタ Shared Sub New() s_val = "default value" End Sub ' Sharedメソッド Public Shared Sub ChangeValue(value As String) s_val = value End Sub ' Sharedメソッド Public Shared Sub PrintValue() Console.WriteLine("s_val:{0}", s_val) End Sub End Class Module Module1 Sub Main() ' Sharedメソッドの呼び出し ' インスタンスを作成していないが、共有コンストラクタが呼び出される Human.PrintValue() ' default value ' Sharedメソッドの呼び出し Human.ChangeValue("sample value") Human.PrintValue() ' sample value End Sub End Module

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32

Public Class Human       ' Shared変数     Private Shared s_val As String       ' Sharedコンストラクタ     Shared Sub New()         s_val = "default value"     End Sub       ' Sharedメソッド     Public Shared Sub ChangeValue(value As String)         s_val = value     End Sub       ' Sharedメソッド     Public Shared Sub PrintValue()         Console.WriteLine("s_val:{0}", s_val)     End Sub End Class   Module Module1     Sub Main()         ' Sharedメソッドの呼び出し         ' インスタンスを作成していないが、共有コンストラクタが呼び出される         Human.PrintValue() ' default value           ' Sharedメソッドの呼び出し         Human.ChangeValue("sample value")         Human.PrintValue() ' sample value     End Sub End Module

実行結果は以下のようになります。

s_val:default value s_val:sample value

1 2	s_val:default value s_val:sample value

システム
エンジニア

VB.NETでのShared修飾子の使い方についてよくわかりました。

プロジェクト
マネージャー

Shared変数、SharedコンストラクタおよびSharedメソッドについて理解を深めましょう。

まとめ

いかがでしたでしょうか。VB.NETでのShared修飾子の使い方について説明しました。Shared修飾子を付与したメンバは、インスタンスを作成しなくても存在します。もちろん、インスタンスを作成しても存在し、すべてのインスタンスで共有できます。

ここでは、Shared変数、SharedコンストラクタおよびSharedメソッドについて紹介しました。

ぜひご自身でソースコードを書いて、理解を深めてください。

FEnet.NETナビ・.NETコラムは株式会社オープンアップシステムが運営しています。

株式会社オープンアップシステムはこんな会社です

秋葉原オフィスには株式会社オープンアップシステムをはじめグループのIT企業が集結！
数多くのエンジニアが集まります。

• スマホアプリから業務系システムまで

  

  スマホアプリから業務系システムまで開発案件多数。システムエンジニア・プログラマーとしての多彩なキャリアパスがあります。

• 充実した研修制度

  

  毎年、IT技術のトレンドや社員の要望に合わせて、カリキュラムを刷新し展開しています。社内講師の丁寧なサポートを受けながら、自分のペースで学ぶことができます。

• 資格取得を応援

  

  スキルアップしたい社員を応援するために資格取得一時金制度を設けています。受験料(実費)と合わせて資格レベルに合わせた最大10万円の一時金も支給しています。

• 東証プライム上場企業グループ

  

  オープンアップシステムは東証プライム上場「株式会社オープンアップグループ」のグループ企業です。

  安定した経営基盤とグループ間のスムーズな連携でコロナ禍でも安定した雇用を実現させています。

株式会社オープンアップシステムに興味を持った方へ

株式会社オープンアップシステムでは、開発系エンジニア・プログラマを募集しています。

年収をアップしたい！スキルアップしたい！大手の上流案件にチャレンジしたい！
まずは話だけでも聞いてみたい場合もOK。お気軽にご登録ください。

新着案件New Job

• 開発エンジニア/東京都品川区/【WEB面談可】/在宅ワーク

  月給29万～30万円
  東京都品川区(大崎駅)
  • Windows

• 遠隔テストサービス機能改修/JavaScript/東京都港区/【WEB面談可】/テレワーク

  月給45万～60万円
  東京都港区(六本木駅)
  • JavaScript

• 病院内システムの不具合対応、保守/東京都豊島区/【WEB面談可】/テレワーク

  月給30万～30万円
  東京都豊島区(池袋駅)
  • Windows

• 開発/JavaScript/東京都豊島区/【WEB面談可】/テレワーク

  月給50万～50万円
  東京都豊島区(大塚駅)
  • JavaScript

• 債権債務システム追加開発/東京都文京区/【WEB面談可】/在宅勤務

  月給62万～67万円
  東京都文京区(後楽園駅)
  • Windows

• PMO/東京都豊島区/【WEB面談可】/在宅勤務

  月給55万～55万円
  東京都豊島区(池袋駅)
  • Windows