「VB.NET」メソッドにアクセス修飾子を付けるサンプル
構文
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