Stand-Alone Interface

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
   X.value = Time$
   ? X.value
End Function
 
Interface MyInterfaceA
 Inherit IUnknown
 Property Get Value As String
 Property Set Value (ByVal NewValue As String)
End Interface
 
Class MyClass
  Interface MyInterfaceB
    Inherit MyInterfaceA
  End Interface
End Class
   
'gbs_01354
'Date: 05-11-2013

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