VB.net　継承の基本(Visual Basic)ピクチャ

内容

1 継承の基本
2 こちらの記事もどうぞ

継承の基本

オーバーライドは、基本クラスでOverridable（オーバーライドできるよ：意訳）して派生クラスでOverrides（オーバーラードするよ：意訳）すればいい。やっかいなのがコンストラクタNewで基本クラスにNewがあり、派生クラスにもNewがあるとオーバーライドされずに、それぞれが実行されるらしい（試していない）

https://docs.microsoft.com/ja-jp/dotnet/visual-basic/programming-guide/language-features/objects-and-classes/inheritance-basics

Const BonusRate As Decimal = 1.45D
Const PayRate As Decimal = 14.75D

Class Payroll
   Overridable Function PayEmployee(
       ByVal HoursWorked As Decimal,
       ByVal PayRate As Decimal) As Decimal
       PayEmployee = HoursWorked * PayRate
   End Function
End Class



Class BonusPayroll
   Inherits Payroll
   Overrides Function PayEmployee(
       ByVal HoursWorked As Decimal,
       ByVal PayRate As Decimal) As Decimal
       ' The following code calls the original method in the base
       ' class, and then modifies the returned value.
       PayEmployee = MyBase.PayEmployee(HoursWorked, PayRate) * BonusRate
   End Function
End Class



Sub RunPayroll()
   Dim PayrollItem As Payroll = New Payroll
   Dim BonusPayrollItem As New BonusPayroll
   Dim HoursWorked As Decimal = 40
   MsgBox("Normal pay is: " &amp;
       PayrollItem.PayEmployee(HoursWorked, PayRate))
   MsgBox("Pay with bonus is: " &amp;
       BonusPayrollItem.PayEmployee(HoursWorked, PayRate))
End Sub

Const BonusRate As Decimal = 1.45D

Const PayRate As Decimal = 14.75D

Class Payroll

Overridable Function PayEmployee(

ByVal HoursWorked As Decimal,

ByVal PayRate As Decimal) As Decimal

PayEmployee = HoursWorked * PayRate

End Function

End Class

Class BonusPayroll

Inherits Payroll

Overrides Function PayEmployee(

ByVal HoursWorked As Decimal,

ByVal PayRate As Decimal) As Decimal

' The following code calls the original method in the base

' class, and then modifies the returned value.

PayEmployee = MyBase.PayEmployee(HoursWorked, PayRate) * BonusRate

End Function

End Class

Sub RunPayroll()

Dim PayrollItem As Payroll = New Payroll

Dim BonusPayrollItem As New BonusPayroll

Dim HoursWorked As Decimal = 40

MsgBox("Normal pay is: " &

PayrollItem.PayEmployee(HoursWorked, PayRate))

MsgBox("Pay with bonus is: " &

BonusPayrollItem.PayEmployee(HoursWorked, PayRate))

End Sub

こちらの記事もどうぞ

VB.netのクラスで覚えたことを書いておく VB.netのクラスで覚えたことを書いておくイ […]
VB.net　初級プログラム　１回　テキストファイル読み込み　プログラム開発 VB.net　初級プログラム　１回　テキストファイル読み込み　プログラム開発環境 Win […]
VB.NETでMySQLに接続　リンク VB.NETでMySQLに接続　リンク https://lab.unicast.ne.jp/ […]
Javascript、GASとも構造体はないけど、クラスかオブジェクトを使えば Javascript、GASとも構造体はないけど、クラスかオブジェクトを使えば構造体っぽくできるよ […]
VB.netリストボックスで選択した内容に合わせて2つのディレクトリを作成する。 […]
ゲームプログラム、swift3.0でCSVファイルを扱うのでSwiftCSVライブラリをゲットしたがエラーでまくり swift3.0でCSVファイルを扱うのでSwiftCSVライブラリをゲットしたがエラーでまくり […]