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 |