VB.Net中文教程(3)程序多重定义(4)

 

 

Else

           MessageBox.Show("NOT EQUAL")

       End If

   End Sub

End Class

 

此程序输出﹕

NOT EQUAL

EQUAL

EQUAL

 

由于各程序名称不相同，您就得记忆各程序之名字﹐徒增记忆负担而且易于犯错﹐并不合乎人们生活习惯。因之﹐VB的多重定义观念﹐能增加程序之弹性及亲切感。

   程序多重定义情形并不限于单一类别之内，也可以发生于父子类别之间。例如：

 

ex06.bas

Imports System.ComponentModel

Imports System.Drawing

Imports System.WinForms

------------------------------------------------------------------------------------------

Public Class Person

   Private name As String

   Private age As Integer

   Public Sub New()

   End Sub

   Public Sub SetValue(ByVal na As String, ByVal a As Integer)

       name = na

       age = a

   End Sub

   Public Function birthDay() As Integer

       birthDay = 2001 - age

   End Function

   Public Sub Display()

       Messagebox.Show("Name: " + name + "   Age: " + str(age))

   End Sub

End Class

 

Public Class Teacher

   Inherits Person

   

   Private salary As Decimal

   Public Overloads Sub SetValue( ByVal na As String, ByVal a As Integer, ByVal 

                              sa As Decimal)

       SetValue(na, a)

       salary = sa

   End Sub

   Public Sub pr()

补充：软件开发 , Vb ,
上一个：VB.Net中文教程(3)程序多重定义(5)
下一个：VB.Net中文教程(3)程序多重定义(3)
更多图片编程知识:

vsflex8控件,如何控制一列或一行不给输入?

VB中button按下弹起的问题

要做一些画像的简单处理.有些问题想请教一下

急！！！求助wininet InternetConnect溢出情况如何处理

这个findwindowex哪里不对，不能找到子句柄

VB导入Excel表格内容的路径问题
  
更多VB疑问解答：
vb把图片转换成 base64代码
批处理转移文 之errorlevel
vb 6.0 调用vb.net dll混合程序集错误
VB inet控件访问ftp 本机测试通过客户机inet控件使用失败。急！！
求助在Dir1控件当前目录下新建一个文件夹的代码
CreateObject创建Word Excel对象失败，提示，无法加载DLL，怎么解决？
有两个磁盘阵列,如何使用能达到最好的效果
cloudStack 如何实现 vSphere的DRS功能
和难缠客户的那些事儿
批处理转移文 之errorlevel
vb 6.0 调用vb.net dll混合程序集错误
VB inet控件访问ftp 本机测试通过客户机inet控件使用失败。急！！
求助在Dir1控件当前目录下新建一个文件夹的代码
CreateObject创建Word Excel对象失败，提示，无法加载DLL，怎么解决？
有两个磁盘阵列,如何使用能达到最好的效果