VB.Net overrides的实例

代码如下：

乐博网lob.cn提示：调试环境为 vs2005 +  windows2003 / windows2008 / xp / vista

Public Class overridesForm
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim demo As OverridesFather
        demo = New OverridesFather
        MessageBox.Show("乐博网：面积为" & demo.FuncArea(10, 20) & ",周长为" & demo.FuncPeri(10, 20), "重载面积", MessageBoxButtons.OKCancel, MessageBoxIcon.Information, MessageBoxDefaultButton.Button1)
    End Sub
End Class
Class OverridesFather
    Inherits FatherClass
    Overrides Function FuncArea(ByVal w As Single, ByVal h As Single) As Single
        area = w * h / 2
        Return area
    End Function
End Class