LibreOffice 25.2 Hjelp
Ein eigenskap (property), også kalla felt eller attributt, karakteriserer eit gjeve objekt eller ein opplysning. Eigenskapar kan brukast til å kontrollera tilgangen til data. Det er vanleg å ta med instruksjonar når eigenskapane vert sette eller lesne. Kodane kan vera alt frå enkle tildelingar til komplekse innhaldsavhengige rutinar. Bruk av Get, Let eller Set tvingar konsistensen for eigenskapen når det er nødvendig.
Dette uttrykket krev at Option Compatible vert sett framføre programkoden i ein modul.
       
         [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
      namn: Namnet på eigenskapen.
argument: Verdi som skal overførast til rutinen Property.
Property brukar ofte eitt enkelt argument. Fleire argument kan likevel brukast samtidig.
      Option Compatible
      Sub Main
          ProductName = "Office"
          Print ProductName ' viser "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
      Når eigenskapen Let eller Set manglar, hjelper Get til med å verna informasjon som ikkje må endrast av ein annan modul ved eit uhell.
      Option Compatible
      Public Property Get PathDelimiter As String ' Skriveverna variabel
          Static this As String
          If this = "" Then : Select Case GetGuiType()
              Case 1 : this = ";" ' Windows
              Case 4 : this = ":" ' Linux eller macOS
              Case Else : Error 423 ' Eigenskap eller metode ikkje definert: PathDelimiter
          End Select : End If
          PathDelimiter = this
      End Property ' skriveverna PathDelimiter
      
      Sub Main
          PathDelimiter = "a sentence" ' gjer ingenting
      End Sub
      Bruk Let eller Set når du handsamar UNO-tenester eller klasseobjekt:
      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