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

.NET
VB.NET
プログラミング言語

公開日時: 2021-08-11 　更新日時: 2022-06-06

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

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

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

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

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

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。お気軽にご登録ください。

株式会社オープンアップシステムへ応募する
会員登録不要! カンタン45秒!

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

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

Shared変数

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

Sharedコンストラクタ

Sharedメソッド

まとめ

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

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

充実した研修制度

資格取得を応援

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

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

新着案件New Job

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

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

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

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

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

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

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

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

Shared変数

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

Sharedコンストラクタ

Sharedメソッド

まとめ

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

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

充実した研修制度

資格取得を応援

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

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

新着案件New Job

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

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

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

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

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

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

関連記事Related Posts

VB.NETをおすすめする3つの理由とは？VBAとの違いや勉強方法を解説

VB.NETでの配列初期化方法とは？宣言と初期化・サイズを指定・ReDimで再宣言・要素固定の一括初期化

[VB.NET]タイマーの使い方とは？開始・終了メソッドの使い方、カウントダウンタイマーの実現方法を紹介

VB.NETでのXMLの読み書き方法とは？シリアライズやデシリアライズの方法を紹介

VB.NETでのUsing句の使い方とは？Using句の使い方と例外処理