Pahayag ng Ari-arian

Ang isang ari-arian, na tinatawag ding field o attribute, ay nagpapakilala sa isang ibinigay na bagay o piraso ng impormasyon. Maaaring gamitin ang mga katangian upang kontrolin ang pag-access sa data. Karaniwang gamit na isama ang mga tagubilin sa pagtatakda o oras ng pagbabasa ng mga property. Maaaring mag-iba ang code mula sa simpleng pagtatalaga hanggang sa mga kumplikadong nakadepende sa konteksto na gawain. Gamit Kunin , Hayaan o Itakda ipinapatupad ng mga accessor ang pagkakapare-pareho ng mga ari-arian kung kinakailangan.

Ang pahayag na ito ay nangangailangan Katugmang Pagpipilian na ilalagay bago ang executable program code sa isang module.

Syntax:

Diagram ng Property Get Statement


         [Private | Public] Property Get name[char | As typename]
         End Property

Diagram ng Statement Set ng Ari-arian


         [Private | Public] Property [Let | Set] name[char] [([Optional [ByRef | ByVal]]value[char | As typename])] [As typename]
         End Property

Mga Parameter:

pangalan: Ang pangalan ng ari-arian.

argumento: Halaga na ipapasa sa Ari-arian setter routine.

Ari-arian ang mga setter ay madalas na gumagamit ng isang argumento. Ang maramihang mga argumento ay pantay na tinatanggap.

fragment ng argumento


      {[Optional [ByRef|ByVal]]|ParamArray} argument {{As typename|char}[ = expression]|[()]As Variant}

Mga Parameter

Opsyonal : Ang argumento ay hindi sapilitan.

ByRef : Ang argumento ay ipinasa sa pamamagitan ng sanggunian. ByRef ay ang default.

ByVal : Ang argumento ay ipinasa sa pamamagitan ng halaga. Ang halaga nito ay maaaring mabago ng tinatawag na routine.

char: I-type ang character ng deklarasyon.

typename : Primitive na pangalan ng uri ng data. Ang mga uri ng tinukoy sa library o module ay maaari ding tukuyin.

= pagpapahayag : Tumukoy ng default na halaga para sa argumento, na tumutugma sa ipinahayag na uri nito. Opsyonal ay kinakailangan para sa bawat argumento na tumutukoy sa isang default na halaga.

ParamArray : Gamitin ParamArray kapag ang bilang ng mga parameter ay hindi natukoy. Ang isang karaniwang senaryo ay ang isang function na tinukoy ng gumagamit ng Calc. Gamit ParamArray ay dapat na limitado sa huling argumento ng isang gawain.

Gamit ParamArray o = pagpapahayag nangangailangan Katugmang Pagpipilian na ilalagay bago ang executable program code sa isang module.

Kapag gumagamit Opsyon VBASupport 1 , Opsyonal mga argumento na walang default na halaga ( = pagpapahayag ) ay sinisimulan ayon sa kanilang uri ng data, maliban kung Variant .

fragment ng typename

primitive na mga uri ng data fragment


      {Boolean|Byte|Currency|Date|Double|Integer|Long|Object|Single|String|Variant}

char fragment

uri ng mga character ng deklarasyon


      { % | & | ! | # | $ | @ }

Mga halimbawa


      Option Compatible
      Sub Main
          ProductName = "Office"
          Ipinapakita ng Print ProductName ' ang "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

Sa kawalan ng Ari-arian Hayaan o Ari-arian Itakda , Ari-arian Kunin tumutulong na tukuyin ang protektadong impormasyon, na hindi aksidenteng mababago ng isang dayuhang module:


      Option Compatible
      Public Property Kunin ang PathDelimiter Bilang String ' Read-only na variable
          Static this As String
          If this = "" Then : Select Case GetGuiType()
              Case 1 : this = ";" ' Windows
              Case 4 : this = ":" ' Linux o macOS
              Case Else : Error 423 ' Hindi tinukoy ang property o method: PathDelimiter
          End Select : End If
          PathDelimiter = this
      End Property ' read-only PathDelimiter
      
      Sub Main
          Ang PathDelimiter = "isang pangungusap" ' ay walang ginagawa
      End Sub

Gamitin Hayaan o Itakda kapag humahawak ng mga serbisyo ng UNO o mga bagay ng klase:


      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

Mga pangunahing kaalaman sa subroutine

Paggamit ng Mga Pamamaraan, Mga Pag-andar at Mga Katangian

Pahayag ng Function

Sub Statement

Tapusin , Lumabas mga pahayag

Option ClassModule Statement

Pahayag na Tugma sa Opsyon