Simple Example 0 - Get/Set Only

Date: 02-16-2022

Return to Index

 
'Compilable Example:  (Jose Includes)
#Compile Exe
Function PBMain() As Long
   Local X As MyInterface
   Let X = Class "MyClass"
   ? X.value           'get
   X.value = Time$     'set
   ? X.value           'get
End Function
 
Class MyClass
  Instance Value As String
  Interface MyInterface
    Inherit IUnknown
    Property Get Value As String                  : Property = Value : End Property
    Property Set Value (ByVal NewValue As String) : Value = "bingo" : End Property
  End Interface
End Class 
   
'gbs_01352
'Date: 05-11-2013                               

created by gbSnippets
http://www.garybeene.com/sw/gbsnippets.htm