I-Cloud程式攻略

Overriding覆寫父類別的Method
子類別不想直接繼承使用(重寫或部份衍生)


'子類別
'想改寫父類別有的 method Salary()
'Overrides 定義子類別覆寫父類別

  Public Overrides Function Salary() As Decimal
      Dim b As Decimal = MyBase.Salary() '原來底薪
      Me._salary = b + Me._bon
  End Function


'父類別  

'薪資計算的功能Method
'Overridable 允許子類別可以進行複寫

   Public Overridable Overloads Function Salary() As Decimal
       Return Me._salary
   End Function