Interface inherits interface : Interface « Class « VB.Net

Home
VB.Net
1.2D
2.Application
3.Class
4.Data Structure
5.Data Types
6.Database ADO.net
7.Date Time
8.Development
9.Event
10.File Directory
11.Generics
12.GUI
13.Internationalization I18N
14.Language Basics
15.LINQ
16.Network Remote
17.Reflection
18.Security
19.Thread
20.Windows Presentation Foundation
21.Windows System
22.XML
23.XML LINQ
VB.Net » Class » Interface 




Interface inherits interface
Interface inherits interface

Imports System

Public Class MainClass
    
    Shared Sub Main()
        Dim doc As New Document("Test Document")

        If TypeOf doc Is IStorable Then
            Dim isDoc As IStorable = doc
            isDoc.Read()
        Else
            Console.WriteLine("Could not cast to IStorable")
        End If

        If TypeOf doc Is ICompressible2 Then
            Dim ilDoc As ICompressible2 = doc
            Console.Write("Calling both ICompressible and ")
            Console.WriteLine("ICompressible2 methods...")
            ilDoc.Compress()
            ilDoc.LogSavedBytes()
        Else
            Console.WriteLine("Could not cast to ICompressible2")
        End If

        If TypeOf doc Is ICompressible Then
            Dim icDoc As ICompressible = doc
            Console.WriteLine_
               "Treating the object as Compressible... ")
            icDoc.Compress()
        Else
            Console.WriteLine("Could not cast to ICompressible")
        End If
    End Sub
End Class


     Interface IStorable
         Sub Read()
         Sub Write(ByVal obj As Object)

         Property Status() As Integer
     End Interface

     Interface ICompressible
         Sub Compress()
         Sub Decompress()
     End Interface

     Interface ICompressible2
         Inherits ICompressible
         Sub LogSavedBytes()
     End Interface 

     Public Class Document
         Implements ICompressible2, IStorable

         Public Sub New(As String)
             Console.WriteLine("Creating document with: {0}", s)
         End Sub

         Public Sub Read() Implements IStorable.Read
             Console.WriteLine("Implementing the Read Method for IStorable")
         End Sub

         Public Sub Write(ByVal o As ObjectImplements IStorable.Write
             Console.WriteLine_
                   "Implementing the Write Method for IStorable")
         End Sub

         Public Property Status() As Integer Implements IStorable.Status
             Get
                 Return myStatus
             End Get
             Set(ByVal Value As Integer)
                 myStatus = Value
             End Set
         End Property

         Public Sub Compress() Implements ICompressible.Compress
             Console.WriteLine("Implementing Compress")
         End Sub

         Public Sub Decompress() Implements ICompressible.Decompress
             Console.WriteLine("Implementing Decompress")
         End Sub

         Public Sub LogSavedBytes() Implements ICompressible2.LogSavedBytes
             Console.WriteLine("Implementing LogSavedBytes")
         End Sub

         Private myStatus As Integer = 0

     End Class
           
       














Related examples in the same category
1.One Class implements two Interfaces which have the same name methodOne Class implements two Interfaces which have the same name method
2.Class implements two interfaces
3.Implements an InterfaceImplements an Interface
4.Implement an InterfaceImplement an Interface
5.Define and use Interface AgeDefine and use Interface Age
6.Interface Inherits another InterfaceInterface Inherits another Interface
7.Define and use InterfaceDefine and use Interface
8.Implements Two InterfacesImplements Two Interfaces
9.Generic Class and InterfaceGeneric Class and Interface
java2s.com  | Contact Us | Privacy Policy
Copyright 2009 - 12 Demo Source and Support. All rights reserved.
All other trademarks are property of their respective owners.