「VB.NET」メソッドにアクセス修飾子を付けるサンプル

2021年10月6日

構文
Public
別のプロジェクトまたは同じプロジェクトからアクセス可能

Protected
派生クラスからアクセスOK、同じクラスからアクセスOK

Friend
同じプロジェクトからアクセス可能

Protected Friend
派生クラス、同じプロジェクトからアクセス OK

Private
同じクラスからアクセス可能

使用例

Module Module1
    'クラスの定義
    Public Class UserInfo
        'アクセス修飾子public
        Public Sub GetAddr()
            Console.WriteLine("Public修飾子 AA11")

            '修飾子なし Subを呼び出す
            GetInfo()
        End Sub

        'アクセス修飾子protected friend
        Protected Friend Sub GetName()
            Console.WriteLine("Protected Friend修飾子 BB22")

            'Protected修飾子Subを呼び出す
            GetAge()

            'Private修飾子Subを呼び出す
            GetPrice()

        End Sub

        'アクセス修飾子Protected
        Protected Sub GetAge()
            Console.WriteLine("Protected修飾子 CC33")
        End Sub

        'アクセス修飾子Private
        Private Sub GetPrice()
            Console.WriteLine("Private修飾子 DD44")
        End Sub

        '修飾子なし
        Sub GetInfo()
            Console.WriteLine("修飾子なし EE55")
        End Sub

    End Class
    Sub Main()

        'インスタンスを生成
        Dim usrA As New UserInfo()
        Console.WriteLine("********Public********")
        usrA.GetAddr()
        Console.WriteLine("------- Protected Friend ----------")
        usrA.GetName()

        Console.ReadKey()
    End Sub

End Module

実行結果
********Public********
Public修飾子 AA11
修飾子なし EE55
——- Protected Friend ———-
Protected Friend修飾子 BB22
Protected修飾子 CC33
Private修飾子 DD44

VB.net

Posted by arkgame