Barát (Visual Basic)

Cikk
03/05/2024

Megadja, hogy egy vagy több deklarált programozási elem csak a deklarációt tartalmazó szerelvényből érhető el.

Megjegyzések

Sok esetben azt szeretné, hogy a programozási elemeket, például az osztályokat és struktúrákat a teljes szerelvény használja, nem csak a deklarált összetevő. Előfordulhat azonban, hogy nem szeretné, hogy kóddal elérhetőek legyenek a szerelvényen kívül (például ha az alkalmazás védett). Ha így szeretné korlátozni egy elemhez való hozzáférést, deklarálhatja a Friend módosító használatával.

Az ugyanahhoz a szerelvényhez lefordított más osztályokban, struktúrákban és modulokban lévő kódok hozzáférhetnek az Friend adott szerelvény összes eleméhez.

Friend Az access gyakran az alkalmazás programozási elemeinek előnyben részesített szintje, és Friend egy interfész, modul, osztály vagy struktúra alapértelmezett hozzáférési szintje.

Csak a modul, a felület vagy a névtér szintjén használható Friend . Ezért egy Friend elem deklarációs környezetének forrásfájlnak, névtérnek, interfésznek, modulnak, osztálynak vagy struktúrának kell lennie; nem lehet eljárás.

Feljegyzés

Használhatja a Védett barát hozzáférési módosítóját is, amely akadálymentessé teszi az osztály egy tagját az osztályon belülről, a származtatott osztályokból és abból a szerelvényből, amelyben az osztály definiálva van. Ha korlátozni szeretné egy tag hozzáférését az osztályán belülről és az ugyanabban a szerelvényben lévő származtatott osztályokból, használja a privát védelem alatt álló hozzáférés-módosítót.

A többi hozzáférési módosító összehasonlítását Friend a Visual Basic hozzáférési szintjei című témakörben talál.

Feljegyzés

Megadhatja, hogy egy másik szerelvény egy baráti szerelvény, amely lehetővé teszi, hogy hozzáférjen az összes olyan típushoz és taghoz, amely a következőként Friendvan megjelölve. További információ: Barátgyűlések.

Példa

Az alábbi osztály a Friend módosító használatával engedélyezi, hogy az ugyanazon a szerelvényen belüli többi programozási elem hozzáférjen bizonyos tagokhoz.

Class CustomerInfo

    Private p_CustomerID As Integer

    Public ReadOnly Property CustomerID() As Integer
        Get
            Return p_CustomerID
        End Get
    End Property

    ' Allow friend access to the empty constructor.
    Friend Sub New()

    End Sub

    ' Require that a customer identifier be specified for the public constructor.
    Public Sub New(ByVal customerID As Integer)
        p_CustomerID = customerID
    End Sub

    ' Allow friend programming elements to set the customer identifier.
    Friend Sub SetCustomerID(ByVal customerID As Integer)
        p_CustomerID = customerID
    End Sub
End Class