C# と VB.NET の質問掲示板

一応試したソースのっけときます。

    Sub Main()
        Dim obj As New hoge
        Dim obj2 As New hogehoge

        Console.WriteLine(obj.foo())
        Console.WriteLine(obj2.foo())

        obj = obj2

        Console.WriteLine(obj.foo())
        Console.WriteLine(obj2.foo())

    End Sub

    Class hoge
        Public Overridable Function foo() As String
            Return "hoge"
        End Function
    End Class

    Class hogehoge
        Inherits hoge
        Public Overrides Function foo() As String
            Return "hogehoge"
        End Function
    End Class

出力結果
hoge
hogehoge
hogehoge
hogehoge

----- VBだと:

Module Program

Public Class Base
  Public Overridable Sub method()
    System.Console.WriteLine("Base.method")
  End Sub
End Class

Public Class Derived : Inherits Base
  Public Overrides Sub method()
    System.Console.WriteLine("Derived.method")
    MyBase.method() ' 元々のmethodを呼ぶ
  End Sub
End Class

Sub Main()
  Dim obj As Base = New Derived()
  obj.method()
End Sub

End Module

----- C#だと:

public class Base {
  public virtual void method() {
    System.Console.WriteLine("Base.method");
  }
}

public class Derived : Base {
  public override void method() {
    System.Console.WriteLine("Derived.method");
    base.method(); // 元々のmethodを呼ぶ
  }
}

public class Program {
  public static void Main() {
    Base obj = new Derived();
    obj.method();
  }
}

■No25767 (やー さん) に返信
> オーバーライドについて、いまいち理解できないので、教えて頂きたいです。
> さらに上書きされると、基本クラスのOverridableのメソッドはどうなってしまうのでしょうか？

上書きと考えると後でShadowsの時混乱するかもしれないので、遊んでみました(笑)
少しは理解の助けになるかも


> また、わかりやすいサンプルなどもございましたらお願いできますでしょうか。
Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim c As New Cat
        Dim d As New Dog
        c.Bark()
        d.Bark()
        CType(c, Animal).Bark()
        CType(d, Animal).Bark()
    End Sub
End Class

Public Class Animal
    Overridable Sub Bark()
        MessageBox.Show("浜口")
    End Sub
End Class

Public Class Dog
    Inherits Animal
    Shadows Sub Bark()
        MessageBox.Show("ばぅ")
    End Sub
End Class

Public Class Cat
    Inherits Animal
    Overrides Sub Bark()
        MessageBox.Show("にゃあ")
    End Sub
End Class