Abstract classes, inherit, overwrite etc.

See more:

VB

Hi Experts,
I want to define a (super)class that hides the code of several (sub)classes, which all provides the same methods, but with different code.

Simplified example:
In an application "Form1" I instance the (Super)class "Printer" with the argument "PrinterType" (enum). This "Printer" class provides the "Print()" method. The code for printing on different hardware should be coded in separate classes. So the "Printer" class has to use/inherit one of the specific (sub)classes.

The only way I found is to declare the Print() method in the (sub)classes as shared. But this is for me as defining a Sub() in a public module.
I'm sure there is a better way of programming as my workaround.

What I have tried:

Public Class Form1
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles Me.Load
        Dim oPrinter As New Printer(Printer.PrinterType.HP)
        oPrinter.Print()
    End Sub
End Class


Public Class Printer

    Public Enum PrinterType
        HP
        Epson
    End Enum

    Public ActivePrinter As PrinterType

    Public Sub New(ByVal mPrinterType As PrinterType)
        ActivePrinter = mPrinterType
    End Sub

    Public Sub Print()
        Select Case ActivePrinter
            Case PrinterType.HP
                HP_Printer.Print()
            Case PrinterType.Epson
                Epson_Printer.Print()
        End Select
    End Sub

End Class


Public Class HP_Printer
    Public Shared Sub Print()
        Beep()
    End Sub
End Class


Public Class Epson_Printer
    Public Shared Sub Print()
        Beep()
    End Sub
End Class