Simple Example II

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
      Property Set S As String : Property = sTxt : End Property
   End Interface
End Class
   
'gbs_01346
'Date: 05-11-2013                             
 

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