LibreOffice 24.8 Help
Een eigenschap, ook property, veld of attribuut genoemd, beschrijft een bepaald object of wat informatie. Met een property kan toegang tot de gegevens worden verkregen. Het is gebruikelijk om instructies toe te voegen om een eigenschap te lezen of een waarde te geven. De codehiervan kan een simpele toekenning zijn of een complexe routine die afhankelijk is van de context. Door deze instructies Get, Let en Set te gebruiken, kan het consistent zijn van de gegevens worden afgedwongen.
Bij deze instructie is het verplicht dat Option Compatible geplaatst is in de module voor het uitvoerbare gedeelte van de code.
       
         [Private | Public] Property Get name[char | As typename]
         End Property
             
         [Private | Public] Property [Let | Set] name[char] [([Optional [ByRef | ByVal]]value[char | As typename])] [As typename]
         End Property
      name: De naam van de eigenschap.
argument: De waarde die wordt doorgegeven aan de routine om de Property een waarde te geven.
De waarde van een Property wordt meestal met één argument doorgegeven.
      Option Compatible
      Sub Main
          ProductName = "Office"
          Print ProductName ' uitvoer: "LibreOffice"
      End Sub
      
      Private _office As String
      Property Get ProductName As String
          ProductName = _office
      End Property
      Property Let ProductName(value As String)
          _office = "Libre"& value
      End Property
      Als er geen property Let of Set is, kan met Get het beveiligde gegeven wordt gelezen, de waarde kan dan niet per ongeluk door een andere module worden gewijzigd.
      Option Compatible
      Public Property Get PathDelimiter As String ' Deze variabele kan alleen worden gelezen
          Static this As String
          If this = "" Then : Select Case GetGuiType()
              Case 1 : this = ";" ' Windows
              Case 4 : this = ":" ' Linux of macOS
              Case Else : Error 423 ' Eigenschap od methode niet gedefinieerd : PathDelimiter
          End Select : End If
          PathDelimiter = this
      End Property ' alleen-lezen veld PathDelimiter
      
      Sub Main
          PathDelimiter = "een zin" ' doet niks
      End Sub
      Gebruik Let of Set voor het verwerken van UNO-services of objectklassen:
      Option Compatible
      Sub Main
          'Set anObject = CreateUnoService( "com.sun.star.frame.Desktop" )
          anObject = CreateUnoService( "com.sun.star.frame.Desktop" )
          Print anObject.SupportedServiceNames(0) ' displays "com.sun.star.frame.Frame"
      End Sub
      
      Property Get anObject As Object
          Set anObject = _obj
      End Property
      
      Private _obj As Object
      
      'Property Set anObject(value As Object)
          'Set _obj = value.CurrentFrame
      'End Property
      Property Let anObject(value As Object)
          Set _obj = value.CurrentFrame
      End Property