Simple Example I

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.s
End Function
 
Class MyClass
   Instance sTxt As String
   Class Method Create()       : sTxt = "Hello"  : End Method
   Interface MyInterface
      Inherit IUnknown
      Property Get S As String : Property = sTxt : End Property
   End Interface
End Class
 
'Compilable Example:  (Jose Includes)
#Compile Exe
Function PBMain() As Long
   Local X As MyInterface
   Let X = Class "MyClass"
   ? X.value
   X.value = Time$
   ? X.value
End Function
 
Class MyClass
  Instance Value As String
  Interface MyInterface
    Inherit IDispatch
    Property Get Value <1> As String : Property = Value : End Property
    Property Set Value <1> (ByVal NewValue As String) : Value = NewValue : End Property
  End Interface
End Class
   
'gbs_01351
'Date: 05-11-2013                                    

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