Inherits sub class

Brettvan1 · June 6th, 2005, 08:06 AM

Hi all,
Ok, i am developing a baseclassemployee and a sub class(Boss) which will inherit from the base class. this is what I have so far...
Public Class myBaseEmployee
    Private strFirstName As String
    Private strLastName As String
    Private intMonthlyPay As Integer
    Public Sub New(ByVal FirstName As String, ByVal LastName As
String)
        strFirstName = FirstName
        strLastName = LastName

    End Sub
    Public Property FirstName() As String
        Get
            Return strFirstName
        End Get
        Set(ByVal Value As String)
            FirstName = Value
        End Set
    End Property
    Public Property LastName() As String
        Get
            Return strLastName
        End Get
        Set(ByVal Value As String)
            LastName = Value
        End Set
    End Property
    Public Overrides Function Tostring() As String
        Return strFirstName & " " & strLastName

    End Function
    Public ReadOnly Property MonthlyPay() As Integer
        Get
            Return intMonthlyPay
        End Get
    End Property
Now I have to create a boss class which inherits from the base class and requires the following fields--Constructor--Takes first name and last name as annual salary arguments Properties--first name,last name,annual salary,monthly pay(Annual salary/12) Method--ToString (this overrides the base class method and returns the type of employee and full name of the employee in the form "Boss: John Does"
There are another 3 classes but I think I will be able to work those out by myself if I can get this first one sorted

Any help would be much appreciated...
B

jaucourt · June 6th, 2005, 03:09 PM

Code:

Public Class Boss
    Inherits myBaseEmployee
    Private _firstName, _lastName As String
    Private _annualSalary As Decimal

    Public Sub New(ByVal firstName As String, ByVal lastName As String, ByVal annualSalary As Decimal)
        Me._firstName = firstName
        Me._lastName = lastName
        Me._annualSalary = annualSalary
    End Sub

    Private ReadOnly Property monthlySalary() As Decimal
        Get
            Return _annualSalary / 12
        End Get
    End Property

    Public Overrides Function toString() As String
        Return "Boss: " & Me._firstName & " " & Me._lastName
    End Function
End Class

Brettvan1 · June 7th, 2005, 02:42 AM

Thank you jaucourt, you are a star !!

Brettvan1 · June 7th, 2005, 04:20 AM

Hi jaucourt,
I have a "display" button on my form, could you help me with the code for displaying the boss class in a message box once the display button has been clicked?

Thanks so much for your help, you are a lifesaver....
B

jaucourt · June 10th, 2005, 05:16 PM

Presuming the button is called button1, you can double click it to create the handler:

Code:

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        objBoss = New Boss("Bob", "Geldof", 100000)
        Messagebox.Show(objBoss.toString())
    End Sub

Quote:

quote:Originally posted by Brettvan1
Hi jaucourt,
I have a "display" button on my form, could you help me with the code for displaying the boss class in a message box once the display button has been clicked?

Thanks so much for your help, you are a lifesaver....
B